Datei laden, verschluesseln und speichern

[St.Pauli]

Delphi-Quellcode:

function DateiInStringLaden(Datei : string) : string;
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;
  Inhalt.LoadFromFile(Datei);

  SetLength(Result, Inhalt.Size);
  Inhalt.Read(Result[1], Inhalt.Size);

  Inhalt.Free;
end;

procedure StringInDateiSpeichern(Datei, Uebergabe : string);
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;

  Inhalt.Write(Uebergabe[1], Length(uebergabe));


  Inhalt.SaveToFile(Datei);
  Inhalt.Free;
end;