Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизИли я пишу эту программу или 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c