Funktion erweitern

[xZise]

Zitat von Teekeks:

Zitat von himitsu:

@Teekeks:
* nicht das FindClose vergessen
* die For-Schleife brauchst du nicht mit diesem IF absichern (ist da schon eingebaut)

Ok, FindClose fehlt tatsächlich, aber nehmen wir mal an es gibt einen Ordner der keine Dateien enthält, schon benötigt man das if wieder […]

Nein Himitsu hat recht. Wenn wir die folgende For-Schleife haben:

Delphi-Quellcode:

for i := a to b do
  c();

Dann wird der Befehl c genau Max(b - a + 1, 0)× ausgeführt Wenn also keine Dateien existieren, dann ist High(<empty array>) = -1 und damit ist -1 - 1 + 1 = -1 < 0 → es wird 0× ausgeführt.

Man könnte es auch so ausdrücken:

Delphi-Quellcode:

i := a;
while i ≤ b do
begin
  c();
  Inc(i);
end;

Du siehst also, wenn a > b, dann wird die Schleife nie durchlaufen.

MfG
Fabian

PS: @Himi: Wozu zwei Proceduren?