![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 15.04.2009
Сообщений: 8
|
![]()
Парни!......ну или если есть девушки
![]() Вообщем засада, не могу понять как из StringGrid отправить в Edit.Text Есть таблица в Grid, в настройках таблици - выделяется целиком сторока. Надо при двойном клике, чтобы поля из Cell[1].Row[1] = Edit1.Text; Cell[2].Row[1] = Edit2.Text и т.д.....т.е все нужные ячейчки раскидывались по Edit-полям.....как?..... P.S. если знаете как - расжуйте....я вообще Delphi знаю только по книжке и по примерам....даже не знаю для чего нужна function )))))) P.P.S. есть код который повторяется в некоторых моментах программы...можно как нибуть коду присвоить к примеру имя какое нибуть и потом на нажатии батона срабатывал этот код? |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 27.03.2009
Сообщений: 14
|
![]()
Учусь программировать на C++
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 06.03.2009
Сообщений: 583
|
![]()
Надеюсь, насчет function это была шутка. Если нет, рекомендую читать книги по Паскалю, реально пригодится в Дельфи(по личному опыту)
Выкладываю исходник сделанный на скорую руку Самый простой пример. Там все понятно.
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 08.03.2008
Сообщений: 1,537
|
![]() Код:
Cells[x,y] - массив для доступа к ячейке Row - текущая строка TEdit(findcomponent('Edit' + inttostr(i))).text - найдет все компоненты с именем Edit + индекс компонента |
![]() |
![]() |
![]() |
#5 | |
Регистрация: 15.04.2009
Сообщений: 8
|
![]() Цитата:
а!! с меня пивас ![]() ![]() с одной проблемой- решено, осталось только другое.....есть Excel, который вывожу в грид, два раза кликаю - открывается аля анкета с заполненными Edit, Memo .....как в случае изменения Memo или что-то такого - отправить обратно в нужную строку или грида или, если это проще, экселя? поле Edit1 - уникальное, т.е. по сути это порядковый номер. как понимаю - можно сделать обратное? ![]() ![]() Последний раз редактировалось stp56; 16.04.2009 в 22:00. |
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 15.04.2009
Сообщений: 8
|
![]()
ахаха))))))))реально - рабтает)))))))))))))))))
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 06.03.2009
Сообщений: 583
|
![]()
Довавил в исходник исправления, но там тоже самое только местами поменять надо...
Насчет пивасика, если не шутишь можешь скинуть на web money номер кошелка R186462041384 А так если что не понятно, обращайся в личку или на почту скидавай сообщение. Также делаю курсовые и дипломные на Дельфи по низким ценам.Если, что на будущее.. Надеюсь пример понятен, если есть вопросы спрашивай...
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 01.08.2007
Сообщений: 222
|
![]()
Вот с этим как раз у меня проблеммы. Не получается загрузить Excel в StringGrid (((
Если возможно - кинь код! ![]()
Жить тоже вредно, от этого умирают!!!
|
![]() |
![]() |
![]() |
#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 |