TFileStream, Daten werden nicht geschrieben, warum?

[DualCoreCpu]

Hallo,

ich habe ein Programm, wie das hier:

Delphi-Quellcode:

program fileaccess;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes;

type
  TStringRec = record
    rErstesFeld: ShortString;
    rZweitesFeld: ShortString;
    rDrittesFeld: ShortString;
  end;

var
  AFiler: TFileStream;
  ARec: TStringRec;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    ARec.ErstesFeld := 'erster Inhalt';
    ARec.ZweitesFeld := 'zweiter Inhalt';
    ARec.DrittesFeld := 'dritter Inhalt';
    AFiler := TFileStream.Create('commands.def',fmCreate{ or fmShareDenyNone});
    //AFiler.Write(ARec,Sizeof(ARec)); auch das funktioniert nicht

    AFiler.Write(ARec.rErstesFeld,Length(ARec.rErstesFeld));
    AFiler.Write(ARec.rZweitesFeld,Length(ARec.rZweitesFeld));
    AFiler.Write(ARec.rDrittesFeld,Length(ARec.rDrittesFeld));

    AFiler.Free; //Ich dachte, vor der Freigabe würde der Filsstream seine Daten auf Platte schreiben.
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Leider wird nichts auf Festplatte geschrieben. Warum nicht? Auch mit Huge String funktioniert es nicht.

Ich verwende Delphi 10.3.2 Community Edition ohne Updates

[p80286]

Versuch esmal mit einem qualifizierten Dateinamen z.B. C:\temp\Testdaten\command.txt

Gruß
K-H

[Uwe Raabe]

Dein Code compiliert ja nicht einmal...

[Uwe Raabe]

Übrigens: ARec.rErstesFeld zeigt nicht auf das erste Zeichen des ShortStrings!

[DualCoreCpu]

Zitat von p80286:

Versuch esmal mit einem qualifizierten Dateinamen z.B. C:\temp\Testdaten\command.txt

Gruß
K-H

Richtig, Danke! Das war die Ursache, warum die Datei nicht geschrieben wurde!

@Uwe Raabe: Ja auch das: Ich muss write(Rec.rErstesFeld[1], length(rErstesFeld)) schreiben, sonst wird das Längenbyte mit geschrieben, was ich natürlich nicht will.

[scrat1979]

Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: StringRec;

Müsste es nicht

Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: TStringRec;

heißen?

[DualCoreCpu]

Zitat von scrat1979:

Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: StringRec;

Müsste es nicht

Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: TStringRec;

heißen?

Auch wieder wahr, Danke, habe das soeben geändert.

Und danke auch für die Anregung, den ganzen Record zu schreiben, statt die einzelnen Felder.

.