mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-17 04:40:34 +01:00
ba95cc22ee
char to pchar/array of char, rather than of arbitrary array
constructors (mantis #9085)
git-svn-id: trunk@7670 -
26 lines
311 B
ObjectPascal
26 lines
311 B
ObjectPascal
program chatserver;
|
|
|
|
{$mode objfpc}
|
|
|
|
procedure Sendln(MsgType: Longint; Str: PChar);
|
|
begin
|
|
halt(1);
|
|
end;
|
|
|
|
procedure Sendln(MsgType: Longint; Str: array of PChar);
|
|
begin
|
|
halt(0);
|
|
end;
|
|
|
|
|
|
procedure Sendln(MsgType: Longint; Str: array of char);
|
|
begin
|
|
halt(1);
|
|
end;
|
|
|
|
|
|
|
|
begin
|
|
Sendln(1, ['str1', 'str2'])
|
|
end.
|