OK, hier läuft was falsch:
Delphi-Quellcode:
for i:=1 to Length(Memo1.lines.text) do
begin
x:=coding(memo1.lines.Strings[i]);
memo2.lines.Strings[i]:=x;
end;
Memo1.Lines.Text
gibt den gesamten Text inklusive Zeilenumbrüche zurück.
Memo1.lines.Strings[i]
gibt aber die i-te Zeile zurück und nicht das i-te Zeichen.
Weiterhin
- erwartet coding einen variablen string, bekommt aber ein string-Property
- coding gibt keinen Rückgabewert, weswegen man es auch nicht einem x zuweisen kann