String mit 0 Bytes als Datei Speichern

[terence14]

Willst Du nur einen Leerstring speichern oder
ein myStringList.Text Feld?

MfG,
terence

PS: Speichert nun einen LeerString mit fester Größe ab!

Delphi-Quellcode:

var F : File;
    meinString : string[255];
...
meinString:=Trim(myString);
AssignFile(F, 'c:\myfile.bin');
ReWrite(F, 1);
BlockWrite(F, meinString, SizeOf(meinString));
CloseFile(F);

[Christian Seehase]

Moin Shark,

um strings auch in C-Funktionen als PChar nutzen zu können, wird #00 bei entsprechenden Operationen auch als Ende eines Strings verarbeitet.
Um einen String der binäre Nullen enthält speichern zu können, solltest Du TFileStream benutzen:

Delphi-Quellcode:

var
  fs       : TFileStream;
  myString : string;

begin
  myString := StringOfChar(#00,5);
  fs       := TFileStream.Create(<Pfad zur Datei>,fmCreate);
  try
    fs.Write(myString[1],Length(myString));
  finally
    fs.Free;
  end;
end;

[Shark99]

Es würde mich rein technisch interessieren, wieso ein String mit dem Inhalt #0#65 nicht zu StringList.Text zugewiesen werden kann. Da StringList.Text ja auch ein Delphi String ist, sollte doch #0 als Inhalt möglich sein.

[Popov]

Das ist die Prozedur die aufgerufen wird wenn ein String eine TStrings.Text zugeweisen wird:

Delphi-Quellcode:

procedure TStrings.SetTextStr(const Value: string);
var
  P, Start: PChar;
  S: string;
begin
  BeginUpdate;
  try
    Clear;
    P := Pointer(Value);
    if P <> nil then
      while P^ <> #0 do
      begin
        Start := P;
        while not (P^ in [#0, #10, #13]) do Inc(P);
        SetString(S, Start, P - Start);
        Add(S);
        if P^ = #13 then Inc(P);
        if P^ = #10 then Inc(P);
      end;
  finally
    EndUpdate;
  end;
end;

//Edit

Evtl. eine Deutung: bei #0 ist Schluß mit String, da steigt die Routine raus.

[DeddyH]

Wieso heißt das wohl "nullterminierter String"?