Zitat von
Jasocul:
Ersetze zuerst das "#" und das ";". Danach machst du den Rest.
Okay...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
s: string;
begin
Memo1.Clear;
Memo1.Lines.Add('Mustermann GmbH & Co. KG');
Memo1.Lines.Add('');
Memo1.Lines.Add('Täler, Wälder; all das # ist Natur & schön.');
Memo2.Clear;
for i := 0 to (Memo1.Lines.Count - 1) do
begin
s := StringReplace(Memo1.Lines[i], '#', '& # 3 5 ;', [rfReplaceAll]);
s := StringReplace(s, ';', '& # 5 9 ;', [rfReplaceAll]);
s := StringReplace(s, '&', '& # 3 8 ;', [rfReplaceAll]);
s := StringReplace(s, 'ä', '& # 2 2 8 ;', [rfReplaceAll]);
Memo2.Lines.Add(s);
end;
end;
(^^^^Leerzeichen bei den ISO-Codes wegdenken!)
Ergibt:
Mustermann GmbH & # 3 8 ; Co. KG
T& # 2 2 8 ;ler, W& # 2 2 8 ;lder
& # 3 8 ; # 5 9 ; all das
& # 3 8 ; # 3 5 & # 3 8 ; # 5 9 ; ist Natur & # 3 8 ; schön.
(^^^^Leerzeichen bei den ISO-Codes wegdenken!)
Edit: diComm war schneller
