Есть stringgrid1 и stringgrid2,надо из первой таблицы перенести значения во вторую

[Nightway]

Есть stringgrid1 и stringgrid2,надо из первой таблицы перенести значения во вторуюss (2014-05-06 at 01.34.45).pngВроде получается,но не переносится первая строчка...как исправить?
вот код на всякий случай

begin
  with strngrd1 do
begin
 
   rowcount:=100;
  colcount:=6;
  for i:=1 to 100 do
  for j:=1 to 100 do
  cells [j,i]:=floattostrf(ss[i,j],fffixed,5,4);
  strngrd1.rowcount := strngrd1.rowcount + 1;
  for i := 1 to strngrd1.colcount - 1 Do
    strngrd1.cells[i, strngrd1.rowcount - 1] := floatToStr(0);
  strngrd1.MoveRow(strngrd1.rowcount - 1, 1);
  strngrd1.Cols[1][0]:='Район №1';
  strngrd1.Cols[2][0]:='Район №2';
  strngrd1.Cols[3][0]:='Район №3';
  strngrd1.Cols[4][0]:='Район №4';
  strngrd1.Cols[5][0]:='Район №5';
  strngrd1.Cols[0][1]:='0,00';
  strngrd1.Cols[0][0]:='p(Шаг)\';
  strngrd1.Cols[1][1]:='0,0000';
  strngrd1.Cols[2][1]:='0,0000';
  strngrd1.Cols[3][1]:='0,0000';
  strngrd1.Cols[4][1]:='0,0000';
  strngrd1.Cols[5][1]:='0,0000';
  for r:=1 to 100 do
  for d:=1 to 100 do
  strngrd1.Cols [0][r+d]:=strngrd2.Cols[0][r];
  end;
  begin
  for z:=1 to 5 do
  strngrd2.Cols[0].Add(formatfloat('0,00',(z*5)/100));
  end;

[Sibedir]

У-у-у, наворотил.

  rowcount:=100;
  colcount:=6;
  for i:=1 to 100 do
  for j:=1 to 100 do

  for r:=1 to 100 do
  for d:=1 to 100 do
  strngrd1.Cols [0][r+d]:=strngrd2.Cols[0][r];

Короче, вот пример чистого копирования StringGrid'а. Давай разбераться.

var
  cc, rc, c, r: Integer;
begin
  StringGrid2.FixedCols := StringGrid1.FixedCols;
  StringGrid2.FixedRows := StringGrid1.FixedRows;

  cc := StringGrid1.ColCount;
  rc := StringGrid1.RowCount;
  StringGrid2.ColCount := cc;
  StringGrid2.RowCount := rc;

  for r := 0 to rc-1 do
    for c := 0 to cc-1 do
      StringGrid2.Cells [c,r] := StringGrid1.Cells [c,r];
end;

[doktor255]

cc := StringGrid1.ColCount;
rc := StringGrid1.RowCount;
StringGrid2.ColCount := cc;
StringGrid2.RowCount := rc;
for r := 0 to rc-1 do
  for c := 0 to cc-1 do
    StringGrid2.Cells [c,r] := StringGrid1.Cells [c,r];

StringGrid2.ColCount := StringGrid1.ColCount;
StringGrid2.RowCount := StringGrid1.RowCount;
for r := 0 to StringGrid1.RowCount - 1 do
  for c := 0 to StringGrid1.ColCount - 1 do
    StringGrid2.Cells [c, r] := StringGrid1.Cells [c, r];

У-у-у, наворотил.

[Sibedir]

  cc := StringGrid1.ColCount;
  rc := StringGrid1.RowCount;

Как-бы меньше терроризирую оперативку. Уже привычка

[Stilet]

меньше терроризирую оперативку.

Оптимизатор такого цикла обратится к свойствам StringGrid1.ColCount и StringGrid1.RowCount только один раз (не считая того что перед циклом), так что тут никакого терроризма не будет

[Sibedir]

Могу ошибаться, но вроде в D7 было иначе. Привычка оттуда.

Вообще для сэбэ делал бы так

cc := StringGrid1.ColCount;
rc := StringGrid1.RowCount;
StringGrid2.ColCount := cc;
StringGrid2.RowCount := rc;
Dec(cc);
Dec(rc);
for r := 0 to rc do
  for c := 0 to cc do
    StringGrid2.Cells [c,r] := StringGrid1.Cells [c,r];

Может у меня корни какие индуские есть

[Аватар]

В паскале изначально так было - вычисляется только раз в FOR

[Sibedir]

Блин, ну откуда-то же я это взял