Problem mit Filecreate Methode.

Blamaster · Beiträge: 164

Hi,

ich wollte folgende abfrage realisieren:

Delphi-Quelltext

1:
2:
3:
4:

If not FileExists('C:\pw.txt') then 
begin
Filecreate('C:\pw.txt')
end;

Soweit funktioniert es auch noch, nur danach soll aus dem File gelesen werden und es kommt folgender Error:

Auf pw.txt kann nicht zugegriffen werden, da ein anderer prozess diese Datei verwendet oder so ähnlich.

Wie kann ich das Problem umgehen ?

Corpsman · Beiträge: 228 KUbuntu 10.4 Lazarus

wie willst du denn aus einer Datei Lesen die du gerade erstellt hast ??

die ist doch dann eh leer.

Hast du's schon mal mit Filestreams ( TFilestream ) probiert ?

oder wenn du nur strings speicher willst kannst auch ( TTextfile ) nehhmen.

_________________
--
Just Try it.

Blamaster · Beiträge: 164

Sinn der Sache ist das im Programm die Datei pw.txt in eine Listbox geladen wird.

Wenn die Datei pw.txt nun nicht exisitiert gibt es beim starten vom Programm nen Error.

Deswegen soll gleich am anfang wenn die Datei pw.txt nicht existiert pw.txt erstellt werden. Dann wird zwar nichts in die Listboxgeladen, aber es gibt keinen error und das Programm kan starten.

Edit. Hab das problem jetzt anders gelöst. Er soll jetzt einfach erst die Datei in die Listbox laden wenn sie auch existiert.

Corpsman · Beiträge: 228 KUbuntu 10.4 Lazarus

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var f:Tfilestream;
begin
f := Tfilestream.create('Dateiname',fmcreate or fmopenwrite);
f.free;
..

Dieser Code würde eine Datei erstellen wenn sie noch nicht existiert, annderfalls würde nichts passieren ;=).

_________________
--
Just Try it.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme