[hrustnik]

Всем привет, у меня есть СтрингГрид
в 1 столбце - x
в 2 столбце - y
а вот в 3 надо номера сделать
все сделано кроме номеров .
и еще один вопросик, как сделать что когда сохраяешь в txt фаил, то сохраняет только 1 и 2 столб.
код сохранения есть, надо условие, что бы 3 столб не сохранял

[Alegun]

По первому вопросу

Код:

var
i: integer;
begin
 with StringGrid1 do
 for i:= 0 to RowCount-1 do
  begin
  Cells[1, i]:= IntToStr(x);
  Cells[2, i]:= IntToStr(y);
  Cells[3, i]:= IntToStr(i);
  end;
end;

а насчёт второго, очевидно что нужно сохранять только два первых столбца, другими словами код покажите пжлст сохранения

[hrustnik]

спасибо за первое

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
AssignFile(f, SaveDialog1.FileName);
Rewrite(f);

for i := 0 to StringGrid1.RowCount-1 do
  begin
for j := 0 to StringGrid1.ColCount-1 do
begin
  s1:=s1 + '   ' + StringGrid1.Cells[j,i];
end;
writeln(f,s1);
s1:=''
  end;

end;
CloseFile(f);
end;

[Alegun]

StringGrid1.RowCount это общее колво строк (рядов) в таблице, а ColCount сколько в ней столбцов (колонок), следовательно нужно записывать на один столбец поменьше, т.е for j := 0 to StringGrid1.ColCount -2 do..