50 Records nacheinander über eine Schleife ansprechen?

[sAibo]

Hallo alle zusammen :)

Also mein Problem:
Ich brauche 50 Records, die ich später alle mit unteschiedlichen Werten belgen will.
Es geht von kt1, kt2, kt3 ... bis kt50;
Da ich nicht jedesmal im Code stehen haben will

Delphi-Quellcode:

kt1.a:=wert1;
kt1.b:=wert2; usw.

Dachte ich natürlich an eine Schleife

Delphi-Quellcode:

 
for i:=1 to 50 do         // 50 karten durchlaufen
     begin
          karte.Atk:=wert1;
          karte.Def:=wert2;
          karte.Level:=wert3;
          karte.Mode:=wert4;
          karte.Haltbarkeit:=wert5;
     end;

Für Karte soll dann jeweils kt1, kt2, kt3 usw stehen
Also z.B.

Delphi-Quellcode:

karte:=('kt'+IntToStr(i));

Wenn ich dass jedoch so lösen will, dann erkennt er mir Karte nicht mehr als das eigentliche Record kt1, kt2, kt3... usw. sonder halt als String, dessen Wert so aussieht wie der Name des Records :(


Wie bekomme ich es hin, dass er jedes mal den richtigen Record anspricht (Alle 50 nacheinander durch)?


Danke schon mal im voraus

Gruß Tobias

[Chewie]

Wieso nimmst du kein Array?

[BluesKid]

Moin moin

Probiers doch mal mit nem array deines records


schönen Gruß

Sam

[Sharky]

Hai sAibo,

benutzte doch einfach ein Array[1..5] of TDeinRecordType und spreche in deiner Schleife dann die Records über das Array an.

[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

[sAibo]

huii... ging aber schnell und ist eigentlich auch klar =)

vielen Dank an alle