FileToString: Wie String zu "StringToFile?"

[Go2EITS]

Ich habe gerade noch über den Code gegrübelt und den Vorschlag von mkinzler zum laufen gebracht. Ich probiere das gerade mal:

Delphi-Quellcode:

Procedure StringToFile(VAR FileName, Str: string);
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmCreate);
  try
    Len := fs.Size;
    SetLength(str, Len);
    if Len > 0 then
      fs.WriteBuffer(str[1], Len);
  finally
    fs.Free;
  end;
end;

Ich habe keine Ahnung, ob es Wirklich geht. Mein Tool braucht mit CopyDir zu lange. Es wird noch dauern, bis ich weiss, ob und was letztendlich zuverlässig funzt... falls nicht, probiere ich Deinen Vorschlag, Neural general! Dankeschön schon mal vorab aun Euch [roter Kasten ] drei! Auf writebuffer wäre ich nicht gekommen.

Roter Kasten!
Oha, Leonhard, ichglaube Du hast recht! Ändere ich gleich oben noch.