Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как выбрать параметры из StringGrid [D7, WinXP]


MvL ©   (2004-08-29 21:00:00) 

Здравствуйте все! В Делфи я новичок, решил сделать твикер реестра лично для себя. Осталось только сделать редактор автозаргузки. Есть СтрингГрид с 2-мя колонками, в 1-имя ключа, а 2-значение. В опциях стоит RowSelect true. Вопрос: как выделив строку и нажав кнопку "удалить", считать параметр из СтрингГрид в виде 2-х строк, Может где исходник какого-нибудь твикера есть?


Германн   (2004-08-30 02:58:00) [1]

2 Юрий Зотов ©   (29.08.04 22:08) [4]
С юмором у Вас проблем нет. :)) Особенно понравилось про "большие буквы"!


MvL   (2004-08-29 23:35:00) [2]

2 Юрий Зотов
Вот теперь всё получилось! Спасибо!


Юрий Зотов   (2004-08-29 22:08:00) [3]

Это все оттого, что большие буквы не ставите, и пробелы тоже. Вот так надо:

with StringGrid1 do
 ShowMessage(Cells[1, Row] + ' ' + Cells[2, Row]);


Черный дембель   (2004-08-29 22:08:00) [4]

А кто такой "row", может 1 или 2


MvL   (2004-08-29 21:46:00) [5]

Рано я обрадовался:( пишу:

procedure TForm1.Button13Click(Sender: TObject);
var key,val:string;
begin
key:=stringgrid1.Cells[1,row];
val:=stringgrid1.Cells[2,row];
showmessage(key+' '+val);
end;

Получаю: Row-неопределённая переменная...
Напомню задачу:
Надо ткнуть мышью в СтрингГрид-выделится ряд,2 ячейки;
нажав кнопку, нужно считать данные из обеих ячеек выбранного ряда в 2 переменные. Как это сделать?


MvL   (2004-08-29 21:27:00) [6]

Спасибо! Видно я совсем заучился ;-)


begin...end   (2004-08-29 21:09:00) [7]

Ты знаешь, это так сложно...

var
 Key, Value: String;
 SG: TStringGrid;


В обработчике нажатия кнопки "Удалить":

begin
 Key := SG.Cells[1, Row];
 Value := SG.Cells[2, Row];
end.


А ещё в Delphi 7 есть компонент TValueListEditor...


Наверх

Титульная страница Поиск, карта сайта Написать письмо