AnsiString speichern und laden

[mytbo]

Ich weis nicht, ob ich dir damit helfe, wenn ich mORMot ins Spiel bringe. Der Thread ist aber schon etwas länger und die Unit SynCommons enthält viele nützliche Funktionen für den Programmiereralltag. mORMot ist von D7 bis 10.4 verfügbar. Muss nicht installiert werden, es reicht, die Bibliothekspfade zu setzen. Den Download findest du hier. Es steht eine ausführliche Hilfe, viele Beispiele und ein freundliches Forum zur Verfügung.

Umgesetzt im Anfangsbeispiel:

Delphi-Quellcode:

uses
  SynCommons;
  
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Txt = '' then Exit;
  SynCommons.FileFromString(Txt, Path);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Txt := SynCommons.StringFromFile(Path); 
  Memo1.Text := UTF8ToString(Txt);
end;

Disclaimer: Ich weis schon, Kanonen auf Spatzen ... mORMot ist bei mir inzwischen in jedem Projekt und im Alltag inzwischen eine unverzichtbare Allzweckwaffe.

Bis bald...
Thomas