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

no message

Browse Source
This commit is contained in:
florian 2005-01-06 13:30:41 +00:00
parent 7aa53f09cc
commit b916b68efe
1 changed files with 99 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
tests/test/tarray6.pp Normal file
View File

@ -0,0 +1,99 @@
{$APPTYPE CONSOLE}
{$ifdef fpc}{$mode delphi}{$endif}
procedure wideansi;
var
S: AnsiString = 'abcd';
pc: PChar = 'abcd';
ca: array [0..4] of Char = ('a', 'b', 'c', 'd', #0);
W: WideString = 'abcd';
pw: PWideChar = 'abcd';
wa: array [0..4] of WideChar = ('a', 'b', 'c', 'd', #0);
begin
{$IFDEF FPC}
ca := S;
ca := W;
ca := pc;
wa := pw;
wa := S;
wa := W;
{$ENDIF}
W := S;
W := pc;
W := ca;
W := pw;
W := wa;
S := W;
S := pc;
S := ca;
S := pw;
S := wa;
if S = pc then WriteLn('(2.1) strings are equal');
if S = ca then WriteLn('(2.2) strings are equal');
WriteLn;
if W = pw then WriteLn('(3.1) wide pass');
if W = wa then WriteLn('(3.2) wide pass');
WriteLn;
if S = W then WriteLn('(4.1) wide vs ansi');
if pc = W then WriteLn('(4.2) wide vs ansi');
if ca = W then WriteLn('(4.3) wide vs ansi');
if pw = S then WriteLn('(4.4) wide vs ansi');
if wa = S then WriteLn('(4.5) wide vs ansi');
WriteLn;
end;
procedure wideshort;
var
S: ShortString = 'abcd';
pc: PChar = 'abcd';
ca: array [0..4] of Char = ('a', 'b', 'c', 'd', #0);
W: WideString = 'abcd';
pw: PWideChar = 'abcd';
wa: array [0..4] of WideChar = ('a', 'b', 'c', 'd', #0);
begin
{$IFDEF FPC}
ca := S;
ca := W;
ca := pc;
wa := pw;
wa := S;
wa := W;
{$ENDIF}
W := S;
W := pc;
W := ca;
W := pw;
W := wa;
S := W;
S := pc;
S := ca;
S := pw;
S := wa;
if S = pc then WriteLn('(2.1) strings are equal');
if S = ca then WriteLn('(2.2) strings are equal');
WriteLn;
if W = pw then WriteLn('(3.1) wide pass');
if W = wa then WriteLn('(3.2) wide pass');
WriteLn;
if S = W then WriteLn('(4.1) wide vs ansi');
if pc = W then WriteLn('(4.2) wide vs ansi');
if ca = W then WriteLn('(4.3) wide vs ansi');
if pw = S then WriteLn('(4.4) wide vs ansi');
if wa = S then WriteLn('(4.5) wide vs ansi');
WriteLn;
end;
begin
wideshort;
wideansi;
end.