Lazarus

[SnS]

Здравствуйте Ув. у меня такой вопрос: у меня на форме 2 Edit, 1Button, StringGrid, мне нужно через 2 эдита ввести данные в таблицу, при нажатии кнопки.Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=1;
a[i].name:=edit1.text;
a[i].fam:=edit2.text;
stringGrid1.rowCount:=1;
for i:=1 to 2 do
begin
stringGrid1.rowCount:=stringGrid1.r owCount+1;
stringgrid1.cells[1,i]:=a[i].name;
stringgrid1.cells[2,i]:=a[i].fam;
end;
i:=i+1;
end;
Как мне сделать так, чтобы данные выводились в таблице каждые с новой строки. заранее спасибо

[type_Oleg]

У вас переменная i - локальная, если она объявлена в Button1Click. Поэтому толку от этого i:=i+1; - никакого.
Я вообще не понял, что она значит.

Создайте глобальную переменную , после var Form1: TForm1;

   ChisloStrok:Integer;
// ...
procedure TForm1.FormCreate(Sender: TObject);
begin
 ChisloStrok:=1;    //  инициализация
end;

[SnS]

всё равно выводит всё время в 1 строку(

[type_Oleg]

Щас попробую ...
А этот массив записей a - где-то еще используется? Можно без него?

[type_Oleg]

Вот, сделал без этого массива.
Код, без верхней части:

var
  Form1: TForm1;
  ChisloStrok:Integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  ChisloStrok:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.RowCount:=ChisloStrok+1;
  StringGrid1.Cells[1,ChisloStrok]:=Edit1.Text;
  StringGrid1.Cells[2,ChisloStrok]:=Edit2.Text;
  ChisloStrok:=ChisloStrok+1;
end;

procedure TForm1.Button2Click(Sender: TObject);   // сброс
begin
  ChisloStrok:=1;
  StringGrid1.RowCount:=2;
  StringGrid1.Cells[1,1]:='';
  StringGrid1.Cells[2,1]:='';
end;

end.

И результат после 3 кликов:

[SnS]

с ним нужно(

[SnS]

хотя и без него можно

[eval]

интересно, и что делает эта глобальная? проще просто выбросить ее

[type_Oleg]

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

интересно, и что делает эта глобальная? проще просто выбросить ее

Можно и без нее. Вместо нее использовать величину (StringGrid1.RowCount-1).
Она нужна только для человека, а не компилятора. С ней как-то понятнее.

[SnS]

type_Oleg, спасибо большое, теперь разобралась)