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