Zitat von
mkinzler:
Die Zeichen haben den Code 23, 26, 38
Nein, es sind 35, 38 und 59.
Zitat von
Martin K:
Mein Vorschalg:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: Char;
begin
Memo1.Text := Edit1.Text;
For i := Low(Char) to High(Char) do
if not (i in [#35, #38, #59]) then
Memo1.Text := StringReplace(Memo1.Text, i, '&#'+Ord(i)+';',[rfReplaceAll]);
end;
Ord(i) == Byte(i) -
