Registriert seit: 18. Jul 2003
898 Beiträge
Delphi 6 Professional
|
Re: #32 mit FileStream in Datei schreiben klappt nicht
2. Aug 2004, 16:50
Zitat von MathiasSimmack:
Lass mal das with spaßeshalber weg:
ft.Write(#32,3);
Da laut Hilfe ja eine Konstante erlaubt ist, könnte es sein, dass sich hier das "Write" vom File-Stream und der gleichnamige Delphi-Befehl "Write" (den man bspw. zum Schreiben in typisierte Dateien nutzt:
Delphi-Quellcode:
AssignFile(f,'Datei.txt');
Write(f,'Hallo');
{ ... }
) in die Quere kommen. Ist aber nur eine Vermutung.
Gleicher Fehler.
Ich versuche es momentan so:
Delphi-Quellcode:
var
s : string;
begin
// Datei erstellen und öffnen
FileName := Edit1.Text + '\EV01';
ft := TFileStream.Create(FileName,fmCreate);
try
ft.Write('001',3);
FillChar(s[1],3,#32); // <-- Hier krieg ich ne Schutzverletzung!! Warum??
ft.Write(s[1],3);
ft.Write('1234567',7);
ft.Write('HansMeiser',9);
ft.Write(s[1],1);
ft.Write('00001',5);
ft.Write('00001',5);
FillChar(s[1],95,#32);
ft.Write(s[1],95);
finally
ft.Free;
end;
end;
Sebastian Ehemals bekannt als General2004
|
|
Zitat
|