Ошибка при выполнени программы

[hagal]

Программа написана на Делфи5, длолжна была перемножать два введенных числа. При попытке выполнить выводится сообщение:
'IntMultP.exe raised exeption class EConvertError with massage "" is not a valid integer vlue.
Помогите помогите, пожалуйста, разобраться. Программа списана с "Delphi 5 учебный курс"


unit IntMult;

interface

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

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    lbOutput: TLabel;
    mmOutput: TMemo;
    bbResult: TBitBtn;
    edInput: TMaskEdit;
    procedure bbRunClick(Sender: TObject);
    procedure bbResultClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    X,Y : Integer;
  public
    { Public declarations }
  end;

var
  fmExample: TfmExample;

implementation

{$R *.DFM}

procedure TfmExample.bbRunClick(Sender: TObject);
begin

  X := StrToInt(Trim(edInput.Text));
  mmOutput.Lines.Add('1-й операнд: ' + edInput.Text);
  edInput.Text := ' ';
  edInput.SetFocus;
  lbOutput.Caption := 'Введите 2-й операнд: ';
  bbResult.Show;
  bbRun.Hide;
end;

procedure TfmExample.bbResultClick(Sender: TObject);
begin

  Y := StrToInt(Trim(edInput.Text));
  mmOutput.Lines.Add('2-й операнд: '+ edInput.Text);
  mmOutput.Lines.Add('Результат: ' + IntToStr(X) + ' * ' + IntToStr(Y) + ' = ' + IntToStr(X*Y));
  edInput.Text := ' ';
  edInput.SetFocus;
  lbOutput.Caption := 'Введите 1-й операнд:';
  bbResult.Hide;
  bbRun.Show;
end;{}

procedure TfmExample.FormActivate(Sender: TObject);
begin
  edInput.SetFocus;
  lbOutput.Caption := 'Введите 1-й операнд';
end;{}


end.

[Xeysan]

Я в Паскале( delphi ) почти NULL , но, судя по исключению, ошибка в StrToInt() ( наверное, даже в IntToStr(), хотя я не понимаю что-такое invalid integer value ). Проверь, что именно они получает в качестве аргумента.

[Sashok]

Я в Паскале тоже почти NULL :oops: , но, исходя из общих соображений, согласен с Xeysan. Полагаю, что "invalid integer value " - это попытка преобразовать произвольный текст в число. Если это так, ошибка, видимо, в StrToInt().

[Dusk]

А какие числа ты вводишь? Integer - это целочисленная переменная, и число с плавающей запятой неприемлемо....

[Антон (LogRus)]

Скорее всего у тебя StrToInt получает пустую строку. Видно из сообщения об ошибке. Попробуй обработать исключение или постывь точки останова и следи за переменными.

[FoxVID]

edInput не должен быть пустым. При создании в его свойстве Text поставь 0. Кроме того, введи функцию проверки значения edInput. Опять же если пустая строка - присвой значение 0