Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос по StringGrid 
:(
    Опции темы
Des666
  Дата 27.11.2006, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: -1
Всего: нет
Вот есть такой код как автоматизировать? 
Код

  begin
  if Msg=StringGrid1.Cells[0,0] then
  answer:=StringGrid1.Cells[1,0];
  end;

Нужно сделать так чтобы при запросе к Msg выводилось своё Answer
например при запросе к Msg[0,0] выводилось answer[1,0]
И так далее до Msg[0,1000] - answer[1,1000] ?
Заранее спасибо!
PM MAIL WWW ICQ   Вверх
Guedda
Дата 27.11.2006, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Ну ит что именно не получается? Можешь описать подробнее, что тебе надо? Вроде код как правильный...


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Des666
Дата 27.11.2006, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: -1
Всего: нет
Guedda, 
 я же не могу писать например так: это ого-го какой код выйдет!
Код

  begin
  if Msg=StringGrid1.Cells[0,0] then
  answer:=StringGrid1.Cells[1,0];

  if Msg=StringGrid1.Cells[0,1] then
  answer:=StringGrid1.Cells[1,1];

  if Msg=StringGrid1.Cells[0,2] then
  answer:=StringGrid1.Cells[1,2];
  end;

Вот и надо чтобы автоматический как то присваивались значения
в Cells[x,y]
Вообщем программа смотрит если есть в какой-то ячейке Msg пришедший запрос и если да то выдаёт соответсявующий ответ в answer
PM MAIL WWW ICQ   Вверх
Yanis
Дата 27.11.2006, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Des666
А ты сам то закономерность увидел? 
Циклами пользоваться умеешь?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Des666
Дата 27.11.2006, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: -1
Всего: нет
Yanis, 
Вот я и не могу понять  как в этот код цикл сделать...

вот так правильно? 
Код

begin
  for i:=1 to 1000 do
  //begin
  if Msg=StringGrid1.Cells[0,0] then
  answer:=StringGrid1.Cells[1,0];
  //end;

  end;


Это сообщение отредактировал(а) Des666 - 27.11.2006, 13:45
PM MAIL WWW ICQ   Вверх
Guedda
Дата 27.11.2006, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Код

for i := 0 to 1000 do
  if Msg = StringGrid1.Cells[0,i] then Answer := StringGrid1.Cells[1,i];



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Des666
Дата 27.11.2006, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: -1
Всего: нет
Спасибо это я понял а как сделать так если он ничё не нашёл в StringGrid То выводилось то что написано в edit1.text ? 
PM MAIL WWW ICQ   Вверх
Sunvas
Дата 27.11.2006, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(Guedda @  27.11.2006,  13:45 Найти цитируемый пост)
Код

for i := 0 to 1000 do    
  if Msg = StringGrid1.Cells[0,i] then Answer := StringGrid1.Cells[1,i];

Можно доработать:
Код

for i := 0 to 1000 do    
  if Msg = StringGrid1.Cells[0,i] then
  begin
 Answer := StringGrid1.Cells[1,i];
break;
end;


Добавлено @ 14:24 
Цитата(Des666 @  27.11.2006,  14:16 Найти цитируемый пост)
Спасибо это я понял а как сделать так если он ничё не нашёл в StringGrid То выводилось то что написано в edit1.text ? 

Доработаем еще:
Код

for i := 0 to 1000 do     
  if Msg = StringGrid1.Cells[0,i] then    
  begin    
 Answer := StringGrid1.Cells[1,i];    
exit;    
end;
Answer :=edit1.text;
//Тут должен быть конец процедуры! End;



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Des666
Дата 27.11.2006, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: -1
Всего: нет
В принципе это тоже самое, только он выпрыгнет из цикла, а где же тогда Answer присваивать значение? 
Код

  begin

for i:=0 to 1000 do
  if Msg = StringGrid1.Cells[0,i] then
  begin
 Answer := StringGrid1.Cells[1,i];
break;

end;
  end;
  answer:=ansver1.Text;
  end;

Так всё равно невыйдет потому что он все равно будет присваивать значение из ansver1.Text;
PM MAIL WWW ICQ   Вверх
Sunvas
Дата 27.11.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Des666, внимательно всмотрись в мой пост после слов "Добавлено @ 14:24 ". Там вместо break стоит exit.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0523 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.