paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* problem with temp ansistrings

Browse Source
This commit is contained in:
peter 2004-09-22 20:21:43 +00:00
parent ed3945ca04
commit 8b58545947
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/tbs/tb0480.pp Normal file
View File

@ -0,0 +1,23 @@
{$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.