Wie mache ich ae aus ä während der Eingabe in TEdit

[torud]

Hallo Leute!

Ich möchte während der Eingabe eines Users die Umlaute abfangen und direkt aus einem ä ein ae machen. Leider geht das nicht so einfach. Aus einem Leerzeichen einen Underline zu machen ist kein Problem aber ich glaube das man bei einer OnKeyPress-Routine nicht 2 Chars aus einem machen kann. Wie kann ich das lösen?

Delphi-Quellcode:

procedure Teditor.ed_feldnameKeyPress(Sender: TObject; var Key: Char);
const
  AllowedChars : string = 'ABCDEFGHIJKLMNOPQ'+'RSTUVWXYZ'+'abcdefghijklmnopq' + 'rßstuvwxyz01234567_';
var
  i  : Integer;
  Ok : Boolean;
begin
  i  := 0;
  Ok := false;
  if Key = #32 then Key := '_';  //funzt gut
  if Key = 'ä' then Key := 'ae'; //funzt leider nicht
  if Key = #8 then Ok := true;
  repeat
    i := i + 1;
    if Key = AllowedChars[i] then Ok := true;
  until (Ok) or (i = Length(AllowedChars));
  if not Ok then Key := #0;
end;

[DGL-luke]

Delphi-Quellcode:

if key='ä' then edit1.text:=replacestring(edit1.text,'ä','ae',[rfreplaceall])

[Sharky]

Hai,

mal so auf die schnelle:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = 'ä') then
  begin
    Key := #0;
    Edit1.SelText := 'ae';
  end;
end;

Das ganze müsste man halt nur noch für die Verschiedenen Möglichkeiten optimieren ;-)
Das Enscheidende ist wohl die Verwendung von SelText.

[mr.unbekannt]

probiere mal die nummern: #132 oder #228, ich denke es ist eher die zweite nummer, aus dem ascii code entnommen, weil #32 = ' '.

[torud]

Hallo Stephan!

So funktionierts einwandfrei!

[turboPASCAL]

Würde ich auch mal anschauen: AnsiInspect

[torud]

Auch ne ganz nette Lösung!