Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2009, 22:10   #1
stp56
 
Регистрация: 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. есть код который повторяется в некоторых моментах программы...можно как нибуть коду присвоить к примеру имя какое нибуть и потом на нажатии батона срабатывал этот код?
stp56 вне форума Ответить с цитированием
Старый 15.04.2009, 22:14   #2
Boris96_2007
Пользователь
 
Аватар для Boris96_2007
 
Регистрация: 27.03.2009
Сообщений: 14
По умолчанию

Цитата:
Сообщение от stp56 Посмотреть сообщение
function
По переводу это функция!! Я сам по книжке
Учусь программировать на C++
Boris96_2007 вне форума Ответить с цитированием
Старый 15.04.2009, 23:35   #3
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Надеюсь, насчет function это была шутка. Если нет, рекомендую читать книги по Паскалю, реально пригодится в Дельфи(по личному опыту)
Выкладываю исходник сделанный на скорую руку Самый простой пример. Там все понятно.
Вложения
Тип файла: rar работа с StringGrid.rar (3.5 Кб, 20 просмотров)
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Старый 15.04.2009, 23:36   #4
Gorychev
Участник клуба
 
Аватар для Gorychev
 
Регистрация: 08.03.2008
Сообщений: 1,603
По умолчанию

Код:
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
  I : Integer;
begin
    for I := 1 to StringGrid1.ColCount do
      TEdit(findcomponent('Edit' + inttostr(i))).text:= StringGrid1.Cells[i - 1, StringGrid1.Row];
end;
ColCount - число столбцов
Cells[x,y] - массив для доступа к ячейке
Row - текущая строка

TEdit(findcomponent('Edit' + inttostr(i))).text - найдет все компоненты с именем Edit + индекс компонента
Gorychev вне форума Ответить с цитированием
Старый 16.04.2009, 21:49   #5
stp56
 
Регистрация: 15.04.2009
Сообщений: 8
По умолчанию

Цитата:
Сообщение от ArtInt Посмотреть сообщение
Надеюсь, насчет function это была шутка. Если нет, рекомендую читать книги по Паскалю, реально пригодится в Дельфи(по личному опыту)
Выкладываю исходник сделанный на скорую руку Самый простой пример. Там все понятно.

а!! с меня пивас так все оказалось лехко и просто)мучался с этим долго) надо было только прописать получение строки и все))

с одной проблемой- решено, осталось только другое.....есть Excel, который вывожу в грид, два раза кликаю - открывается аля анкета с заполненными Edit, Memo .....как в случае изменения Memo или что-то такого - отправить обратно в нужную строку или грида или, если это проще, экселя? поле Edit1 - уникальное, т.е. по сути это порядковый номер.

как понимаю - можно сделать обратное? StringGrid1.Cell[1,Nomber] := Edit2.Text...или нет?

Последний раз редактировалось stp56; 16.04.2009 в 22:00.
stp56 вне форума Ответить с цитированием
Старый 16.04.2009, 22:02   #6
stp56
 
Регистрация: 15.04.2009
Сообщений: 8
По умолчанию

ахаха))))))))реально - рабтает)))))))))))))))))
stp56 вне форума Ответить с цитированием
Старый 16.04.2009, 22:10   #7
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Довавил в исходник исправления, но там тоже самое только местами поменять надо...
Насчет пивасика, если не шутишь можешь скинуть на web money номер кошелка R186462041384
А так если что не понятно, обращайся в личку или на почту скидавай сообщение. Также делаю курсовые и дипломные на Дельфи по низким ценам.Если, что на будущее..
Надеюсь пример понятен, если есть вопросы спрашивай...
Вложения
Тип файла: rar работа с StringGrid2.rar (192.0 Кб, 26 просмотров)
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Старый 16.04.2009, 22:34   #8
Demien
Форумчанин
 
Аватар для Demien
 
Регистрация: 01.08.2007
Сообщений: 222
По умолчанию

Цитата:
Сообщение от stp56 Посмотреть сообщение
.....есть Excel, который вывожу в грид...
Вот с этим как раз у меня проблеммы. Не получается загрузить Excel в StringGrid (((
Если возможно - кинь код!
Жить тоже вредно, от этого умирают!!!
Demien вне форума Ответить с цитированием
Старый 18.04.2009, 01:53   #9
stp56
 
Регистрация: 15.04.2009
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Demien Посмотреть сообщение
Вот с этим как раз у меня проблеммы. Не получается загрузить Excel в StringGrid (((
Если возможно - кинь код!

хе)) я с этим повоевал, осталось только упростить из 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;
stp56 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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