TStringGrid

[MyQwErTy]

очередной тупой вопрос:
мне надо сделать так, чтобы при нажатии на кнопку заносились данные в таблицу, рисовалась следующая строка и происходил переход на эту строку, но переход и рисование строки у меня не получается. Кто-нибудь знает как это делается?? Заранее спасибо

[Stilet]

Добавление новой строки и переход на нее.

StringGrid.RowCount:=StringGrid.RowCount+1;
StringGrid.Row:=StringGrid.RowCount-1

[MyQwErTy]

строка добавляется и переход тоже есть, но данные записываются только в первую строку

[puporev]

Наверное в цикле после каждой записи надо счетчик увеличивать, и прсваивать его значение номеру строки.

[MyQwErTy]

procedure TForm2.Button1Click(Sender: TObject);
var i,x:integer;
finished:boolean;
key:integer;
begin
x:=1;
repeat
Form1.StringGrid1.Cells[0,x]:=Edit7.Text;
Form1.StringGrid1.Cells[1,x]:=Edit1.Text;
Form1.StringGrid1.Cells[2,x]:=Edit2.Text;
Form1.StringGrid1.Cells[3,x]:=Edit3.Text;
Form1.StringGrid1.Cells[4,x]:=Edit4.Text;
Form1.StringGrid1.Cells[5,x]:=Edit5.Text;
Form1.StringGrid1.Cells[6,x]:=Edit6.Text;
Form1.StringGrid1.Cells[7,x]:=IntToStr(StrToInt(Edit5.Text)*StrToInt(Edit6.Text));
Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
Form1.StringGrid1.Row:=Form1.StringGrid1.RowCount-1;
inc(x);
if key=27 then finished:=true;
until finished=true;
end;

вот фрагмент программы, у меня есть две формы, первая содежит таблицу, а во второй форме происходит ввод данных в таблицу через Editы, исправьте, пожалуйста, мой код так, чтобы после нажатия клавиши данные заносились в таблицу и происходил переход на следующую строку

[puporev]

Основная ошибка то, что x объявлен как локальная переменная. Кроме того надо бы чистить Эдиты. Вот пример кода, под Ваш, просто на всякий случай проверил, поэтому текст чуть другой.

var
  Form1: TForm1;
  x:integer=1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin
StringGrid1.Cells[0,x]:=Edit7.Text;
StringGrid1.Cells[1,x]:=Edit1.Text;
StringGrid1.Cells[2,x]:=Edit2.Text;
StringGrid1.Cells[3,x]:=Edit3.Text;
StringGrid1.Cells[4,x]:=Edit4.Text;
StringGrid1.Cells[5,x]:=Edit5.Text;
StringGrid1.Cells[6,x]:=Edit6.Text;
StringGrid1.Cells[7,x]:=IntToStr(StrToInt(Edit5.Text)*StrToInt(Edit6.Text));
StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
StringGrid1.Row:=Form1.StringGrid1.RowCount-1;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit1.SetFocus;
inc(x);
end;

[MyQwErTy]

спасибо, всё работает

[Stilet]

Я двух моментов не понял:
Во-первых что это за if key=27 then finished:=true; что за key?
Во-вторых а почему бы не сделать так:

StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
StringGrid1.Cells[0,StringGrid1.RowCount-1]:=Edit7.Text;