Hallo,
ich will einen AnsiString speichern und wieder öffnen. Habe ein Tutorium von Himitsu zum Thema gefunden.
Bevor ich das gefunden hatte, wollte ich es so machen:
Delphi-Quellcode:
public
Txt: AnsiString;
Txtarray: TArray<Byte>;
Path: TFilename;
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
if Txt = '' then Exit;
SetLength(Txtarray,Length(Txt));
for i:=1 to Length(Txt) do Txtarray[i-1] := Ord(Txt[i]);
TFile.WriteAllBytes(Path,Txtarray);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i: Integer;
begin
TxtArray := TFile.ReadAllBytes(Path);
Txt := '';
for i:=0 to Length(Txtarray) do Txt := Txt + Chr(Txtarray[i]);
Memo1.Text := Txt;
end;
Um Kompatibilität mit alten Delphi-Versionen geht es mir nicht. Geht das so in Ordnung?
Gruß Willie.