Перенос выделенной строки с дальнейшим добавлением, поочередно из dbgrid в stringgrid

[Ksenia Weide]

Здравствуйте, ребят! Помогите пожалуйста! Есть компоненты DBGrid1 , DataSource1, ADOConnection1, ADOTable1 - база данных из access и есть таблица Stringgrid. Так вот, моя задача из dbgrid перенести построчно данные, то есть я выбираю строку и она должна переноситься в stringgrid, выбираю другую любую - она должна переноситься дальше, не заменяя предыдущую, как, например, в этом коде (ОН МНЕ НЕ ПОДХОДИТ!! - заменяет):

with DBGrid1.DataSource.DataSet do
for
j:=0 to FieldCount - 1   do
konstruktor2.StringGrid1.Cells[j+1, 2]:=Fields[j].AsString;

Напишите, если кому не трудно кодик, я пока что сама сочинять коды не очень-то умею, только копировать и вставлять в нужное место могу.. а найти то, что мне нужно не могу =((

[Stilet]

with DBGrid1.DataSource.DataSet do begin
 first; konstruktor2.StringGrid1.RowCount:=2;
 while not eof do begin
  konstruktor2.StringGrid1.RowCount:=konstruktor2.StringGrid1.RowCount+1;
  for j:=0 to FieldCount - 1   do
     konstruktor2.StringGrid1.Cells[j+1, konstruktor2.StringGrid1.RowCount-1]:=Fields[j].AsString;
  next;
 end;
end;

[Ksenia Weide]

Сообщение от Stilet

with DBGrid1.DataSource.DataSet do begin
 first; konstruktor2.StringGrid1.RowCount:=2;
 while not eof do begin
  konstruktor2.StringGrid1.RowCount:=konstruktor2.StringGrid1.RowCount+1;
  for j:=0 to FieldCount - 1   do
     konstruktor2.StringGrid1.Cells[j+1, konstruktor2.StringGrid1.RowCount-1]:=Fields[j].AsString;
  next;
 end;
end;

Этот код просто всё копирует =(( У меня база данных (в дбгриде) состоит, допустим, из 1000 строк, а мне нужно выбрать из них, например, 5,10 или 20 (и не только) любых, которые я пожелаю строк, не рандомно, и перенести в стринггрид,это возможно?

[Ksenia Weide]

Нашла про выделение строк в dbgrid, осуществила, теперь их как-то нужно перенести в stringgrid. Выделила через dgMultiSelect. Знаете как перенести?

[Прик]

Пройтись по выделенным строкам:

  for I := 0 to DBGrid1.SelectedRows.Count-1 do begin
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[I]));
    //здесь присвоение ячейкам стрингрида значений из текущей выделенной строки датасета (как у stilet)
  end;

[Ksenia Weide]

Спасибо огромное, что-то получается, благодоря вам!!! Но есть одно нооо( иероглифы.. Что-то не могу найти куда вписать и каким образом тип данных. Есть и текст и цифры, причем с плавающей запятой.. После Items,я так понимаю, вписать это невозможно,либо не знаю как, подскажешь что?

[Ksenia Weide]

ААА!!!!!!!! Всё)) я дурында) поняла! вот, всё работает:

DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.Select edRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
konstruktor2.StringGrid1.Cells[j+1,i+2]:=DBGrid1.Datasource.Dataset.Fields[j].AsString;

[Прик]

Чего тормозим? Выше у Stilet'а же показано:

  for j:=0 to FieldCount - 1 do
     konstruktor2.StringGrid1.Cells[j+1, konstruktor2.StringGrid1.RowCount-1] := DBGrid1.DataSource.DataSet.Fields[j].AsString;

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

[Ksenia Weide]

Спасибо!!!!!

[Ksenia Weide]

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