Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Edmund
0 / 0 / 0
Регистрация: 09.11.2015

При нажатии на кнопку добавлять данные в StringGrid каждый раз с новой строки

06.06.2014, 15:00. Просмотров 373. Ответов 0
Метки (Все метки)

Доброго дня!
1) Нужно чтобы при нажатии на кнопку данные добавлялись в таблицу каждый раз с новой строки.
Помогите воплотить. Были мысли сделать это с использованием цикла..
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TForm1.Button2Click(Sender: TObject);
  var
i,n:integer;
begin
Form2.Show;
 
 
begin
Form2.StringGrid1.Cells[1,n]:=Form1.Edit1.Text;
Form2.StringGrid1.Cells[2,n]:=Form1.Edit2.Text;
Form2.StringGrid1.Cells[3,n]:=Form1.Edit8.Text;
Form2.StringGrid1.Cells[4,n]:=Form1.Edit3.Text;
Form2.StringGrid1.Cells[5,n]:=Form1.Edit4.Text;
Form2.StringGrid1.Cells[6,n]:=Form1.Edit5.Text;
Form2.StringGrid1.Cells[7,n]:=Form1.Edit6.Text;
Form2.StringGrid1.Cells[8,n]:=Form1.Edit7.Text;
Form2.StringGrid1.Cells[9,n]:=Form1.Memo1.Text;
 
 end;
  end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 with StringGrid1 do
 begin
cells[0,0]:='No';
cells[1,0]:='Èìÿ';
cells[2,0]:='ГќГ«.ïî÷òГ*';
cells[3,0]:='ГЏГ*ðîëü';
cells[4,0]:='Íîì.òåë.';
cells[5,0]:='Ãîðîä';
cells[6,0]:='ГЉГ*òåãîðèÿ';
cells[7,0]:='Г–ГҐГ*Г*';
cells[8,0]:='Г’ГҐГ¬Г*';
cells[9,0]:='ГЋГЇГЁГ±Г*Г*ГЁГҐ';
end;
end;
2) В Edit1,Edit2,.... прописаны слова.
Нужно чтобы при нажатии на Edit1 стирался текст

При нажатии на кнопку добавлять данные в StringGrid каждый раз с новой строки


Добавлено через 7 минут
пункт 1 актуален,
2) решилось в events onclick - Edit1.Clear;

Вернуться к обсуждению:
При нажатии на кнопку добавлять данные в StringGrid каждый раз с новой строки

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2014, 15:00
Готовые ответы и решения:

Как при нажатии на кнопку добавлять каждый раз новые строчки в StringGrid
Всем привет) у меня такая проблема, не знаю как сделать, чтобы добавлялись...

При нажатии на кнопку добавлять по одной строке из файла в поле Memo
как при нажатии на одну и ту же кнопку добавлять по одной строке в поле memo...

При нажатии на кнопку закрашивать ячейку StringGrid
можно сделать так, что бы при нажатии на кнопку (button) закрашивался ячейка...

StringGrid: сменить цвет ячейки при нажатии на кнопку
Есть stringgrid и кнопка. При нажатии на кнопку происходит поиск одинаковых...

StringGrid, продолжение поиска при повторном нажатии на кнопку
Проблема такая, вот мой поиск. Как сделать так что бы при нажатие еще раз на...

0
Другие темы раздела
Delphi Сформировать объектный тип, реализующий геометрические фигуры «точка-количество объектов 3» http://www.cyberforum.ru/delphi-beginners/thread1201094.html
По условию задачи требуется сформировать объектный тип, реализующий геометрические фигуры «точка-количество объектов 3» , «окружность-количество объектов 2 »,«эллипс-количество объектов 1...
Delphi Поменять местами столбец с номером N и первый из столбцов, содержащих только отрицательные элементы Дана матрица размером M*N. Поменять местами столбец с номером N и первый из столбцов, содержащих только отрицательные элементы. Если требуемых столбцов нет, то вывести матрицу без изменений в Delphi.... http://www.cyberforum.ru/delphi-beginners/thread1201075.html
Удаление строки из stringgrid Delphi
Задача состоит в удалении строки, в которой есть элемент кратный трем. Вот, собственно, 2 мои бездарные попытки реализовать данную задачу: procedure TForm1.Button8Click(Sender: TObject); var...
Вывести шахматную доску, пометив крестиками все поля, которые «бьет» ферзь Delphi
№1. Поля шахматной доски характеризуются записью: Type Pole=record Ver:(a,b,c,d,e,f,g,h); {вертикальные координаты} Hor: 1..8; {горизонтальные координаты} ...
Delphi Проверить, является ли матрица симметричной относительно главной диагонали http://www.cyberforum.ru/delphi-beginners/thread1201030.html
Дана квадратная вещественная матрица размерности n. Является ли матрица симметричной относительно главной диагонали. Выдать соответствующие комментарии.
Delphi НАрод, пожалуста, с этого сайта задачу, очень надо сделать задачу http://www.delphiplus.org/praktikum-po-delphi/prakticheskaya-rabota-34-igra.html подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru