Zitat von
The_Cypher:
... und somit ein ungewolltes Überschreiben unmöglich macht ???
Prüfe vor dem Erstellen der Datei, ob sie schon existiert
Delphi-Quellcode:
IF FileExists(FileName) THEN
BEGIN
IF MessageDlg('Datei existiert bereits. Soll sie überschrieben werden?', mtConfirmation, [mbYes,mbNo], 0) = mrYes THEN
BEGIN
{ Datei anlegen usw. }
END;
END
ELSE { Datei anlegen usw. }
Gruß
Stephan
Für Fehler und Schrift haftet der Stift
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...