Изменение записей в StringGrid

[eoln]

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

eoln, ваш код как-то загадочно работает, не так). После "_" должно быть только одно число и все.

Просто код формирует новый столбец, а не изменяет текущий. Наверное вы применили его к одному столбцу. У меня работает нормально

[Sanprof]

procedure TForm1.Button1Click(Sender: TObject);
const
  m: integer = 3;//здесь любое число
var
  i, n, j: integer;
  sl: TStringList;
begin
  sl:=TStringList.Create;
  try
    with MainForm.RzStringGrid1 do
    begin  
      for i := 0 to RowCount-1 do
        Sl.add(Cells[0, i]);
      j := 0;
      RowCount := Sl.Count*m;
      for n := 0 to sl.Count-1 do
      begin
        for i := 1 to m do
          begin
            Cells[0, j] := sl.Strings[n]+'_'+IntToStr(i);
            inc(j);
          end;
      end;
    end;
  finally
    Sl.Free;
  end;

[mihali4]

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

Stilet, попробовал я твой код. Выдал ошибку при компиляции

Часто почему-то все портит конструкция вида with MainForm.RzStringGrid1 do.
Попробуйте без нее:

procedure TMainForm.Button2Click(Sender: TObject);
var
 sl:TStringList;
 row,col: integer;
begin
 sl:=TStringList.Create;
  for row:=0 to RzStringGrid1.RowCount - 1 do
   for col:=0 to 3 do
    sl.add(RzStringGrid1.Cells[0,row] + '_'+IntToStr(col));
end;

З.Ы. В логику кода я не вникал... И будет ли он давать то, что вам нужно - не знаю.

[artemavd]

Всем спасибо за помощь Всем поставил "+" за помощь)