22 lines
294 B
Plaintext
22 lines
294 B
Plaintext
program TypeTest;
|
|
|
|
type TTest=record
|
|
x,y: integer;
|
|
bla: string[20];
|
|
end;
|
|
|
|
var Test: TTest;
|
|
f: file of TTest;
|
|
|
|
begin
|
|
Assign(f,'test.dat');
|
|
Rewrite(f);
|
|
Test.x := 5;
|
|
Test.y := 10;
|
|
Test.bla := 'This is only a test!!';
|
|
Write(f, Test);
|
|
|
|
|
|
|
|
end.
|