Fehlermeldung wegbekommen

[bushido1221]

Hi hab so ein persönliches Programm geschrieben für mich und meine Freunde für das Spiel Spacepioneers

Ja zum Problem:
Ich speichere die daten mit

Delphi-Quellcode:

Listbox1.items.savetofile('Planeten.sp');
Memo1.Lines.SaveToFile('Pläne.sp');

und öffne sie mit

Delphi-Quellcode:

Listbox1.items.LoadFromFile('Planeten.sp');
Memo1.lines.LoadFromFile('Pläne.sp');

Wenn mann das Programm das erste mal startet kommen Fehlermeldungen wie

"Die datei Planeten.sp wurde nicht gefunden"

Wie kan ich die wegbekommen???

ist nicht sehr schwer die Frage aber hab nen Hänger

mfg bushido1221

[Balu der Bär]

Sicher das diese Datei auch im selben Pfad wie die Exe liegt? Vielleicht solltest du lieber mit ExtractFilePath + Dateiname arbeiten.

[BenjaminH]

@Bdb, ich glaube da existiert die Datei bewusst nicht.

@bushido:
Fehler kann man mit

Delphi-Quellcode:

try
//Anweisung mit Fehlermöglichkeiten
Except
//Fehlerbehandlung
end;

abfangen.
Damit dürfte der Anwender die nicht abbekommen, in der IDE werden die aber weiterhin angezeigt.

[3_of_8]

Noch einfacher wäre es, das ganze vorher mit fileexists() abzusichern. Spart Exceptions.

[bushido1221]

Danke schonmal für die Antworten
Mit diesen try,except un so kenn ich mich net so aus


Listbox1.items.LoadFromFile('Planeten.sp');
Memo1.lines.LoadFromFile('Pläne.sp');

try
//Anweisung mit Fehlermöglichkeiten
Except
Showmessage('TEST');

geht aber immer noch nicht

[Balu der Bär]

Delphi-Quellcode:

try
 Listbox1.items.LoadFromFile('Planeten.sp'); 
 Memo1.lines.LoadFromFile('Pläne.sp');
except
 ShowMessage('Fehler');
end;

[bushido1221]

Danke funktioniert

[Eichhoernchen]

Zitat von bushido1221:

Danke schonmal für die Antworten
Mit diesen try,except un so kenn ich mich net so aus


Listbox1.items.LoadFromFile('Planeten.sp');
Memo1.lines.LoadFromFile('Pläne.sp');

try
//Anweisung mit Fehlermöglichkeiten
Except
Showmessage('TEST');

geht aber immer noch nicht

Meinst du das jetzt ernst?


du musst schon die befehle in den try abschnitt stecken.

Aber besser finde ich auch noch:

if FileExists('Dateiname') then {lade Datei}