t_id
1441
t_adddate
2005/01/07
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443665118 | 934967 | True | False | Successfully run |
Record count: 1
{$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.