Is not a valid integer value

[[Jank]]

Собственно, хочу реализовать прогу для решения квадратных и кубических уравнений. На паскале реализовал, хочу на дэлфи. Суть такая;
1)Есть 3(пока) edita, в который вводятся a,b,c.
2)Дальше выполняются операции вычисления дискриминанта.
3)В два других edita выводятся ответы x1 и x2. Вот прога:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Panel1: TPanel;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x1,x2:real;
  x3,x4:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var a,b,c: string;
  g,e,f:integer;
  D:integer;
  
begin

 a:=Edit1.Text;
 b:=Edit2.Text;
 c:=Edit3.Text;

 g:=strtoint(a);
 e:=strtoint(b);
 f:=strtoint(c);

 D:=(e*e)-(4*g*f);
 if d<0 then
  Edit4.Text:=('Kornei');
  Edit5.text:=('nety');
 if d=0 then
  x1:=(-e)/(2*g);
  x2:=x1;
 if d>0 then
  x1:=((-e)+sqrt(d))/(2*g);
  x2:=((-e)-sqrt(d))/(2*g);

  x3:=floattostr(x1);
  x4:=floattostr(x2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit4.text:=x3;
 Edit5.text:=x4;
end;

end.

прога выводит ошибку в названии темы, и ничего не пишет в последние едиты для ответов.

[maLoy*508]

что в эдиты вводишь?

и почему не присваивать сразу значения из эдитов?
то есть:

 g := StrToInt(Edit1.Text); //и т.д.

также поправь тут:

if d<0 then
 begin
  Edit4.Text:=('Kornei');
  Edit5.text:=('nety');
 end;
 if d=0 then
 begin
 x1:=(-e)/(2*g);
  x2:=x1;
 end;
 if d>0 then
 begin
  x1:=((-e)+sqrt(d))/(2*g);
  x2:=((-e)-sqrt(d))/(2*g);
 end;

[Sciv]

Неподходящее целочисленное значение. Трассировка Вам в помощь.

[Stilet]

Проблема здесь:

g:=strtoint(a);
e:=strtoint(b);
f:=strtoint(c);

Либо используй strtointDEF, либо вноси в эдиты правильные цифровые значения.
Между прочим не удивлюсь, если ты скажешь что пишешь в них вещественные числа (это те, у которых есть целая и дробная части) - в этом случае нужно использовать StrToFloat

[Utkin]

На какой строке ошибка? Интересно что получится если юзер в Эдит3 и Эдит2 введет нуль ?

[Sciv]

Или в исходных данных ошибка: в Edit введено не число либо вообще ничего не введено, что автоматически становится символом '', не эквивалентным ни одному числу, чтоб StrToInt мог его обработать.

[Utkin]

А вообще в ФормКреате пишется только код, который непосредственно связан с инициализацией формы. А Ваш код должен быть вынесен в отдельную функцию/процедуру.

[[Jank]]

что в эдиты вводишь?

и почему не присваивать сразу значения из эдитов?
то есть:

Ввожу в 1 эдит 1, во второй -6, в третий 5.

Между прочим не удивлюсь, если ты скажешь что пишешь в них вещественные числа (это те, у которых есть целая и дробная части) - в этом случае нужно использовать StrToFloat

^^^^^^^^^^^^^^^

[[Jank]]

Эх что-то ничего не выходит. Кто может, перепишите плиз мою прогу как надо. Просто дэлфи изучать начал относительно недавно.

[maLoy*508]

Сделай, то что написал Utkin - перенеси код из процедуры

procedure TForm1.FormCreate(Sender: TObject);

в процедуру

procedure TForm1.Button1Click(Sender: TObject);