Ich empfehle dir auch, daß du lernst den Debugger zu nutzen,
denn da wäre dir sofort aufgefallen, daß ShowMessage immer wieder aufgerufen wird, womit es natürlich zwangsweise mehrfach angezeigt werden muß.
Und ja, ein gewisses "Code-Verständnis" hätte natürlich auch ohne Debuggen und Co. hier die Lösung gezeigt:
> Wenn man etwas in eine Schleife reinmacht, dann wird es eventuell (1) mehrmals ausgeführt.
(siehe
Bummi Thomas, welcher das "Problem" bestimmt auch so "gesehn" hat)
1: Ausgenommen nach dem ersten Schleifendurchlauf ist Schluß, bzw. die Schleife wird überhaupt durchlaufen.
PS: Das eigentliche Problem ist
i
, denn das wird irgendwie nirgendwo hochgezählt.
Zitat:
Delphi-Quellcode:
while i < fileListBox1.Items.count do begin // alle Dateien in der Liste durchlaufen
Memo2.Lines.LoadFromFile(fileListBox1.FileName); // aber immer wieder nur die aktuell selektierte Datei verwenden
Die beiden Codezeilen sind natürlich auch etwas wiedersprüchlich.