Форум: "Прочее";
Текущий архив: 2012.03.04;
Скачать: [xml.tar.bz2];
ВнизDBGrid to StringGrid Найти похожие ветки
← →
Sher (2011-11-16 06:17) [0]Объясните пожалуйста как можно вытаскивать данные из DBGrid- а и записать их в StringGrid
← →
MBo © (2011-11-16 06:49) [1]Из DBGrid данные вытаскивать не стоит, тем более, что их там нет. Надо познакомиться с концепцией набора данных - TDataSet и дочерние классы
← →
И. Павел © (2011-11-16 14:03) [2]
> Sher (16.11.11 06:17)
Вот вам готовый код:
http://www.delphipages.com/forum/showthread.php?t=176782
← →
MsGuns © (2011-11-16 15:13) [3]А самое-то интересное - а зачем ?
← →
xayam © (2011-11-16 15:16) [4]http://www.delphimaster.net/?s=%2BDBGrid+%2BStringGrid&order=REPLYDATE&dir=desc
← →
OW © (2011-11-16 15:28) [5]StringGrid.cells[0,0] ;= DBGrid.DataSource.DataSet.Fields[0].AsString
← →
pasha_golub © (2011-11-16 16:57) [6]Разомнемся-ка.
DBGrid.DataSource.DataSet.First;
while not DBGrid.DataSource.DataSet.Eof do
begin
..
StringGrid.Cells[...] := DBGrid.DataSource.DataSet.Fields[....].AsString;
DBGrid.DataSource.DataSet.Next;
end;
← →
Jeer © (2011-11-16 17:10) [7]
> pasha_golub © (16.11.11 16:57) [6]
>
> Разомнемся-ка.
Отвратительно размялся.
← →
Jeer © (2011-11-16 17:25) [8]Теперь я "размялся" :)
Концептуально:
row := 1; // если есть фикс. строка, иначе row := 0
with DBGrid.DataSource.DataSet, StringGrid do begin
First;
while not Eof do begin
for col := 0 to FieldCount - 1 do
Cells[col, row] := Fields[col].AsString;
Inc(row);
Next;
end; // while
end; // with
← →
OW © (2011-11-16 17:32) [9]
> Jeer © (16.11.11 17:25) [8]
плохо :)
AV, если в стргриде меньше строк/колонок чем в дбгриде
← →
Jeer © (2011-11-16 17:35) [10]Начальные настройки здесь не указаны, т.к. пример прохождения цикла.
← →
MsGuns © (2011-11-16 17:53) [11]Двоешники, блин !
CopyDBGridToStringGrid(DBGrid1,StringGrid1);
← →
Jeer © (2011-11-16 17:58) [12]
> MsGuns © (16.11.11 17:53) [11]
О, да !
Англицким мы немного владеем :)
Но я предложу более занятный вариант
CopyGrid2Grid ( grid1, grid2 )
- произвольное копирование грида в грид, где левый или правый или оба могут быть dbgrid, stringgrid :)
Слабо ?
← →
SQLEX © (2011-11-16 18:19) [13]
> - произвольное копирование грида в грид, где левый или правый
> или оба могут быть dbgrid, stringgrid :)
> Слабо ?
надо написать 4
RowFromStringGrindToDynamicLineArray
RowFromDBGrindToDynamicLineArray
RowToStringGrindFromDynamicLineArray
RowToDBGrindFromDynamicLineArray
и
if grid1 is TStringGrid
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2012.03.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.004 c