[Blood_Psycho]

В общем у меня такая проблема. я недавно начал работать в delphi, точнее это необходимо в университете. я сделал процедуру, которая при нажатии кнопки должна переводить значение из Edit в колонку stringgrid. работает только с буквенными значениями, но когда дело доходит до цифр, выводит ошибку " '1' is a valid integer". вот место где появляется ошибка:

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  a[i].n_tel:=strtoint(edit7.text);
  stringgrid1.cells[k,j]:=inttostr(a[i].n_tel); //указывает на эту строку
  k:=k+1;
end;

Admin: Пользуемся тегами!

не обращайте внимание на массив, это по заданию я ввел его. переменные все типа integer. помогите разобраться?

[v1s2222]

Если хочешь чтоб можно было работать и с числами и с буквами, то сделай массив типа string. Тогда будет так:

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  a[i].n_tel:=edit7.text; // где массив а[i].n_tel типа string
  stringgrid1.cells[k,j]:=a[i].n_tel;
  k:=k+1;
end;

Или делай так:

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  a[i].n_tel:=strtointdef(edit7.text, 0);
  stringgrid1.cells[k,j]:=inttostr(a[i].n_tel); //указывает на эту строку
  k:=k+1;
end;