mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 09:18:10 +02:00
23 lines
430 B
ObjectPascal
23 lines
430 B
ObjectPascal
{$ifdef fpc}{$mode delphi}{$endif}
|
|
|
|
procedure Test(const s1, s2: PAnsiChar);
|
|
begin
|
|
Writeln(s1);
|
|
Writeln(s2);
|
|
if ansistring(s1)<>ansistring(s2) then
|
|
begin
|
|
writeln('Error');
|
|
halt(1);
|
|
end;
|
|
end;
|
|
|
|
var
|
|
S: AnsiString;
|
|
P: PAnsiChar;
|
|
begin
|
|
S := 'Test';
|
|
P := PAnsiChar(S);
|
|
Test(PAnsiChar('String:'+S+';'), PAnsiChar('String:'+S+';'));
|
|
Test(PAnsiChar('String:'+P+';'), PAnsiChar('String:'+P+';'));
|
|
end.
|