#32 mit FileStream in Datei schreiben klappt nicht

[Nalincah]

Warum geht das nicht?

Delphi-Quellcode:

ft := TFileStream.Create(FileName,fmCreate);
try
  with ft do
  begin
    Write(#32,3);
  end;
finally
  ft.free;
end;

Der sagt immer:

Zitat:

[Fehler] uFrmMain.pas(64): Variable erforderlich

[Luckie]

Dann gib doch eine Variable an:

Delphi-Quellcode:

var
  ch: Char;
begin
  ch := #32;
  ...;
  ...;

[MathiasSimmack]

Lass mal das with spaßeshalber weg:

Delphi-Quellcode:

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.

[Nalincah]

Zitat:

Zitat von MathiasSimmack

Lass mal das with spaßeshalber weg:

Delphi-Quellcode:

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;

[sakura]

Erst einmal zum ersten Teil. Ein Char ist nicht 3 Bytes, sondern nur 1 Byte groß...

Code:

var
Ch: Char;
....
ft := TFileStream.Create(FileName,fmCreate);
try
  Ch := #32;
  with ft do
  begin
    Write(Ch,[color=#ff0009]1[/color]);
  end;
finally
  ft.free;
end;

...:cat:...

[nailor]

probier mal das von luckie, sollte klappen.

schutzverletzung: weil dein string noch nicht so lang ist, wie du fillen willst.

[sakura]

Zitat:

Zitat von General2004

FillChar(s[1],3,#32); // <-- Hier krieg ich ne Schutzverletzung!!

S ist nicht initialisiert. Nutze doch einfach mal StringOfChar

...:cat:...

[Nalincah]

@Luckie: Will #32 aber 3x reinschreiben

so klappt es

Delphi-Quellcode:

  SetLength(s,1);
  FillChar(s[1],3,#32);

[Nalincah]

Zitat:

Zitat von sakura

Zitat:

Zitat von General2004

FillChar(s[1],3,#32); // <-- Hier krieg ich ne Schutzverletzung!!

S ist nicht initialisiert. Nutze doch einfach mal StringOfChar

...:cat:...

Klappt wunderbar
DANKE!!

Delphi-Quellcode:

  s := stringofchar(#32,3);
  ft.Write(s[1],3);

[sakura]

Und jetzt noch:

Delphi-Quellcode:

  s := stringofchar(#32,3);
  ft.Write(s[1],Length(s));

Dann ist es einigermaßen sicher ;)

...:cat:...