Questione : Controllare la lima del ik esistono

I cari esperti, il

I hanno questo per caricare e conservare i 3 listviews a file.

procedure TMainForm.FormClose (Sender: TObject; azione di varietà: 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; il

But quando inizio la prima volta la mia applicazione le lime non fa uscite yet.
so, io ottiene a 3 volte un messaggio di errore. Come posso impedire this.
That il programm in primo luogo osservare se il otherwist di fileexist genera it.

P
class= del

Risposta : Controllare la lima del ik esistono

La soluzione fondata è molto creativa, ma per difetto le lime saranno conservate (o saranno caricato da) nel dispositivo di piegatura di applicazioni quindi
   ExtractFilePath (Application.ExeName)    è inutile.
Altre soluzioni  
 
programming4us programming4us