Umlaute aus einem String verändern

[Piro]

Moin Leute,

ich habe gerade eine Blokade.

Ich möchte gerne aus dem Wort "Hölle" das Wort "Hoelle" machen. Also das keine Umlaute mehr enthalten sind.

Kann mir einer mal bitte auf die Sprünge helfen. Wäre nett.

Danke.
Sven

[alcaeus]

Sieh dir dazu mal StringReplace an.

Greetz
alcaeus

[Piro]

ich habe delphi 3 und er kennt Replacestring nicht oder ich bin zu doof.

Gibt es noch eine andere Möglichkeit?

[alcaeus]

Ja, und zwar die Umlaute mit Pos finden, dann mit Delete löschen und anschließend die anderen Zeichen mit Insert wieder einfügen.

Greetz
alcaeus

[paelesoft]

Hab mir dazu mal was geschrieben:

Delphi-Quellcode:

function AnsiInspect(S,look_for,replace_with : string) : string;
var i : Integer;
    D : AnsiString;
begin
  D:='';
  while Length(S)>0 do begin
    i:=Pos(look_for,S);
    if i=0 then begin
      D := D + S; S:='';
    end else begin
      D := D + Copy(S,1,i-1) + replace_with;
      Delete(S,1,i-1 + Length(look_for));
    end;
  end;
  Result := D;
end;

var InpStr,OutStr : string;
begin
  ..... // InpStr füllen
  OutStr:=AnsiInspect(InpStr,'ö','oe');
  OutStr:=AnsiInspect(OutStr,'Ö','Oe');
  OutStr:=AnsiInspect(OutStr,'ä','ae');
  OutStr:=AnsiInspect(OutStr,'Ä','Ae');
.....

end.