Kopiowanie danych z StringGrida

0

Pytanie wydawałoby się proste ale nie mogę sobie z nim poradzić.
Potrzeba mi skopiować dane z jednego StringGrida do drugiego.
Mam dane w 3 kolumnach i 40 wierszach w pierwszym stringgridzie i muszę je skopiować do drugiego.
Można oczywiście przypisać każdą klatkę z jednego Stringgrida do drugiego ale to trochę prymitywne. Jakaś pętelka powinna załatwić problem. Tylko nie wiem jak miała by wyglądać.
Jeśli ktoś wie to byłbym wdzięczny za pomoc.

Pozdrawiam

0
var i,j:Integer;
begin
for i:=0 to StringGrid1.ColCount-1 do
    for j:=0 to StringGrid1.RowCount-1 do
      begin
        StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
      end;
end;
0

Dzięki!!!

0

Niestety ta procedura nie działa. Wywołanie jej nie daje żadnego widocznego efektu. Jeśli ktoś wie gdzie jest błąd to proszę o pomoc.

Pozdrawiam.

0

No mi jakoś działa i nie ma błędu.

procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
begin
for i:=0 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
begin
StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
end;
end;


Kopiuje się pięknie i bezboleśnie :)
Napisz chociaż jaki błąd wyskakuje!

1 użytkowników online, w tym zalogowanych: 0, gości: 1