|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2009, 22:10 | #1 |
Регистрация: 15.04.2009
Сообщений: 8
|
из Grid в Edit
Парни!......ну или если есть девушки
Вообщем засада, не могу понять как из StringGrid отправить в Edit.Text Есть таблица в Grid, в настройках таблици - выделяется целиком сторока. Надо при двойном клике, чтобы поля из Cell[1].Row[1] = Edit1.Text; Cell[2].Row[1] = Edit2.Text и т.д.....т.е все нужные ячейчки раскидывались по Edit-полям.....как?..... P.S. если знаете как - расжуйте....я вообще Delphi знаю только по книжке и по примерам....даже не знаю для чего нужна function )))))) P.P.S. есть код который повторяется в некоторых моментах программы...можно как нибуть коду присвоить к примеру имя какое нибуть и потом на нажатии батона срабатывал этот код? |
15.04.2009, 22:14 | #2 |
Пользователь
Регистрация: 27.03.2009
Сообщений: 14
|
Учусь программировать на C++
|
15.04.2009, 23:35 | #3 |
Форумчанин
Регистрация: 06.03.2009
Сообщений: 583
|
Надеюсь, насчет function это была шутка. Если нет, рекомендую читать книги по Паскалю, реально пригодится в Дельфи(по личному опыту)
Выкладываю исходник сделанный на скорую руку Самый простой пример. Там все понятно.
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
|
15.04.2009, 23:36 | #4 |
Участник клуба
Регистрация: 08.03.2008
Сообщений: 1,603
|
Код:
Cells[x,y] - массив для доступа к ячейке Row - текущая строка TEdit(findcomponent('Edit' + inttostr(i))).text - найдет все компоненты с именем Edit + индекс компонента |
16.04.2009, 21:49 | #5 | |
Регистрация: 15.04.2009
Сообщений: 8
|
Цитата:
а!! с меня пивас так все оказалось лехко и просто)мучался с этим долго) надо было только прописать получение строки и все)) с одной проблемой- решено, осталось только другое.....есть Excel, который вывожу в грид, два раза кликаю - открывается аля анкета с заполненными Edit, Memo .....как в случае изменения Memo или что-то такого - отправить обратно в нужную строку или грида или, если это проще, экселя? поле Edit1 - уникальное, т.е. по сути это порядковый номер. как понимаю - можно сделать обратное? StringGrid1.Cell[1,Nomber] := Edit2.Text...или нет? Последний раз редактировалось stp56; 16.04.2009 в 22:00. |
|
16.04.2009, 22:02 | #6 |
Регистрация: 15.04.2009
Сообщений: 8
|
ахаха))))))))реально - рабтает)))))))))))))))))
|
16.04.2009, 22:10 | #7 |
Форумчанин
Регистрация: 06.03.2009
Сообщений: 583
|
Довавил в исходник исправления, но там тоже самое только местами поменять надо...
Насчет пивасика, если не шутишь можешь скинуть на web money номер кошелка R186462041384 А так если что не понятно, обращайся в личку или на почту скидавай сообщение. Также делаю курсовые и дипломные на Дельфи по низким ценам.Если, что на будущее.. Надеюсь пример понятен, если есть вопросы спрашивай...
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
|
16.04.2009, 22:34 | #8 |
Форумчанин
Регистрация: 01.08.2007
Сообщений: 222
|
Вот с этим как раз у меня проблеммы. Не получается загрузить Excel в StringGrid (((
Если возможно - кинь код!
Жить тоже вредно, от этого умирают!!!
|
18.04.2009, 01:53 | #9 | |
Регистрация: 15.04.2009
Сообщений: 8
|
Цитата:
хе)) я с этим повоевал, осталось только упростить из Grid в Excel Держи: uses ExcelXP var k,r,x,y : integer; RangeMatrix, ExcelApp : Variant; BPath : WideString; begin BPath := ExtractFilePath (ParamStr (0)) + '1.xls'; ExcelApp. := CreateOleObject ('Excel.Application'); ExcelApp.WorkBooks.Open (BPath); ExcelApp.Cells.SpecialCells(xlCellT ypeLastCell,EmptyParam).Activate; x := ExcelApp.ActiveCell.Row; y := ExcelApp.ActiveCell.Column; StringGrid1.ColCount := Y; RangeMatrix := ExcelApp.Range ['A1',ExcelApp.Cells.Item [x,y]].Value2; ExcelApp.Quit; k := 1 ; repeat for r := 1 to y do StringGrid1.Cells [ (r), (k)] := RangeMatrix [k,r]; StringGrid1.RowCount :=k; inc (k,1); until k>x; RangeMatrix := Unassigned; end; |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
String Grid в VC++ | Аlex | Общие вопросы C/C++ | 1 | 30.01.2009 22:48 |
манипулирование grid-ом | Andriyko | Компоненты Delphi | 2 | 04.10.2008 17:08 |
Grid | nimf | Общие вопросы Delphi | 2 | 22.04.2008 13:16 |
Потеря данных в Grid | chingiz | БД в Delphi | 8 | 29.07.2007 00:17 |
Help!Grid и Edit | Дамир | БД в Delphi | 1 | 16.02.2007 02:05 |