Einzelnen Beitrag anzeigen

Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Umlaute in String ersetzen

  Alt 10. Sep 2006, 13:39
Dann fällt mir eigentlich nur noch sowas ein:

Delphi-Quellcode:
function ErsetzeUmlaute(s: string): string;
var i: integer;
begin
  for i := 1 to length(s) do
  begin
    Case s[i] of
    'ä': result := result+'ae';
    'ü': result := result+'ue';
    'ö': result := result+'oe';
    'ß': result := resultü'ss';
    else: result := resultüs[i];
    end;
  end;
end;
Oder gibt es was eleganteres?
  Mit Zitat antworten Zitat