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