Ich denke es könnte gehen, indem du die zu den Zeichen zugehörigen
Unicode-Zahlen, statt den Zeichen selbst, abspeicherst.
Delphi-Quellcode:
vers, ausg: string;
i: integer;
...
vers := OutputCrypt.Text;
ausg := '';
for i := 0 to length(vers) -1 do
ausg := ausg + Ord(vers[i]) + ';';
...
writeln(Datei, ausg);
Die Textdatei sieht dann irgendwie so aus: 12;58;499;34;
Beim späteren Einlesen kannst du die Zahlen mit Chr(Zahl) wieder zu Zeichen machen.