t_id
1370
t_adddate
2004/09/24
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.