Скачать: CL | DM;

Или я пишу эту программу или 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

---

← →
NewI ©   (2002-10-02 04:17) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c