david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
11 lines
168 B
Plaintext
11 lines
168 B
Plaintext
Program IFSTest;
|
|
type
|
|
TMyRec = record a: Integer; b: string; end;
|
|
var
|
|
s: TMyRec;
|
|
Begin
|
|
s.a := 1234;
|
|
s.b := 'abc';
|
|
writeln(s.b);
|
|
writeln(inttostr(s.a));
|
|
End. |