[S]Hilfe -> Funktionen -> z.B. ä in ae & hilfe in hoiolofoeo

[Oli_G]

Bin grad in der Schule...
Hier der Code von der Umwandlung von dem Umlaut 'ö':

Code:

 var s,ausgabe: string;
 var i: integer;

procedure TForm1.Button1Click(Sender: TObject);

begin
s:=edit1.text;
Edit2.text:='';
ausgabe:='';
for i:=1 to length(s) do
  begin
  if s[i]='ö' then
    begin
    ausgabe:=ausgabe+'oe'
    end
    else
    ausgabe:=ausgabe+s[i];
  end;

edit2.text:=ausgabe;
end;

end.