1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
{$ifndef macos}{$APPTYPE CONSOLE}{$endif}
{$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.
|
