Поячеечное добавление цифр в Stringgrid из Edit

[eva-2030]

Добрый вечер. У меня возникла проблема при создании массива цифр, которые нужно добавить вручную из эдита в стринггрид. Т.е., например, заносишь в эдит число, по клику кнопки оно вносится в ячейку 1.1, затем в эдит заносишь следующее число, котоое попадает в ячейку 1.2 и т.д.
Может кто подскажет как это сделать?
Заранее благодарна всем кто откликнется.

[bananasus]

А просто вводить никак что-ли?
Вообще почитай
http://www.weblibrary.biz/delphi/array/stringgrid

[eva-2030]

Такова прихоть преподователя...

[bananasus]

Сколько строк должно быть?

[eva-2030]

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

А просто вводить никак что-ли?
Вообще почитай
http://www.weblibrary.biz/delphi/array/stringgrid

Спасибо, конечно, там я уже была, но нужного мне там нет......

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

Сколько строк должно быть?

таблица 6Х6

[ArtGrek]

есть такая вещь

INC(a);  // увелечение а на 1
a : integer;

зделаи 2 такие переменые, для индексации ячеек,
и увеличиваи их при нажатии на кнопку, не забываи что индексация начинаеца с 0

[eva-2030]

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

есть такая вещь

INC(a);  // увелечение а на 1
a : integer;

зделаи 2 такие переменые, для индексации ячеек,
и увеличиваи их при нажатии на кнопку, не забываи что индексация начинаеца с 0

а по-конкретней?
Например добавляю содержимое эдита в ячейку
for i:=1 to stringgrid1.ColCount-1 do
for j:=1 to 6 do
begin
stringgrid1.Cells[i,j]:=Edit1.Text;....
или вообще меня не туда занесло?

[ArtGrek]

нет, не туда)
sek...

var
  Form1: TForm1;
    a: integer = 0;
    b: integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Cells[a, b] := Edit1.Text;
  inc(a);
  if a = 7 then
  begin
    a := 0;
    inc(b);
  end;
end;

end.

пробуи

[bananasus]

Edit2.Text := IntToStr(a);
Edit3.Text := IntToStr(b);

Ты преобразуешь строку в строку? В edit что не води, все равно это строка.

[eva-2030]

Спасибо большое.... Нашла еще один выход: StringGrid1.Cells[ACol, ARow]:=Edit1.Text - классно работает.
Сейчас проверю и вашу подсказку.