Variabel in Aufruf

[Banetel.eu]

Ist wahrscheinlich ein Anfängerproblem aber ich habe bis jetzt auch noch nichts dazu hier gefunden.

Undzwar geht es darum, das ich eine Variabel in einen Aufruf brauche um nicht alles duzend mal zu kopieren und immer nur eine Zahl ändere.


Also hier mal den Code wie ich ihn mir vorstellen (so geht er natürlich nicht).
Ich hoffe dafür gibt es eine Lösung.

Delphi-Quellcode:

for I1 := 0 to 3 - 1 do begin
Mannschaft{I1}.name          :=  Edit{I1}_Mann.Text;
Mannschaft{I1}.trainer.name  :=  Edit{I1}_Trainer.Text;
  for I := 0 to 11 do with mannschaft{I1}.spieler[I] do begin
    name            :=   Edit{I1}_Spieler.{I}.Text;
    alter           :=   20;
    bundesligatore  :=   0;
    nationalspieler :=   false;
    gehalt          :=   1000;
  end;
end;

Wie man schon sieht müsste ich wenn so oder so ähnlich nicht geht 3 * 11 + 3 * 2 fast identische Zuweisungen machen wo ja nur die Zahlen 1-3 bzw. 1-11 anders sind machen

MfG

[Matze]

Hallo, herzlich Willkommen!

Zugegeben, ganz habe ich deinen Code nicht nachvollziehen können.

Zitat von Banetel.eu:

Delphi-Quellcode:

Mannschaft{I1}.name ...
Mannschaft{I1}.trainer.name ...

Hierfür könntest du ein Array nutzen, das aus Records besteht.

Zitat von Banetel.eu:

... Edit{I1}_Spieler.{I}.Text;

Um auf Komponenten zugreifen zu können, dessen Namen sich nur in einer fortlaufenden Zahl zu unterscheiden, kannst du FindComponent nutzen. Was du allerdings mit .{i}. meinst, weiß ich nicht.

Gruß

[Banetel.eu]

// EDIT


So habe es geschaft

Delphi-Quellcode:

for S := 1 to 4 - 1 do begin
 Mannschaft[S].name          := TEdit(findcomponent('Edit_Mann_' + inttostr(S))).Text ;
 Mannschaft[S].trainer.name  := TEdit(findcomponent('Edit_Trainer_' + inttostr(S))).Text ;
   for I := 1 to 11 do begin
     mannschaft[S].spieler[I].name            := TEdit(findcomponent('Edit_Spieler'+inttostr(S)+'_' + inttostr(I))).Text ;
     mannschaft[S].spieler[I].alter           :=   20;
     mannschaft[S].spieler[I].bundesligatore  :=   0;
     mannschaft[S].spieler[I].nationalspieler :=   false;
     mannschaft[S].spieler[I].gehalt          :=   1000;
   end;
end;