Zitat von
Jelly:
Ich versteh deinen Code nicht, oder viel mehr was der machen SOLL. Du ersetzt ein & durch ein & Was soll das denn werden?
Sorry - habs zu spät gemerkt. Beachte mein Edit. Es soll der ISO-Code erzeugt werden - das hat der Editor gleich als Zeichen übersetzt
Zitat von
Jelly:
Ausserdem, anstatt jede einzelne Zeile deines Memo1 zu durchlaufen, kannst du auch gleich so verfahren:
memo2.lines.text := StringReplace (memo1.lines.text,'&','&',[rfReplaceAll]) ;
Klar - ich muß es aber so machen, weil da noch jede Menge Code dazwischensteht, wo ich Zugriff auf die einzelne Zeile eines Memos brauche.
Aber auch ein:
Delphi-Quellcode:
memo2.lines.text := StringReplace (memo1.lines.text,'&','& # 3 8 ;',[rfReplaceAll]) ;
memo2.lines.text := StringReplace (memo2.lines.text,';','& # 5 9 ;',[rfReplaceAll]) ;
memo2.lines.text := StringReplace (memo2.lines.text,'ä','& # 2 2 8;',[rfReplaceAll]) ;
(^^^^Leerzeichen bei den ISO-Codes wegdenken!)
ändert daran nichts - es wird "falsch" übersetzt.