Inglisch Transläita

[Neutral General]

Am Titel sieht man schon was das Programm macht :mrgreen:
probierts mal aus und sagt wie ihrs so findet. Es "übersetzt" nicht alles so ganz richtig ...:angel2: aber ich hab einen Text fast fehlerfrei übersetzt bekommen :)

[fkerber]

Hi!

Gar nicht mal so schlecht für die Aussprache :mrgreen:
Wie hast du das gemacht?


Ciao Frederic

[Luckie]

Durchgefallen:

Zitat:

I'm Michael

wird zu

Zitat:

i'm michael

[Nicodius]

luckie liegt daran

Zitat:

Mir war langweilig, da ist das rausgekommen^^ Ist nicht ernst zu nehmen, soll nur Spaß machen

:mrgreen:

[Nicolai1234]

Zitat:

Zitat von fkerber

Wie hast du das gemacht?

Interessierte mich auch mal. Kannst du mal deine "Regeln" für die Aussprache oder den Code posten?

[gmarts]

Schöne Sache! ;)


Schick das Programm mal an die Computer Bild! :mrgreen:

[glkgereon]

ich denk mal die regeln sind einfach:

er ersetzt jede buchstaben-kombination durch eine andere...

ich denke du hast ein hardgecodetes array drin, oder?

[Nicolai1234]

Zitat:

Zitat von glkgereon

ich denk mal die regeln sind einfach:

er ersetzt jede buchstaben-kombination durch eine andere...

Das ist schon klar, aber wie sehen diese Ersetzungsregeln aus?
beispiel:
the -> se
aber:
they -> ssey

[Treffnix]

:lol: Nettes Ding! Gefällt mir gut.

[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" :mrgreen:

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