is not a valid integer value

[Пепел Феникса]

а в Эдит число ввели?

[AFA]

до этого не доходит, exe не запускается!

[Пепел Феникса]

  VertSize:= StrToInt(Edit1.Text);
   HorzSize:= StrToInt(Edit2.Text);

перенесите код из FormCreate на нажатие кнопки.(новой)
и увидите разницу

[AFA]

Сообщение от Пепел Феникса

  VertSize:= StrToInt(Edit1.Text);
   HorzSize:= StrToInt(Edit2.Text);

перенесите код из FormCreate на нажатие кнопки.(новой)
и увидите разницу

Перекинул код из ФормКрейт'a на новую кнопку и ничего не изменилось..
всё равно пишет: "....exception class EConvertError with massage "матрица А" is not a valid integer value....."

[Пепел Феникса]

короче...что вы пытаетесь считать из Эдита?

[AFA]

число(int) которым мы задаём р-ры матрицы

[DomiNick]

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

...
Я бы немного по другому делал... Матрица квадратная (NxN)?

Так квадратная должна быть матрица или нет?

[AFA]

DomiNick

да

[Stilet]

Вместо StrToInt пользуй

 if TRYStrToInt(Edit1.Text,  VertSize) then
 // Правильно введено все ок
 else
 // В Эдите не число а черти-ше.

Смысл в том чтоб не просто переводить неизвесно что, а еще и проверять - можно ли введенное переводить.

[AFA]

2 Stilet

я правельно вас понял?..

procedure TForm1.FormCreate(Sender: TObject);
 var
  i,j: integer;
begin
  StringGrid1.Cells[0,0]:= 'Матрица А';
  
   N := 5;
  Edit1.Text := FloatToStr(N);
   Edit2.Text := FloatToStr(N);


   if TRYStrToInt(Edit1.Text,  VertSize) and TRYStrToInt(Edit2.Text,  HorzSize) then
   for i:= 1 to HorzSize do
    begin
      StringGrid1.Cells[0,i]:= 'i = ' + IntToStr(i);
    end;
  for j:= 1 to VertSize do
    begin
      StringGrid1.Cells[j,0]:= 'j = ' + IntToStr(j);
    end;
   for i:= 1 to HorzSize do
    for j:= 1 to VertSize do
      begin
        StringGrid1.Cells[i,j]:= IntToStr(0);
      end;
 else 
   begin
  Application.MessageBox( 'Введите число!!!','Ошибка ввода!!!', mb_OK+MB_ICONERROR);
     exit;
  end;

  //VertSize:= StrToInt(Edit1.Text);
   //HorzSize:= StrToInt(Edit2.Text);
   
  
end;