Memo.Text := Ansistring? nur wie

[jbg]

Also folgender Code funktioniert bei mir:

Delphi-Quellcode:

var
  _codiert: AnsiString;
  sfiledata: string; // = UnicodeString
  fddschl: string;
  sTmpFileName: string;
begin
  sTmpFileName := 'C:\Testdata\Test.txt';  // *** anpassen ***

  sfiledata := '<xml>'#10'Hallo du Ärger'#10'</xml>';
  fddschl := '12';

  // write
  _codiert := JvCaesarcipher.EncodeString(fddschl, AnsiString(sfiledata));
  StringToFile(sTmpFileName, _codiert);


  // read
  _codiert := FileToString(sTmpFileName);
  sfiledata := string(JvCaesarcipher.DecodeString(fddschl, _codiert));

  Memo1.Lines.Text := sfiledata;
end;