Или я пишу эту программу или Borland отводит меня в психбольницу.

← →
Anar © (2002-10-01 20:02) [0]

Ни фига с этим не разобрался!

Короче у меня есть SentenceBox - тип EditBox.
Button1 - кнопка
Edit1 - EditBox
ruseng.txt - файл в котором содержатся информация в таком стиле:

Анар/Anar
спрашивал/asked
на/on
форуме/forum

и т.д.

Мне нужно, чтоб весь текст находящийся в SentenceBox переводился используя словарь ruseng.txt.

Например: в SentenceBox написана строка:

Анар спрашивал на форуме.

Нужно по нажатию Button1 в Edit1 выводить:

Anar asked on forum.

Всё больше ничего, особенного. Короче написал я что в голову подряд приходило и ни фга не вышло. Может посмотрите на чём я зациклился и закроем эту тему???

Код:

procedure TMainForm.Button1Click(Sender: TObject); var StringToRead,StringToTranslate:string; i,StringNumber:integer; RusEng:TextFile; begin i:=1; AssignFile(RusEng,"ruseng.txt"); Reset(RusEng); StringToTranslate:=Copy(SentenceBox.Text,1,pos(" ",SentenceBox.Text)-1); ReadLn(RusEng,StringToRead); Repeat StringToTranslate:=Copy(SentenceBox.Text,i,pos(" ",SentenceBox.Text)-1); ReadLn(RusEng,StringToRead); StringNumber:=Pos(StringToTranslate,StringToRead); i:=i+1; Until StringNumber=0; Edit1.Text:=Copy(StringToRead,pos("/",StringToRead)+1,Length(StringToRead)-pos("/",StringToRead)); end;

← →
Zz_ (2002-10-01 20:19) [1]

Исходный текст грузишь в StringList по Delimiter := " ";
RusEng грузишь в другой StringList.

Цикл по первому StringList
а внутри цикл по второму

← →
Kopetr © (2002-10-01 20:50) [2]

Можно обойтись бкз цикла по второму, если записывать в него
строки вида Анар=Anar и использовать свойство Values.

← →
NewI © (2002-10-02 04:16) [3]

Да и использую TIniFile

в смысле используй.

Или я пишу эту программу или Borland отводит меня в психбольницу. Найти похожие ветки