dbgrid и stringgrid

← →
Настенька (2004-06-05 16:45) [0]

помогите!!! у меня есть dbgrid, состоящий из 2 стобцов и 7 строк.
в них содержатся слова. необходимо перенести эти данные полностью в стринггрид,
сохраняя структуру. т.е. в итоге стринггрид тоже должен содержать 2 столбца
и 7 строк записей.

← →
Vlad © (2004-06-05 16:47) [1]

В чем загвоздка ?

← →
Настенька (2004-06-05 16:52) [2]

надо через вариантный массив, но я не знаю как мне нужен код

← →
sniknik © (2004-06-05 17:27) [3]

> мне нужен код
без проблем
код 5DFD-RGTR3-FF453 бесконечные компоненты, но только в 95м.
с вариантным массивом труднее, нужен режим "бога", код утерян в доисторические времена, многие ищут, никто не находил. (по легендам чернокнижник близко подобрался... кино сняли)
;о)))

← →
Vlad © (2004-06-05 17:36) [4]

> нужен режим "бога", код утерян в доисторические времена

IDDQD

← →
sniknik © (2004-06-05 17:48) [5]

> IDDQD
ээээ, не надо путать божий дар с яичницей, одно дело ТВОРЕНИЕ, другое пошлый дум (если память не изменяет)

← →
Vlad © (2004-06-05 18:03) [6]

2 Автор.
По большому секрету (только никому, ладно ?) скажу что если на клавиатуре нажать верхнюю, вторую слева кнопку (на ней F1 написано), то откроется такое окошко, где лежит ответ на Ваш исходный вопрос.
Ну а теперь совсем по секрету... (тссссс!)....
По Дельфи существуют книги ! и даже в электронном виде !!!!!
Вы можете их купить (распечатать) и ночью под одеялом читать читать читать читать ! Пока батарейки в фонарике не сядут.
---
Но только никому. Ладно ?

← →
Настенька (2004-06-06 10:47) [7]

мне нужен цикл как его правильно создать я делаю так
for i:=0 to dbgrid1.recordcount-1 do
for j:=0 to dbgrid1.fieldcount-1 do begin
stringgrid1.cells[i,j]:=dbgrid1.fields[i].asstring;
но он переносит только текущую запись, а мне
нужны все записи

> for i:=0 to dbgrid1.recordcount-1 do

Не помню, как в Парадоксе, а в Интербейсе такай код точно правильно работать не будет, т.к. если все записи не профетчены (не вызван метод FetchAll), то обработается ровно одна строка, поэтому, имхо:

with DataSet do begin First; while not Eof do begin ... // делаете с записью то, что Вам нужно Next; end; end;

В посте [8], конечно же, имелись в виду не сами Парадокс и Интербейс, а компоненты доступа к ним :-)

dbgrid и stringgrid Найти похожие ветки