Bei Exception Aktion mehrmals versuchen?

[blackdrake]

Hallo.

Eigentlich eine simple Fragestellung, aber ich komme einfach nicht dahinter, wie ich das am besten realisieren soll.

Eine Prozedur liest eine Datei in eine TStringList, macht damit was, und schreibt wieder.

Delphi-Quellcode:

var
  x: TStrings;
begin
  x := TStringList.Create();
  try
    x.LoadFromFile('test.txt');

    x.SaveToFile('test.txt');
  finally
    x.Free;
  end;
end;

Jetzt hat mich ein Freund angeschrieben, dass bei ihm der Fehler "Auf die Datei kann nicht zugegriffen werden, da von einem anderen Prozess verwendet" einmalig kam, er jedoch zu dem Zeitpunkt nicht am PC war und auch nicht an der Datei rumgespielt haben kann.

Programmintern fand ich keine Stellen, die parallel laufen würden und somit den Fehler von selbst auslösen könnten.

Trotzdem möchte ich nun für den Fall der Fälle ein Exception-Handling sowohl für LoadFromFile() als auch für SaveToFile() machen.

Das Problem nun: Ich möchte nicht nur eine Meldung ausgeben, sondern den Lade/Schreibversuch n Mal wiederholen lassen mit einem Interval von 1 Sekunde dazwischen. Und das erachte ich als sehr kompliziert, da ich ja nicht so einfach die Zeile im Try-Block wiederholen kann.

Delphi-Quellcode:

try
  x.LoadFromFile('test.txt');
except
  // Wiederhole Aktion
end;

Mit Labels wäre das zum einen nicht zu lösen, da innerhalb eines finally-blocks, zum anderen natürlich völlig unprofessionell.

Mir ist nur die Idee mit einer Prozedur gekommen:

Delphi-Quellcode:

procedure Schreibe(x: TStrings; y: string; c: integer);
begin
  try
    x.SaveToFile(y);
  except
    // Windows-Meldung wird die ersten 10 Sekunden unterdrückt
    if c > 10 then
      raise;
    else
    begin
      Sleep(1); // Sek.
      Schreibe(x, y, c+1); // Wiederhole
    end;
  end;
end;

Schreibe(x, y, 0);

Irgendwie kommt es mir aber trotzdem unprofessionell vor, die Funktion Schreibe bei jedem Fehlschlag rekursiv aufzurufen, sodass die Aufrufinstanzen sich überlagern. Gibt's da keine bessere Variante des Wiederholens einer Aktion?

Gruß
blackdrake

[Dax]

Mit einer externen Schleife würde es auch funktionieren.

Delphi-Quellcode:

c := 10;
valid := false;
while (c >= 0) and not valid do begin
  try
    // ...
    valid := true;
  except
    dec(c);
    if c < 0 then
      raise
    else
      Sleep(1);
  end;
end;

[blackdrake]

Hallo.

Vielen Dank für den Tipp. Die Idee mit der Schleife anstelle einer Prozedur mit drittem Parameter ist mir nicht gekommen.

Gruß
blackdrake