Ошибка времени выполнения: Входная строка имела неверный формат. Как исправить?

Question

[Геральт Ривийский]

Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

type
Form1 = class(Form)
procedure Form1_Load(sender: Object; e: EventArgs);
procedure button2_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
label1: &Label;
textBox1: TextBox;
label2: &Label;
textBox2: TextBox;
label3: &Label;
textBox3: TextBox;
label4: &Label;
label5: &Label;
label6: &Label;
textBox4: TextBox;
label7: &Label;
label10: &Label;
label11: &Label;
textBox6: TextBox;
label9: &Label;
label14: &Label;
label15: &Label;
textBox9: TextBox;
label12: &Label;
textBox7: TextBox;
label13: &Label;
button2: Button;
label8: &Label;
textBox5: TextBox;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;

implementation

procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin

end;

procedure Form1.button2_Click(sender: Object; e: EventArgs);
var x, a, b, y : real;
begin
x := strtoint(textBox1.Text);
a := strtoint(textBox2.Text);
b := strtoint(textBox3.Text);
y := strtoint(textBox7.Text);

textBox5.Text :=FloatToStr((x*a+b)*50);
textBox9.Text :=FloatToStr ((((x*a+b)*50)/2058));
textBox6.Text :=FloatToStr (((((x*a+b)*50)/2058)+y));
end;

end.

Ошибка во входной строке. Какой? И где ее найти?

Comments

[Геральт Ривийский]

Это PABCSystem.pas
begin
var j := 1;
while (j <= s.Length) and char.IsWhiteSpace(s[j]) do
j += 1;
if (j > s.Length) then
raise new System.FormatException(ErrorStringFromResource('Format_InvalidString'));
var sign := 0;
if s[j] = '-' then
begin
sign := -1;
j += 1;
end
else if s[j] = '+' then
begin
sign := 1;
j += 1;
end;
if (j > s.Length) then
raise new System.FormatException(ErrorStringFromResource('Format_InvalidString'));
var c := integer(s[j]);
if (c < 48) or (c > 57) then
raise new System.FormatException(ErrorStringFromResource('Format_InvalidString'));
Result := c - 48;
j += 1;
while j <= s.Length do
begin
c := integer(s[j]);
if c > 57 then
break;
if c < 48 then
break;
if Result > 214748364 then
raise new System.OverflowException(ErrorStringFromResource('Overflow_Int32'));
Result := Result * 10 + (c - 48);
j += 1;
end;
if Result < 0 then
if (Result = -2147483648) and (sign = -1) then
exit
else raise new System.OverflowException(ErrorStringFromResource('Overflow_Int32'));
if sign = -1 then
Result := -Result;
while (j <= s.Length) and char.IsWhiteSpace(s[j]) do
j += 1;
if j <= s.Length then
raise new System.FormatException(ErrorStringFromResource('Format_InvalidString'));
end; ------Подсвечивает эту строку

Answer 1

[Андрей]

А вводите Вы только целочисленные входные данные ? (ибо ... strtoint ...)

Comments

[Геральт Ривийский]

Только вещественные

[Андрей]

а почему тогда используете strtoint ? она Вам и выкидывает exception