2009年7月10日金曜日

copyAdvStringGrid

rowIdx, colIdx: Integer; //yahoo
begin //aion rmt
dest.ColCount := src.ColCount;
dest.RowCount := src.RowCount;
for colIdx := 0 to src.ColCount - 1 do
begin
for rowIdx := 0 to src.RowCount - 1 do
begin
dest.Cells[colIdx, rowIdx] := src.Cells[colIdx, rowIdx];
end;
end;

0 件のコメント:

コメントを投稿