Variabel in Aufruf

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