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

[artemavd]

Доброе утро! Возникла следующая задача: имееется StrinGrid с некоторыми записями. Необходимо по нажатию на кнопку выполнить некоторые манипуляции над ними, чтобы получилось как в таблице слева, т.е. к каждому значению в таблице должно в конце приписаться "_1", "_2", "_3". При этом переставляться сами записи не должны, порядок должен сохраниться. Если приписать только "_1", то с этим у меня проблем нет. Это я могу сделать так:

procedure TMainForm.Button2Click(Sender: TObject);
var
 row,col: integer;
begin
 for row:=0 to MainForm.RzStringGrid1.RowCount - 1 do
 begin
  MainForm.RzStringGrid1.Cells[0,row]:=MainForm.RzStringGrid1.Cells[0,row] + '_1';
 end;
end;

Но, а вот как быть с "_2" и "_3"? Подскажите пожалуйста. То, что должно получиться во вложении.
http://i012.radikal.ru/1011/39/9ab0f75dece4.png

[xrob]

делаем так:

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

ссори, не посмотрел вложение =)
тогда вот так:

procedure TMainForm.Button2Click(Sender: TObject);
var
 row,col,n: integer;
begin 
 n:=1;
 for row:=0 to MainForm.RzStringGrid1.RowCount  - 1 do
 begin
  MainForm.RzStringGrid1.Cells[0,row]:=MainForm.RzStringGrid1.Cells[0,row] + '_' + inttostr(n);
  n:=n+1;
  if n>3 then n:=1;
 end;
end;

[artemavd]

Не, немного не так . Обратите внимание таблицу, которая у меня должна получиться в первом вложении которая). Ваш код сейча делает так:

[Stilet]

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

А вот теперь из sl переноси в грид.
Смысл понятен?

[artemavd]

for col:=0 to Чему-там do

- вот это строчка не понятна . Что она дает?

[eoln]

Это количество индексов. Можно ещё так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, st, fin, counts: integer;
begin
  st := 2;    //номер первой строки над которой издеваемся
  fin := 4;   //номер последней строки
  counts := 3;//количество добавляемых индексов
  for i := st to fin do for j := 1 to counts do
    stringgrid1.Cells[2, st + (i - st) * counts + j - 1] :=
      stringgrid1.Cells[1, i] + '_' + inttostr(j);
end;

красным выделены столбцы с которыми работаем

[artemavd]

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

[Stilet]

artemavd

Попробуй мой пример. Я просто не знаю до какого у тебя цикл должен работать вот и написал слово "Чет-там" )

[Prisioner]

Попробуй вот такое

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, n, rcount: integer;
  s: string;
  sl: TStringList;
begin
n:=3; //Количество +'_n' строк
sl:=TStringList.Create;

//Формируем список
//Проходим по ячейкам
for i:=0 to StringGrid1.RowCount-1 do
  //Проходим по +'_n' строкам
  for j:=1 to n do Sl.Add(StringGrid1.Cells[0,i] + '_' + IntToStr(j));

//Запоминаем число строк для последующей сортровки первого столбца
rcount:=StringGrid1.RowCount;

//Записываем полученные значения в StringGrid
StringGrid1.RowCount:=Sl.Count;
for i:=0 to Sl.Count-1 do StringGrid1.Cells[1,i]:=Sl[i];

//Сортируем первый столбец
for i:=rcount-1 downto 1 do begin
                            StringGrid1.Cells[0,i*n]:=StringGrid1.Cells[0,i];
                            StringGrid1.Cells[0,i]:='';
                            end;
end;

[artemavd]

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

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

говорит, что "[Error] MAIN.PAS(1549): For loop control variable must be simple local variable"