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

+ cwstring for unix platforms

Browse Source 
git-svn-id: trunk@19192 -
This commit is contained in:
Jonas Maebe 2011-09-23 16:43:16 +00:00
parent 8f4d02ccfa
commit f0c8563f2d
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/tcpstr1.pp
View File

@ -1,4 +1,10 @@
{$CODEPAGE cp437} {$CODEPAGE cp437}
{$ifdef unix}
uses
cwstring;
{$endif}
type type
tcpstr437 = type AnsiString(437); tcpstr437 = type AnsiString(437);
tcpstr850 = type AnsiString(850); tcpstr850 = type AnsiString(850);
@ -13,19 +19,19 @@ begin
if ord(a2[1])<>195 then if ord(a2[1])<>195 then
halt(1); halt(1);
if ord(a2[2])<>164 then if ord(a2[2])<>164 then
halt(1); halt(2);
writeln('---'); writeln('---');
a3:=a1; a3:=a1;
if ord(a3[1])<>132 then if ord(a3[1])<>132 then
halt(1); halt(3);
writeln('---'); writeln('---');
u1:=a1; u1:=a1;
if ord(u1[1])<>228 then if ord(u1[1])<>228 then
halt(1); halt(4);
writeln('ok'); writeln('ok');
end. end.