Zugriffsverletzung bei zweiter for-schleife.

[BKempf]

Delphi-Quellcode:

for S := 1 to 4 - 1 do begin

für die 3 Mannschaften 1-3, oder

Delphi-Quellcode:

for S := 0 to 4 - 1 do begin

für die 4 Mannschaften 0-3?

Nur der Vollständigkeit halber...

[alex517]

man könnte es sich auch bequem machen:

Delphi-Quellcode:

for S := low(Mannschaft) to high(Mannschaft) do 
begin
  Mannschaft[S].name          :=  'TEST';
  Mannschaft[S].trainer.name  :=  'TEST';
  for I := low(spieler) to high(spieler) do 
  begin
     mannschaft[S].spieler[I].name            :=  'TEST';

alex

[Banetel.eu]

CO

fiel fiel dank für

Delphi-Quellcode:

for S := low(Mannschaft) to high(Mannschaft) do

[Muetze1]

[OT]

Zitat:

Zitat von Banetel.eu

fiel fiel dank für

Wohin denn? Wo kam es auf?
[/OT]

[Die Muhkuh]

Zitat:

Zitat von Muetze1

[OT]

Zitat:

Zitat von Banetel.eu

fiel fiel dank für

Wohin denn? Wo kam es auf?
[/OT]

[ot]
:mrgreen:
[/ot]

[Banetel.eu]

Thema ist wahrscheinlich noch nicht zu ende :-D

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

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

Delphi-Quellcode:

   spieler         :   array[1..11] of TSpieler

[Muetze1]

Zitat:

Zitat von Banetel.eu

Diesmal geht es bei 1 los

Delphi-Quellcode:

   spieler         :   array[1..11] of TSpieler

Und warum laufen deine Schleifen in dem geposteten Quellcode noch von 0 los, wenn du es selber so schön weisst?

Und warum hast du anscheinend keine Bereichsprüfung und Überlaufprüfung in den Projektoptionen eingeschaltet?

[Banetel.eu]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von Banetel.eu

Diesmal geht es bei 1 los

Delphi-Quellcode:

   spieler         :   array[1..11] of TSpieler

Und warum laufen deine Schleifen in dem geposteten Quellcode noch von 0 los, wenn du es selber so schön weisst?

Und warum hast du anscheinend keine Bereichsprüfung und Überlaufprüfung in den Projektoptionen eingeschaltet?

Ich Code wo ich angehängt habe ist die for schleife so for I := 1 to 11 do begin also schon richtig ist nur oben nicht die neuste Version, geht aber immer noch nicht :wink:

[Muetze1]

Und was ist mit der Bereichsprüfung? Eingeschaltet und Projekt neu erstellt?

[Banetel.eu]

Hat sich erledigt jetzt geht alles.

Irgendwann habe ich es vergessen und jetzt geht es - einfach so :cheers: