Einzelnen Beitrag anzeigen

Benutzerbild von Nalincah
Nalincah

Registriert seit: 18. Jul 2003
898 Beiträge
 
Delphi 6 Professional
 
#4

Re: #32 mit FileStream in Datei schreiben klappt nicht

  Alt 2. Aug 2004, 15: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
  Mit Zitat antworten Zitat