Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.06.2009, 19:12
A'Narky A'Narky вне форума
Прохожий
 
Регистрация: 18.06.2009
Сообщения: 7
Репутация: 10
Вопрос Заполнение 1 StringGridа из 3 Edit-ов

Подскажите пожалуйста код. Вот проблемка: на форме 3 edit, 1 StringGrid,под каждым Edit-ом Button-ы помогите с кодом, так как начинающий. Необходимо заполнять таблицу различными значениями Edit-ов.Чтобы после, того как кнопка нажата, заполнялась следующая ниже ячейка в этом же столбце. Если несложно, помогите. Заранее благодарю.
Ответить с цитированием
  #2  
Старый 20.06.2009, 21:00
Drozh Drozh вне форума
Активный
 
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
По умолчанию

все просто: объявляешь три глобальные переменные
Код:
var
 One, Two, Three: Integer;
В процедуре загрузки формы всем этим переменным присваиваешь значение 0

В коде каждой кнопки пишешь
Код:
StringGrid1.Cells[номер колонки, номер строки(One, Two, Three - соответственно для каждой кнопки)] := Нужный_Edit.Text;
Inc(One, Two, Three - соответственно для каждой кнопки);

Т.е. для первой кнопки
StringGrid1.Cells[0, One] := Edit1.Text;
Inc(One);
Ответить с цитированием
  #3  
Старый 20.06.2009, 21:18
A'Narky A'Narky вне форума
Прохожий
 
Регистрация: 18.06.2009
Сообщения: 7
Репутация: 10
По умолчанию

Drozh спасибо за ценный совет, действительно все оказалось довольно просто Все работает просто замечательно. еще раз спасибо, тему можно закрывать.
Ответить с цитированием
  #4  
Старый 20.06.2009, 21:48
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

не помешает сделать проверку
Код:
if StringGrid1.RowCount-1<one then
ShowMessage('Увы, но строк для заполнения больше нет!')
else
begin
StringGrid1.Cells[0, One] := Edit1.Text;
Inc(One);
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 07:21.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter