for I := 0 to... do... - Es funtioniert einfach nicht!

[F.W.]

Hallo,

habe heute ein Programm programmiert, in dem zwei for...do Schleifen in einander vorkommen.
Ich hatte mit sowas noch nie Probleme...
Ich habe die Anweisungen mal rot gefärbt(wo das Programm angehalten wird und mir zeigt, welchen Code es gerade verarbeitet) die erste Schleife wird erledigt, aber bei der Zweiten tut das Programm so, als wäre es eine simple Einmal-Anweisung. Man könnte also sagen, dass alles was nach der zweiten Schleife steht, nicht beachtet wird.
Naja, ich habe den Code mal mit gebracht, obwohl es daran nicht liegen kann, da es der selbe Quellcode ist, wie ich ihn schon benutzt habe, nur die Objekte heißen anders(ich habe ein "altes" Programm nochmal neu geschrieben)

Delphi-Quellcode:

 for V := 0 to (FileListBox1.Items.Count-1) do begin
     for C := 0 to (ListBox1.Items.Count-1) do begin
         Anweisungen...
     end;
 end;

Warum geht es bei dem anderen Programm und bei der neuen Version nicht??

[Christian Seehase]

Moin F.W.,

lass Dir doch mal den Wert von

ListBox1.Items.Count anzeigen.
Wenn der 1 ist wird die Schleife natürlich auch nur einmal abgearbeitet.

Ansonsten seh' ich nichts, was da ein Problem wie Du es geschildert hast mit sich bringen könnte.

[F.W.]

Ich habe es überprüft, es waren immer 4 Einträge oder mehr drin.
Dann habe ich mal "ShowMessage('Ok!');" an die Stelle von "Anweisung..." gesetzt, aber es kam nicht einmal!

Kann es an irgendwelchen Einstellungen von Delphi liegen?

Danke trotzdem!

[Christian Seehase]

Moin F.W.,

also erklären kann ich mir das so wirklich nicht.
Du könntest höchstens mal das Projekt hier anhängen, vielleicht kann man da mehr herausbekommen.

[F.W.]

Okay, es geht jetzt, ich habe die Schleifenvariablen umbenannt und die Procedure nochmal neu geschrieben.

Trotzdem, sowas ist mir noch nie passiert...

Trotzedm danke!!