Вывод сообщения об ошибке...

[Ho-ho]

Написал простенькую программу, которая выдаёт корни квадратного уравнения. Но в ней есть один недочет, он заключается в том, что если оставить хотя бы одно из полей для ввода переменных пустым, то программа выдаст ошибку - "" is not a valid floating point value"... Как сделать так, чтобы программа "по нормальному" писала мол, "Введите значения переменных"? Вод код программы:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a   : real;
b   : real;
c   : real;
x1  : real;
x2  : real;
x3  : real;
Dis : real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
Dis := b*b - 4*a*c;
if Dis < 0
   then
     begin
       Label5.Caption := 'Квадратное уравнение с указанными Вами ' +
                                'коэффициентами не имеет решений, т.к. ' +
                                'дискриминант меньше нуля.';
       Label5.Font.Style:=[];
       Label5.Font.Color:=clBlack;
     end
   else
     if Dis > 0
       then
         begin
           x1 := (-b + sqrt(Dis)) / (2*a);
           x2 := (-b - sqrt(Dis)) / (2*a);
           Label5.Caption := 'Уравнение с указанными Вами коэффициентами ' +
                             'имеет два корня, т.к. дискриминант больше нуля '
                             + #13 +
                             'Первый корень равен: ' +
                             FloatToStrF(x1,ffFixed,4,3) + '.' + #13 +
                             'Второй корень равен: ' +
                             FloatToStrF(x2,ffFixed,4,3) + '.';
           Label5.Font.Style:=[];
           Label5.Font.Color:=clBlack;
         end
       else
         begin
           x3 := -b / 2*a;
           Label5.Caption := 'Уравнение с указанными Вами коэффициентами ' +
                             'имеет один корень, т.к. дискриминант ' +
                             'равен нулю. ' + #13 +
                             'корень этого уравнения равен: ' +
                             FloatToStrF(x3,ffFixed,4,3) + '.';
           Label5.Font.Style:=[];
           Label5.Font.Color:=clBlack;
         end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9':                         ;
    #8      :                         ;
    #13    : Edit2.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
  else Key :=Chr(0);
  end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
    '0'..'9':                         ;
    #8      :                         ;
    #13    : Edit3.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
  else Key :=Chr(0);
  end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
    '0'..'9':                             ;
    #8      :                             ;
    #13    : Button1.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
  else Key :=Chr(0);
  end;
end;

end.

P.S. в Delphi только 4 дня (да и вообще программирую только 4 дня...).

[danekne]

при нажатии на клавишу

if (edit1.text:="") or (edit2.text:="") or (edit3.text:=") then showmessage("введите все данные")
else
<код обработчик>

[Utkin]

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);

Перед этим нужно сделать проверку, что-то типа

if Edit1.Text='' then Edit1.Text:='0';

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

[Alex2009]

if Edit1.Text='' then Label1.Caption:='error';

[Gonzo]

Заключай в try...except и лови ошибку

[danekne]

Utkin при такой схеме - вполне можно на деление на ноль попасть

[Utkin]

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

Utkin при такой схеме - вполне можно на деление на ноль попасть

Это уже другой разговор, можно заменять на единицу и вообще строго говоря на нуль можно делить...

[Anatole]

строго говоря на нуль можно делить...

вообще то, не всегда

[Ho-ho]

danekne и Utkin, я пробовал делать то, что вы говорите, только вот тут:

procedure TForm1.Edit(1)(2)(3)KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9':                         ;
    #8      :                         ;
    #13    : Edit2.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
  else Key :=Chr(0);
  end;
end;

Вот что я добавлял:

  case Key of
    '0'..'9':               ;
    #8      :               ;
    #13     : Edit2.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
    ''     :
      begin
        if Key = '' then ShowMessage('Введите все данные');
      end;
  else Key :=Chr(0);
  end;

Но компилятор ругается, говорит что "Incompatible types: 'Char' and 'String'"...
Что написали остальные я вообще не понял

[Utkin]

Сообщение от Ho-ho

danekne и Utkin, я пробовал делать то, что вы говорите, только вот тут:

procedure TForm1.Edit(1)(2)(3)KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9':                         ;
    #8      :                         ;
    #13    : Edit2.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
  else Key :=Chr(0);
  end;
end;

Вот что я добавлял:

  case Key of
    '0'..'9':               ;
    #8      :               ;
    #13     : Edit2.SetFocus;
    '.',',' :
      begin
        if Key = '.' then Key := ',';
      end;
    ''     :
      begin
        if Key = '' then ShowMessage('Введите все данные');
      end;
  else Key :=Chr(0);
  end;

Но компилятор ругается, говорит что "Incompatible types: 'Char' and 'String'"...
Что написали остальные я вообще не понял

Не писал я тебе такого, посмотри внимательно.

if Edit1.Text='' then Edit1.Text:='1'; // А то нуль не всем нравится
if Edit2.Text='' then Edit2.Text:='1';
if Edit3.Text='' then Edit3.Text:='1';

сразу перед

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);