Entwickler-Ecke

Sonstiges (Delphi) - Copy Probleme


HBriele - Mi 03.08.05 23:05
Titel: Copy Probleme
:?:

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 user profile iconmatze: Code- durch Delphi-Tags ersetzt.


BenBE - 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!