12 lines
208 B
ObjectPascal
12 lines
208 B
ObjectPascal
|
var
|
||
|
|
MyRecord: record
|
||
|
|
x, y, z: real;
|
||
|
|
presence: boolean;
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
MyRecord.x := 0.3;
|
||
|
|
MyRecord.y := 3.2;
|
||
|
|
MyRecord.z := -4.0;
|
||
|
|
MyRecord.presence := true;
|
||
|
|
end;
|