Copy Probleme

HBriele · Beiträge: 80

Hallo,
weis jemand, wie ich ein except-Anweisung abfrage?
Ich benutze folgende Anweisung zum kopieren!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

 try
   DataFile:=TMemoryStream.Create;         
   DataFile.LoadFromFile(FSorce);
   DataFile.SaveToFile(FDest);
 finally
   DataFile.Free;
 end;

Ist nun aber die Disk Voll, bekomme ich eine Fehlermeldung.
Wie kann ich das Abfangen ohne das mein Programm hängt ?

Gruß

Moderiert von matze: Code- durch Delphi-Tags ersetzt.

BenBE · Verfasst: Do 04.08.05 01:23

1. Objekt-Initialisierungen gehören VOR den Try-Finally-Block
2. Keine Dateien VOLLSTÄNDIG in TMemory-Streams laden, deren Größe nicht geprüft wird.
3. In Zeile 3 ein try ergänzen
4. In Zeile 7 ein except ShowMessage('Fehler!!!'); end; ergänzen
5. Über Ergebnis freuen!

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme