blob: a873c891a57bbd976bb36cd503ca5ed9e0681f26 (
plain)
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
|
type Char4=array[1..4] of char;
T1=packed record
A1:Char4;
A2:Char4;
A3:Char4;
end;
PT2=^T2;
T2=record
B1:T1;
B2:Char4;
B3:longint;
end;
T3=record
C1:Char4;
end;
var S1,S2:String;
procedure trifich(P1,P2,P3:string; P4:boolean);
begin
if P4 then WriteLn(P2+P3+'IN '+P1);
end;
var V1:PT2;
V2:T3;
begin
new(V1);
s1 := 'abc';
s2 := 'def';
with v1^ do
begin
b1.a1 := '1234';
b1.a2 := '5678';
b1.a3 := 'ghij';
b2 := '0000';
b3 := longint(char4('9999'));
end;
v2.c1 := 'wxyz';
TriFich(S1+S2,
V1^.B1.A1+V1^.B1.A2+V1^.B1.A3+V1^.B2+Char4(V1^.B3)+#13#10,
V1^.B1.A1+V1^.B1.A2+V1^.B1.A3+V2.C1+Char4(V1^.B3)+#13#10,true);
end.
|
