|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.11.2013, 19:37 | #1 |
Пользователь
Регистрация: 09.12.2012
Сообщений: 37
|
Lazarus
Здравствуйте Ув. у меня такой вопрос: у меня на форме 2 Edit, 1Button, StringGrid, мне нужно через 2 эдита ввести данные в таблицу, при нажатии кнопки.Вот код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=1; a[i].name:=edit1.text; a[i].fam:=edit2.text; stringGrid1.rowCount:=1; for i:=1 to 2 do begin stringGrid1.rowCount:=stringGrid1.r owCount+1; stringgrid1.cells[1,i]:=a[i].name; stringgrid1.cells[2,i]:=a[i].fam; end; i:=i+1; end; Как мне сделать так, чтобы данные выводились в таблице каждые с новой строки. заранее спасибо |
21.11.2013, 20:20 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
У вас переменная i - локальная, если она объявлена в Button1Click. Поэтому толку от этого i:=i+1; - никакого.
Я вообще не понял, что она значит. Создайте глобальную переменную , после var Form1: TForm1; Код:
Последний раз редактировалось type_Oleg; 21.11.2013 в 20:23. |
21.11.2013, 20:27 | #3 |
Пользователь
Регистрация: 09.12.2012
Сообщений: 37
|
всё равно выводит всё время в 1 строку(
|
21.11.2013, 20:31 | #4 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Щас попробую ...
А этот массив записей a - где-то еще используется? Можно без него? |
21.11.2013, 20:55 | #5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Вот, сделал без этого массива.
Код, без верхней части: Код:
|
21.11.2013, 20:56 | #6 |
Пользователь
Регистрация: 09.12.2012
Сообщений: 37
|
с ним нужно(
|
21.11.2013, 20:57 | #7 |
Пользователь
Регистрация: 09.12.2012
Сообщений: 37
|
хотя и без него можно
|
21.11.2013, 20:58 | #8 |
Подтвердите свой е-майл
Регистрация: 29.08.2012
Сообщений: 4,011
|
интересно, и что делает эта глобальная? проще просто выбросить ее
|
21.11.2013, 21:03 | #9 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
|
21.11.2013, 21:05 | #10 |
Пользователь
Регистрация: 09.12.2012
Сообщений: 37
|
type_Oleg, спасибо большое, теперь разобралась)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Lazarus | SnS | Помощь студентам | 0 | 07.10.2013 22:40 |
Перекомпиляция программы(простой) Win Lazarus в Linux Lazarus | Toxifer | Фриланс | 0 | 27.11.2012 22:46 |
Lazarus... | Сristina | Помощь студентам | 1 | 28.03.2011 20:03 |
Lazarus | Markefimov | Lazarus, Free Pascal, CodeTyphon | 10 | 25.01.2011 23:09 |
LAZARUS | TIGER-777 | Помощь студентам | 3 | 06.11.2010 13:44 |