auf ein Record in einem Record in einer Schleife zugreifen

[soulies]

hoi,

Delphi-Quellcode:

type
  Tyyy = record
     a:string;
     b:integer;
     c:Double;
  end;

type
  Txxx = record
     Value:string;
     y1 : Tyyy ;
     y2 : Tyyy ;
     y3 : Tyyy ;
  end;

var
  xxx : Txxx ;

wie kann ich nun in einer Schleife von 1-3 über die Variable 'xxx' auf das entsprechende 'y' zugreifen ?

so nach dem Motto:

Delphi-Quellcode:

with xxx do
begin
  for i:=1 to 3 do
  begin
    (Find...(Format('y%d',[i])) as Tyyy).a := '...' ;
  end;
end;

cya

[himitsu]

Wenn du hier nicht mit Pointerarithmetik anfangen möchtest, dann bleibt dier nur der Weg über ein Array.

Delphi-Quellcode:

Txxx = record
  Value: string;
  y: array[1..3] of Tyyy;
end;

[soulies]

hallo himitsu,

danke für deine antwort ...

wie würde denn eine lösung über pointer aussehen ?


cya