"Англо-русский и русско-английский словарь"

@tourerV · Регистрация: 05.06.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Требуется ваша помощь господа, задали делать проект на Delphi по теме "Англо-русский и русско-английский словарь", сам я не очень волоку в этом, поэтому решил обратиться за помощью к вам

Заранее благодарен

@krapotkin · 04.04.2015, 12:05

чем помочь?

@tourerV · 04.04.2015, 12:24 **[ТС]**

Помочь в начинании так сказать, подсказать как что сделать.

@NIKOLAYY · 04.04.2015, 12:40

Сообщение от tourerV

Помочь в начинании так сказать, подсказать как что сделать.

Нуты хотя- бы напечатай в текстовике такой текст:

снег=snow

и тд. несколько тысяч пар слов через = для минимального переводчика, а потом тебе покажут как из ключа снег вытащить его значение snow

И например твой словарь будет иметь несколько плюсов, для его работы ненужен интернет

@tourerV · 04.04.2015, 12:49 **[ТС]**

Ну допустим у меня текстовый файл готов со словами, дальше мне надо разместить какие то компоненты на форме, это непосредственно edit,label,button, а вот переведенные слова в мемо так думаю должны будут выводиться, и вот еще, надо сделать так что бы слова можно было ззаписать в файл из программы

@krapotkin · 04.04.2015, 13:09

даже самую простую программу нельзя описать в рамках треда на форуме
конкретный вопрос - да
вопрос - как записать строку в текстовый файл?
задай его в поиске по сайту
и сразу найдешь...
Запись в текстовый файл

@NIKOLAYY · 04.04.2015, 13:38

tourerV,
Ну что бы делать словарь ты как минимум уже должен знать что такое edit и что такое мемо, как в них записывать, как с них считывать, как с них сохранять в файл, в них загружать из файла.
Поэтому иди реши этот вопрос, а потом снова заходи сюда- делать словарь.

@tourerV · 06.04.2015, 14:54 **[ТС]**

Помогите, как сделать, что бы при вводе слова в Edit, мне в Memo выводило перевод этого слова, т.е. надо что бы считывались не все строки, а определенные, которые соответствуют слово=перевод

@krapotkin · 06.04.2015, 15:01

это называется поиск
и для этого нужно знать, где искать, как сделано хранение слов и перевода
мы тут как бы не в курсе, что ты выбрал )))

кстати, тебе уже сказали, что некоторые слова имеют 2, 3 и даже, о, чёрт, 5 значений?

@tourerV · 06.04.2015, 15:27 **[ТС]**

ну так скажем два файла один с русскими словами другой с английскими

Добавлено через 2 минуты
Дак вот, можно было бы по подробнее про поиск этот, а то что как читать из файла и как записать файл программно то я знаю как выглядит, а про поиск этот вообще ни бум-бум...

@F1n4 · 06.04.2015, 20:02

Сообщение от tourerV

ну так скажем два файла один с русскими словами другой с английскими

Добавлено через 2 минуты
Дак вот, можно было бы по подробнее про поиск этот, а то что как читать из файла и как записать файл программно то я знаю как выглядит, а про поиск этот вообще ни бум-бум...

Delphi

var en,rus:TStringList;
  I: Integer;
  index:Integer;
begin
en:=TStringList.Create;
rus:=TStringList.Create;
en.LoadFromFile('English.txt');
rus.LoadFromFile('Russian.txt');
for I := 0 to en.Count-1 do
if Pos(edt1.Text,en[i])<>0 then index:=i;  //ищем слово построчно,если найдено то записываем индекс строки
mmo1.Lines.Add(rus[index]);
end;
end.

@tourerV · 08.04.2015, 14:14 **[ТС]**

Благодарю тебя, а как еще сделать, что если вводим слова, а его нету в файле, что бы выводило нам сообщение типа "Такого слова нет, хотите добавить?"

Добавлено через 35 секунд
писать после условия else?

@F1n4 · 08.04.2015, 18:47

Сообщение от tourerV

Благодарю тебя, а как еще сделать, что если вводим слова, а его нету в файле, что бы выводило нам сообщение типа "Такого слова нет, хотите добавить?"

Добавлено через 35 секунд
писать после условия else?

да else
вот те пример записи в файл

Delphi

var button:Word;
english,russian:TStringList;
begin
english:=TStringList.Create;
russian:=TStringList.Create;
button:=Application.MessageBox(('Хотите ли вы добавить слово?'),('Dictionary'),mb_yesnocancel);
if button=mrYes then
begin
english.add(InputBox('Dictionary','Введите слово на английском языке',''));
russian.Add((InputBox('Dictionary','Введите слово на русском языке','')));
russian.SaveToFile('russian.txt');
english.SaveToFile('english.txt');
 
end;
end;

Добавлено через 7 минут

Сообщение от tourerV

Благодарю тебя, а как еще сделать, что если вводим слова, а его нету в файле, что бы выводило нам сообщение типа "Такого слова нет, хотите добавить?"

Добавлено через 35 секунд
писать после условия else?

Кстати поиск чувствителен к регистру,так что советую в текстовом файле на английском писать 2 значения(с заглавной и маленькой)

@tourerV · 09.04.2015, 13:16 **[ТС]**

Так, секундочку я запутался чутка
вот этот код для перевода слов с англ. на рус., аналогично я сделал что бы с рус. на аангл. переводило

Delphi

var en,rus:TStringList;
  I: Integer;
  index:Integer;
begin
en:=TStringList.Create;
rus:=TStringList.Create;
en.LoadFromFile('English.txt');
rus.LoadFromFile('Russian.txt');
for I := 0 to en.Count-1 do
if Pos(edt1.Text,en[i])<>0 then index:=i;  
mmo1.Lines.Add(rus[index]);
end;
end.

А вот код который ты выше написал его куда надо подставлять? или надо полностью переделывать теперь всё?

@F1n4 · 09.04.2015, 15:31

Сообщение от tourerV

Так, секундочку я запутался чутка
вот этот код для перевода слов с англ. на рус., аналогично я сделал что бы с рус. на аангл. переводило

Delphi

var en,rus:TStringList;
  I: Integer;
  index:Integer;
begin
en:=TStringList.Create;
rus:=TStringList.Create;
en.LoadFromFile('English.txt');
rus.LoadFromFile('Russian.txt');
for I := 0 to en.Count-1 do
if Pos(edt1.Text,en[i])<>0 then index:=i;  
mmo1.Lines.Add(rus[index]);
end;
end.

А вот код который ты выше написал его куда надо подставлять? или надо полностью переделывать теперь всё?

Delphi

var en,rus:TStringList;
  I: Integer;
  index:Integer;
 button:Word;
begin
en:=TStringList.Create;
rus:=TStringList.Create;
en.LoadFromFile('English.txt');
rus.LoadFromFile('Russian.txt');
for I := 0 to en.Count-1 do
if Pos(edt1.Text,en[i])<>0 then 
begin
index:=i;  //ищем слово построчно,если найдено то записываем индекс строки
mmo1.Lines.Add(rus[index]);
end
else
begin
button:=Application.MessageBox(('Слово не найдено.Хотите ли вы добавить слово?'),('Dictionary'),mb_yesnocancel);
if button=mrYes then
begin
en.add(InputBox('Dictionary','Введите слово на английском языке',''));
rus.Add((InputBox('Dictionary','Введите слово на русском языке','')));
rus.SaveToFile('russian.txt');
en.SaveToFile('english.txt');
end;
end;
end;
end.

@tourerV · 09.04.2015, 20:00 **[ТС]**

Ой блин тооочно, тупанул жесть, спасибо большое за помощь

@tourerV · 12.04.2015, 13:55 **[ТС]**

Начинает циклиться, т.е. пишу слово в edit на англ., жму кнопку "англо-русский" вылазит сразу же окно с предупреждением о том что слова нет в словаре, хотите добавить? нажимаю "нет" неск.раз и слово то с переводом все же в мемо выводится, я уже чет всякое передумал всякое сделал, ну насколько мне позволяют знания языка...понять не могу в чем причина...?

@NIKOLAYY · 12.04.2015, 16:49

tourerV,
Да ты бы взял бы словарь готовый я их видел в делфи при помощи таблицы написанный да и рули им как хочеш.

@F1n4 · 12.04.2015, 20:42

Сообщение от tourerV

Начинает циклиться, т.е. пишу слово в edit на англ., жму кнопку "англо-русский" вылазит сразу же окно с предупреждением о том что слова нет в словаре, хотите добавить? нажимаю "нет" неск.раз и слово то с переводом все же в мемо выводится, я уже чет всякое передумал всякое сделал, ну насколько мне позволяют знания языка...понять не могу в чем причина...?

скинь код

@tourerV · 12.04.2015, 20:56 **[ТС]**

вот он, как раз в том исходном виде который ты и написал

Delphi

var en,rus:TStringList;
  I: Integer;
  index:Integer;
 button:Word;
begin
en:=TStringList.Create;
rus:=TStringList.Create;
en.LoadFromFile('English.txt');
rus.LoadFromFile('Russian.txt');
for I := 0 to en.Count-1 do
if Pos(edt1.Text,en[i])<>0 then 
begin
index:=i;  //ищем слово построчно,если найдено то записываем индекс строки
mmo1.Lines.Add(rus[index]);
end
else
begin
button:=Application.MessageBox(('Слово не найдено.Хотите ли вы добавить слово?'),('Dictionary'),mb_yesnocancel);
if button=mrYes then
begin
en.add(InputBox('Dictionary','Введите слово на английском языке',''));
rus.Add((InputBox('Dictionary','Введите слово на русском языке','')));
rus.SaveToFile('russian.txt');
en.SaveToFile('english.txt');
end;
end;
end;
end.

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	06.04.2015, 15:27 [ТС]	10
	ну так скажем два файла один с русскими словами другой с английскими Добавлено через 2 минуты Дак вот, можно было бы по подробнее про поиск этот, а то что как читать из файла и как записать файл программно то я знаю как выглядит, а про поиск этот вообще ни бум-бум... 0

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	12.04.2015, 13:55 [ТС]	17
	Начинает циклиться, т.е. пишу слово в edit на англ., жму кнопку "англо-русский" вылазит сразу же окно с предупреждением о том что слова нет в словаре, хотите добавить? нажимаю "нет" неск.раз и слово то с переводом все же в мемо выводится, я уже чет всякое передумал всякое сделал, ну насколько мне позволяют знания языка...понять не могу в чем причина...? 0

@F1n4 9 / 9 / 2 Регистрация: 16.03.2015 Сообщений: 83
	12.04.2015, 20:42	19
	Сообщение от tourerV Начинает циклиться, т.е. пишу слово в edit на англ., жму кнопку "англо-русский" вылазит сразу же окно с предупреждением о том что слова нет в словаре, хотите добавить? нажимаю "нет" неск.раз и слово то с переводом все же в мемо выводится, я уже чет всякое передумал всякое сделал, ну насколько мне позволяют знания языка...понять не могу в чем причина...? скинь код 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	04.04.2015, 12:05	2
	чем помочь? 0

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	04.04.2015, 12:24 [ТС]	3
	Помочь в начинании так сказать, подсказать как что сделать. 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	04.04.2015, 12:40	4
	Сообщение от tourerV Помочь в начинании так сказать, подсказать как что сделать. Нуты хотя- бы напечатай в текстовике такой текст: снег=snow и тд. несколько тысяч пар слов через = для минимального переводчика, а потом тебе покажут как из ключа снег вытащить его значение snow И например твой словарь будет иметь несколько плюсов, для его работы ненужен интернет 0

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	04.04.2015, 12:49 [ТС]	5
	Ну допустим у меня текстовый файл готов со словами, дальше мне надо разместить какие то компоненты на форме, это непосредственно edit,label,button, а вот переведенные слова в мемо так думаю должны будут выводиться, и вот еще, надо сделать так что бы слова можно было ззаписать в файл из программы 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	04.04.2015, 13:09	6
	даже самую простую программу нельзя описать в рамках треда на форуме конкретный вопрос - да вопрос - как записать строку в текстовый файл? задай его в поиске по сайту и сразу найдешь... Запись в текстовый файл 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	04.04.2015, 13:38	7
	tourerV, Ну что бы делать словарь ты как минимум уже должен знать что такое edit и что такое мемо, как в них записывать, как с них считывать, как с них сохранять в файл, в них загружать из файла. Поэтому иди реши этот вопрос, а потом снова заходи сюда- делать словарь. 0

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	06.04.2015, 14:54 [ТС]	8
	Помогите, как сделать, что бы при вводе слова в Edit, мне в Memo выводило перевод этого слова, т.е. надо что бы считывались не все строки, а определенные, которые соответствуют слово=перевод 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	06.04.2015, 15:01	9
	это называется поиск и для этого нужно знать, где искать, как сделано хранение слов и перевода мы тут как бы не в курсе, что ты выбрал ))) кстати, тебе уже сказали, что некоторые слова имеют 2, 3 и даже, о, чёрт, 5 значений? 0

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	08.04.2015, 14:14 [ТС]	12
	Благодарю тебя, а как еще сделать, что если вводим слова, а его нету в файле, что бы выводило нам сообщение типа "Такого слова нет, хотите добавить?" Добавлено через 35 секунд писать после условия else? 0

@tourerV 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 15
	09.04.2015, 20:00 [ТС]	16
	Ой блин тооочно, тупанул жесть, спасибо большое за помощь 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	12.04.2015, 16:49	18
	tourerV, Да ты бы взял бы словарь готовый я их видел в делфи при помощи таблицы написанный да и рули им как хочеш. 0