Wie kann ich mit FileOpen & FileWrite eine Datei leeren?

Aton · Beiträge: 125 Windows XP D7 Enterprise

Hallo Forum,

wie kann ich folgende Datei leeren? :?!?:

Delphi-Quelltext

1:	HFile := FileOpen(FileName, fmOpenReadWrite or fmShareExclusive);

Das Beschreiben und Auslesen klappt alles wunderbar. Zum Beispiel einen String anfügen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

FileSeek(HFile, 0, 2); { Ans Ende der Datei }
sZeile := 'Eine neue Zeile.'#13#10;
FileWrite(HFile, sZeile[1], Length(sZeile));
FileClose(HFile);

Aber ich habe keine Ahnung, wie ich sie leeren soll?

Vielen Dank,
schöne WE,
Grüße Jens.

jaenicke · Verfasst: Fr 14.05.04 13:06

Öffne sie mit fmCreate statt fmOpenReadWrite! Dann ist sie danach leer und falls sie noch nicht existiert, wird sie angelegt.

Aton · Beiträge: 125 Windows XP D7 Enterprise

Hallo Jaenicke,

ich glaube das geht bei meinem Problem nicht.

Ich möchte nämlich eine Datei von zwei Programmen nutzen lassen. Eines beschreibt sie, eines liest sie aus. Nun muß ich sicherstellen, dass wenn die Datei ausgelesen wird, sie sofort geleert wird, damit nicht zwischendurch ein neuer Satz reingeschrieben werden kann. (deswegen auch: fmShareExclusive)

Wenn ich sie erst auslesen lasse und danach lösche, könnte inzwischen ein Datensatz reingeschrieben werden, der dann verloren geht.

Ich brauche eine Möglichkeit, die Datei zu lesen und gleich darauf zu leeren.

Gruß Jens.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme