Frage : Ik Akte überprüfen existieren

Liebe Experten,

I haben dieses, zum der 3 listviews zu file.

procedure TMainForm.FormClose (Sender zu laden und zu sparen: TObject; var-Tätigkeit: TCloseAction);
begin
SaveListViewToFile (lstvGlucose, „Glucose.sav ");
SaveListViewToFile (lstvBolus, „Bolus.sav ");
SaveListViewToFile (lstvFoodDB, „FoodDB.sav ");
end;
(*---------------------------------------------------*)
procedure TMainForm.FormCreate (Sender: TObject);
begin
LoadListViewToFile (lstvGlucose, „Glucose.sav ");
LoadListViewToFile (lstvBolus, „Bolus.sav ");
LoadListViewToFile (lstvFoodDB, „FoodDB.sav ");
end;

But, wenn ich meine Anwendung das erste mal die Akten beginne, tut nicht Ausgänge yet.
so, ich erhalten 3mal eine Fehlermeldung. Wie ich this.
That zuerst verhindern kann das programm, schauen, wenn das fileexist otherwist it.

P verursachen

Antwort : Ik Akte überprüfen existieren

Gegründete Lösung ist sehr kreativ, aber fällt vorbei die Akten wird gespeichert (oder geladen von), im Anwendungsfaltblatt folglich zurück
   ExtractFilePath (Application.ExeName)    ist nicht notwendig.