Wertezuweisung Record ohne Punktnotation

[mirage228]

Du könntest Dir eine Funktion / Prozedur dafür schreiben.

Delphi-Quellcode:

procedure FillRecord(var R: TMyRec; A1, A2, A3, A4: Currency);
begin
  with R do
  begin
    X1 := A1;
    X2 := A2;
    X3 := A3;
    X4 := A4;
  end;
end;

der Aufruf wäre dann:

Delphi-Quellcode:

var 
  x: TMyRec; 
begin 
  FillRecord(x, 1.2, 2.3, 3.4, 4.5);
end;