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:

[Nils_13]

@neutralgeneral: hast du dir etwa die Arbeit gemacht und die ganzen Wörter eingefügt oder sogar eingetippt?

[Neutral General]

nein ich hab Silben durch andere ersetzt, z.B

Delphi-Quellcode:

th -> s     (the -> se)
ide -> eid (side -> seid)
le -> el (middle -> middel)
usw...

wobei sich die Englische Aussprache teilweise nicht an Regeln bindet, was das ganze etwas schwer macht... Meint ihr ich sollte das Englisch-Wörterbuch in einer Datei speichern ? :mrgreen:
meine aktuelle Lösung gefällt mir nicht so gut :(

[Tubos]

Zitat:

Meint ihr ich sollte das Englisch-Wörterbuch in einer Datei speichern ?

Entweder das, oder direkt im Programmcode ein Array anlegen.

[Neutral General]

Zitat:

Zitat von Tubos

Zitat:

Meint ihr ich sollte das Englisch-Wörterbuch in einer Datei speichern ?

Entweder das, oder direkt im Programmcode ein Array anlegen.

ein Array in dem das Englischwörterbuch gespeichert ist ...
mh.. viel Arbeit... aber wartet ...bald gibts ne neue Version und dann :mrgreen:

[Tubos]

Du brauchst doch kein ganzes Wörterbuch, ich meinte natürlich du kannst die Silben in einem Array speichern.

[Neutral General]

das problem ist ja das die gleiche Silbe nicht immer gleich ausgesprochen wird :(
z.B die Silbe 'ea' :

Delphi-Quellcode:

teach : ie
tear : ia
bear : ea
meant : e
...

das ist eben das Problem. Und es gibt noch viel schlimmere Silben und "Regeln" die keine sind.
Deswegen weis ich nicht wie ich machen soll, außer das ganze Wörterbuch abschreiben :wall:

[Nicodius]

wo ist denn der download?

[mirage228]

Schaue mal in die Ankündigungen: Alle Anhänge sind bis zum WE gesperrt.

mfG
mirage228

[Nicolai1234]

Zitat:

Zitat von Neutral General

das ist eben das Problem. Und es gibt noch viel schlimmere Silben und "Regeln" die keine sind.
Deswegen weis ich nicht wie ich machen soll, außer das ganze Wörterbuch abschreiben :wall:

Naja, es sind ja schon regeln dahinter, allerdings wäre es recht schwer die alle zusammenzufassen.