50 Records nacheinander über eine Schleife ansprechen?

[Markus K.]

Hallo sAibo,
verwende doch ein Array.
z.B.

Delphi-Quellcode:

type Karte=Record
        Atk:Integer;
        Def:Integer;
        //...
     end;
var
  Form1: TForm1;
  kt:Array[1..50]of Karte;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
begin
     for I:=1 to 50 do
     begin
          kt[I].Atk:=..;
          kt[I].Def:=..;
     end;
end;

Tschüß Markus