Filestream, string anhängen

[Muetze1]

Delphi-Quellcode:

if s <> '' then
  fs.Write(s[1], length(s));

alternativ

Delphi-Quellcode:

if s <> '' then
  fs.Write(PChar(s)^, length(s));

alternativ

Delphi-Quellcode:

if s <> '' then
  fs.Write(Pointer(s)^, length(s));