blob: 215ab17e27d08d434707b29c509af42d5cc798b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$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.
|
