Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.031 c
1-31762
Chlavik
2002-09-27 02:52
2002.10.10
Дайте Help на русском по Delphi 6 !!!!!


1-31844
maxi-mov
2002-09-22 16:41
2002.10.10
Как перенести файл с одного каталога в другой?


7-32031
laza admin
2002-08-02 00:55
2002.10.10
Поможите склепать ауторан! надо чтобы по нажатию на батон открыва


1-31674
Aleksandr
2002-09-27 15:02
2002.10.10
Как мне в консольном приложении выводить текст?


8-31907
Subfire
2002-06-11 14:04
2002.10.10
А TImage в Delphi6 глючный :)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский