Inglisch Transläita

[Neutral General]

Delphi-Quellcode:

procedure ReplaceStr(Source : String; Original : String; Replace : String; Dest : TWinControl);
var Posi : Integer;
begin
 while pos(Original,Source) <> 0 do begin
  if pos(Original,Source) > 0 then begin
   Posi := pos(Original,Source);
   delete(Source,pos(Original,Source),Length(Original));
   insert(Replace,Source,posi);
  end;
 SendMessage(Dest.Handle,WM_SETTEXT,0,Integer(@Source[1]));
 end;
end;

procedure TForm1.Button1.Click(Sender : TObject);
begin
ReplaceStr(Richedit1.Text,'uhr','oor',Richedit1);
ReplaceStr(Richedit1.Text,'ky','kie',Richedit1);
...
...
end;

Das ist das "Geheimnis"

Sowohl die ReplaceStr-Procedure als auch der Rest sind ziemlich verbesserungwürdig
Aber naja ich werds nochn bisschen verbessern und mal sehn was daraus wird