Wertezuweisung Record ohne Punktnotation

[asusbob]

Huhu,

ich hab wahrscheinlich ne recht simple frage:
ich hab nen record:

Delphi-Quellcode:

myrec = record
          x1,x2,x3,x4 : currency;
        end;

und ich möchte dem werte zuweisen ohne diese Punktnotation also sowas wie:

Delphi-Quellcode:

[...]
var x : myrec;
begin
x := (1.2,2.3,3.4,4.5);
[...]

gibbet da ne Möglichkeit, ich hab leider noch nix gefunden.

Viele Grüße =)

[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;

[asusbob]

Jaaa, das wäre auch ne Alternative... aber eine vorgefertigte Methode gibts da nicht?

Danke schonmal :)

[Apollonius]

Falls du wirklich einen konstanten Record zuweisen willst, kannst du eine typisierte Konstante deklarieren und dann diese zuweisen. Das sähe dann so aus:

Delphi-Quellcode:

const MyRecordConst: TMyRecord = (a: 1; b: 5; c: 4.5);

[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;

[Hawkeye219]

Hallo,

Delphi-Quellcode:

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

Wer kann mir in einem Jahr noch sagen, welcher Wert welchem Recordfeld zugewiesen wird?

Man sollte bei aller Liebe zu kompaktem Code die Lesbarkeit nicht aus den Augen verlieren.

Gruß Hawkeye

[Mr_G]

Zitat:

Zitat von Hawkeye219

Wer kann mir in einem Jahr noch sagen, welcher Wert welchem Recordfeld zugewiesen wird?

Man sollte bei aller Liebe zu kompaktem Code die Lesbarkeit nicht aus den Augen verlieren.

Lesbarkeit ist sehr wichtig, das stimmt schon, aber in dem Beispiel handelt es sich ja um einheitliche Zahlenwerte, die dazu noch als x1 bis x4 durchnummeriert sind. Eine logische Reihenfolge ist damit also gegeben (wie z.B. auch bei Rect etc.). Hat man jetzt sogar noch viele derartige Zuweisungen im Code macht es das ganze sogar wesentlich übersichtlicher.

P.S.: Das ganze unter der Vorraussetzung, dass man sich konsequent an einen Weg hält und nicht alles mischt.