Genau dies macht ja die procedure init.
Code: Alles auswählen
program Project1;
{$modeswitch typehelpers}
type
TVec2 = array[0..1] of single;
TVec2fHelper = type Helper for TVec2
procedure init;
end;
procedure TVec2fHelper.init;
begin
Self := [0, 1];
end;
var
v: TVec2;
begin
v.init; // project1.lpr(21,3) Warning: Variable "v" does not seem to be initialized
WriteLn(v[0], v[1]);
end.
Code: Alles auswählen
var
v: TVec2 = (0, 0);
Code: Alles auswählen
{$WARNINGS OFF}
v.init; // project1.lpr(21,3) Warning: Variable "v" does not seem to be initialized
{$WARNINGS ON}