| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Или я пишу эту программу или Borland отводит меня в психбольницу. [D6, WinXP]
Anar © (2002-10-01 20:02:00)Ни фига с этим не разобрался!
Короче у меня есть 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;
NewI (2002-10-02 04:17:00) [1]в смысле используй.
NewI (2002-10-02 04:16:00) [2]Да и использую TIniFile
Kopetr (2002-10-01 20:50:00) [3]Можно обойтись бкз цикла по второму, если записывать в него
строки вида Анар=Anar и использовать свойство Values.
Zz_ (2002-10-01 20:19:00) [4]Исходный текст грузишь в StringList по Delimiter := " ";
RusEng грузишь в другой StringList.
Цикл по первому StringList
а внутри цикл по второму
| |
