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, если в стргриде меньше строк/колонок чем в дбгриде

Начальные настройки здесь не указаны, т.к. пример прохождения цикла.

Двоешники, блин !

CopyDBGridToStringGrid(DBGrid1,StringGrid1);

> MsGuns © (16.11.11 17:53) [11]

О, да !
Англицким мы немного владеем :)

Но я предложу более занятный вариант
CopyGrid2Grid ( grid1, grid2 )
- произвольное копирование грида в грид, где левый или правый или оба могут быть dbgrid, stringgrid :)
Слабо ?

> - произвольное копирование грида в грид, где левый или правый
> или оба могут быть dbgrid, stringgrid :)
> Слабо ?

надо написать 4
RowFromStringGrindToDynamicLineArray
RowFromDBGrindToDynamicLineArray
RowToStringGrindFromDynamicLineArray
RowToDBGrindFromDynamicLineArray
и
if grid1 is TStringGrid

DBGrid to StringGrid Найти похожие ветки