Zugriffsverletzung bei zweiter for-schleife.

[Banetel.eu]

Thema ist wahrscheinlich noch nicht zu ende

Jetzt kommt zwar kein Fehler mehr sondern es bricht die Schleife nach 1 Durchlauf ab

Delphi-Quellcode:

for S := 1 to 25 - 1 do begin
showmessage(inttostr(S));
  if TEdit(findcomponent('Edit_Mann_' + inttostr(S))).Text = '' then begin
   Mannschaft[S].name          := 'Mannschaft' + InttoStr(S) ;
   Mannschaft[S].trainer.name  := 'Trainer' + InttoStr(S) ;
    for I := 0 to 11 do begin
     mannschaft[S].spieler[I].name            := 'Spieler'+InttoStr(S)+','+InttoStr(I);
     mannschaft[S].spieler[I].bundesligatore  :=   0;
     mannschaft[S].spieler[I].nationalspieler :=   false;
     mannschaft[S].spieler[I].gehalt          :=   105;
   end;
  end else begin
   Mannschaft[S].name          := TEdit(findcomponent('Edit_Mann_' + inttostr(S))).Text ;
   Mannschaft[S].trainer.name  := TEdit(findcomponent('Edit_Trainer_' + inttostr(S))).Text ;
    for I := 0 to 11 do begin
     mannschaft[S].spieler[I].name            := TEdit(findcomponent('Edit_Spieler'+inttostr(S)+'_' + inttostr(I))).Text ;
     mannschaft[S].spieler[I].bundesligatore  :=   0;
     mannschaft[S].spieler[I].nationalspieler :=   false;
     mannschaft[S].spieler[I].gehalt          :=   105;
   end;
 end;

// Nachtrag

Zitat:

Da "verschenkst" Du immer ein Element, da ein array bei 0 anfängt.

Diesmal geht es bei 1 los

   spieler : array[1..11] of TSpieler