Inglisch Transläita

[Neutral General]

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

[fkerber]

Hi!

Gar nicht mal so schlecht für die Aussprache
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

[Nicolai1234]

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!

[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 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]

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"

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