Nach CreateFile Datei wieder löschen?

Pyr0cracker · Verfasst: Mi 26.03.03 11:05

Hi, ich habe folgendes Problem:
Mein Programm erstellt mit CreateFile('bla') dateien. ich möchte sie aber danach sofort wieder löschen.

markieren

Quelltext

1:
2:
3:
4:

createfile('bla.bla');
showmessage('datei wurde erstellt');
deletefile('bla.bla');
showmessage('datei wurde gelöscht.');

wenn ich nur deletefile mache und die datei schon existiert, funzt es.
und wenn ich die Datei erstelle, das programmbeende und wieder starte, kann ich sie auch löschen.
Nur wenn sie direkt hintereinandererstellt und wieder gelöscht werden soll gehts nicht.

Ich freue auf Antworten.

Teutobod · Beiträge: 55

Hallo Pyr0cracker!

createfile gibt dir einen Handle zurück und über diesen Handle musst du die Datei erst schließen bevor du sie löschen kannst.

markieren

Quelltext

1:
2:
3:
4:
5:

var FileHandle : Integer;

FileHandle := filecreate('c:\bla.bla');
FileClose(FileHandle);
if deletefile('c:\bla.bla') = true then showmessage('gelöscht');

mfg Teutobod

ShadowCaster · Beiträge: 312

ich setz noch eines oben drauf:

markieren

Quelltext

1:
2:
3:

var FileHandle : Integer; 
FileClose(filecreate('c:\bla.bla')); 
if deletefile('c:\bla.bla') then showmessage('gelöscht');

Teutobod · Beiträge: 55

So gehts natürlich auch. Aber verständlicher für ihn ist sicher meins. Er solls ja auch verstehen, nicht nur kopieren und verwenden. Auf den Rest wird er sicher noch draufkommen.

ShadowCaster · Beiträge: 312

sicher doch. Sollte doch nichts gegen deine Programmierkünste sein. So wie du es gemacht hast, ist der Code absolut verständlich und lesbar.

Ich persönlich bevorzuge die Variante, alles direkt durch die Funktionen zu pipen und deren Results direkt in einer Zeile zu verwenden.
So wie ich das sehe, geht es noch kürzer ohne Handle:

markieren

Quelltext

1:
2:

FileClose(filecreate('c:\bla.bla')); 
if deletefile('c:\bla.bla') then showmessage('gelöscht');

Teutobod · Beiträge: 55

In deinem vorherigen Post hast du die Variable eh nicht verwendet, nur versehentlich stehen gelassen. :wink:

Pyr0cracker · Verfasst: Mi 26.03.03 17:55

Wunderbar!
Danke für Beides

wulfskin · Verfasst: Mi 26.03.03 18:56

Nur mal so nebenbei: Wür was brauchst du überhaupt diese "komische" Methode?

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme