Zitat von
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;
jo - scheint wohl zu klappen --- ich hatte da noch ne Wanze drin... (der alte Code war unter dem neuen und hat das überschrieben)
Ich mache noch ein paar Tests - Tests haben funktioniert. Alles Bestens!
Vielen Dank für Deine Hilfe
Gruss
EL