Wertezuweisung Record ohne Punktnotation

[Mr_G]

Ich glaube ab Delphi 2006 gehen auch solche schmucken Sachen:

Delphi-Quellcode:

type TMyRec = record 
  x1,x2,x3,x4 : Currency;
  constructor Create(v1, v2, v3, v4: Currency);
  //oder: 
  procedure SetValue(v1, v2, v3, v4: Currency); 
end;
...
procedure TMyRec.Create(v1, v2, v3, v4: Currency);
begin
  x1 := v1; 
  x2 := v2; 
  x3 := v3; 
  x4 := v4; 
end;

procedure TMyRec.SetValue(v1, v2, v3, v4: Currency);
begin
  x1 := v1; 
  x2 := v2; 
  x3 := v3; 
  x4 := v4; 
end;
...

Und benutzt wird es dann so:

Delphi-Quellcode:

var  x: TMyRec;
begin
  x := TMyRec.Create(1.2, 2.3, 3.4, 4.5);
  x.SetValue(5.2, 6.3, 7.4, 8.5);
end;