Переводчик в Delphi

[Человек_Борща]

хм.. народ можно просто перебирать слова последовательно в каждой строке слева на право.
при анализе проверяем каждое слово слева в файле(анг.) если есть то идем через = и заменяем англ. на рус.
в файле переводчика пишем:
Слово английское=слово русское

Cat=Кошка

и так далее...
но это убого.. просто куча слов не связанных между собой.

нужен как минимум анализатор текста способный производить синтаксический и морфологический анализы текста русского.. и преобразовывать с учетом правил перевода на английский язык(Падежи, времена, окончания , предлоги, суффиксы, посфиксы и т.д.).

тогда будет что-то стоящее..

[bitSoft]

Сообщение от Человек_Борща

хм.. народ можно просто перебирать слова последовательно в каждой строке слева на право.
при анализе проверяем каждое слово слева в файле(анг.) если есть то идем через = и заменяем англ. на рус.
в файле переводчика пишем:
Слово английское=слово русское

Cat=Кошка

и так далее...
но это убого.. просто куча слов не связанных между собой.

нужен как минимум анализатор текста способный производить синтаксический и морфологический анализы текста русского.. и преобразовывать с учетом правил перевода на английский язык(Падежи, времена, окончания , предлоги, суффиксы, посфиксы и т.д.).

тогда будет что-то стоящее..

da ya toje tak delal, no va pervih nado zdelaty parser slov, i s pomoshiu UpperCase , pravireieshi slovo,
no parser samii glavnii, ta esly zdelayeshi parsing tipa na ' ' , to eto ne parser dlya perevodhika, potomushto v texte mojet esti slava slova1 slova2; slova4..... tak na proverke ti provireaeshy na ' ' , a slova2 ne budet slova2 a slova2; i takoe v baze slov ne naidioshi, ya toje tak mushilsya zdelal drugoe, nu nashol ii peredelal esli chestno

var
  Sep : set of char;
  T, W,Temp,Temp1 : string;
  i : integer;
begin
  sep:=[';',',','.',' '];

  T:=mmo1.Text+' ';
  W:='';
  i:=1;
  while i<=length(T) do
    begin
      if (T[i] in Sep) then
      begin
       Temp := Temp + T[i];
        if W<>'' then
          begin
            Temp1 := Temp1 + Temp + W;
            mmo2.Text := Temp1;
            Temp := '';
            W:='';
          end
        else
       end
      else
        W:=W+T[i];
      inc(i);
    end;
end;

[Человек_Борща]

парсер слов и поиск перевода в файле переводчика это только пол. беды.
Все дело в анализе текста..в том чтобы текст при трансляции не потерял норм.. (времени, падежа, и т.д. и .т.п.) в этом и будет вся проблема.

[dani92]

тут нужен машинный перевод, но статеек, материалов для delphi не нашел

[S_Yevgeniy]

Может стоит подключить уже рабочие программы и пользоваться ими.
Столкнулся с аналогичной проблемой посоветовали посмотреть связь Delphi и промта

[Человек_Борща]

Может стоит подключить уже рабочие программы и пользоваться ими.
Столкнулся с аналогичной проблемой посоветовали посмотреть связь Delphi и промта

Тем для тех кому интересно самому написать переводчик а не пользоваться готовым

[Serge_Bliznykov]

а я считаю, S_Yevgeniy зря сейчас написал. Нужно было выдержать ещё три недели и 4 дня и написать.
Ровно пять лет со времени последнего поста.
А так - 4 года 11 месяцев и 6 дней - корявенько как-то...

[Человек_Борща]

Пост все же к месту, т.к. дополняет весьма интересную тему.

[Serge_Bliznykov]

Сообщение от Человек_Борща

Пост все же к месту, т.к. дополняет весьма интересную тему.

да я же не против!
Просто тема такая активная, что пять лет в неё никто не писал...