Калькулятор(очень простой) делфи 5

[serhan]

Задача: Ввести два операнди (цілі або дійсні числа), ввести знак арифметичної дії (+, -, *, /) і отримати результат виконання даної арифметичної операції при натисканні на кнопку із написом “Обчислити”. Передбачити захист від помилкового виконання операції ділення на нуль.Також передбачити захист від помилкового введення знаку арифметичної дії.

Написав програмку, але вона не правельно працює. а саме не правельно перевіряє на правельність знака. Коли "+" працює норм, коли інший правельний знак - рахує, але видає "помилку" теж.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Memo2: TMemo;
Button5: TButton;
Edit3: TEdit;
Panel2: TPanel;
Label1: TLabel;
Button1: TButton;


procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var result:real;
a,b:real;
c:integer;
implementation

{$R *.DFM}



procedure TForm1.Button5Click(Sender: TObject);
begin
panel2.caption:='';
c:=0;
if edit3.text='*' then c:=4 ;
if edit3.text='-' then c:=2 ;
if edit3.text='/' then c:=3 ;
if edit3.text='+' then c:=1 else Panel2.caption:=('Помилка');
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
case c of
1: begin
result:=a+b;
memo1.Lines.Add(edit1.Text+' + '+edit2.Text+' = '+floattostr(result));
edit1.Clear;
edit2.Clear;
end;
2: begin
result:=a-b;
memo1.Lines.Add(edit1.Text+' - '+edit2.Text+' = '+floattostr(result));
edit1.Clear;
edit2.Clear;
end;
3: begin
if b=0 then memo1.Lines.Add('Помилка')
else
begin
result:=a/b;
memo1.Lines.Add(edit1.Text+' / '+edit2.Text+' = '+floattostr(result)); end;
edit1.Clear;
edit2.Clear;
end;
4: begin
result:=a*b;
memo1.Lines.Add(edit1.Text+' * '+edit2.Text+' = '+floattostr(result));
edit1.Clear;
edit2.Clear;
end;
end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Clear;
panel2.caption:='';
end;

end.

[serhan]

Переписал по проще) но ошибка та самая...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c:extended;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if edit3.text='+' then   Panel2.caption:=(FloatToStr(a+b)) ;
if edit3.text='-' then   Panel2.caption:=(FloatToStr(a-b)) ;
if edit3.text='*' then   Panel2.caption:=(FloatToStr(a*b)) ;
if edit3.text='/' then   Panel2.caption:=(FloatToStr(a/b)) else Panel2.caption:=('Помилка');

end;

end.

[whatever]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c:extended;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if (edit3.text[1] in ['+','-','/','*'])and(length(edit3.Text)=1) then
  begin
    if edit3.text='+' then   Panel2.caption:=(FloatToStr(a+b)) ;
    if edit3.text='-' then   Panel2.caption:=(FloatToStr(a-b)) ;
    if edit3.text='*' then   Panel2.caption:=(FloatToStr(a*b)) ;
    if edit3.text='/' then   Panel2.caption:=(FloatToStr(a/b)) 
  end
else Panel2.caption:=('Помилка');  //Прям "Печалька" :D Это какой язык, кстати?

end;

end.

[serhan]

Спасибо, я обманул другим путем.

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  a,b:extended; c:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=0;
if edit3.text='+' then   c:=1;
if edit3.text='-' then   c:=2;
if edit3.text='*' then   c:=3;
if edit3.text='/' then   c:=4;
case c of
1:Panel2.caption:=(FloatToStr(a+b));
2:Panel2.caption:=(FloatToStr(a-b)) ;
3:Panel2.caption:=(FloatToStr(a*b)) ;
4:Panel2.caption:=(FloatToStr(a/b)) ;
else Panel2.caption:=('Помилка') ;
end;
end;
end.

Объясни пожалуйста строку своего когда:

if (edit3.text[1] in ['+','-','/','*'])and(length(edit3.Text)=1) then

Язык Delphi 5.0

[whatever]

Тоже вариант.

if (edit3.text[1] in ['+','-','/','*'])and(length(edit3.Text)=1) then

(edit3.text[1] in ['+','-','/','*'])
edit3.text[1] - первый символ из edit3.text (а если выполняется второе условие, то он и единственный). Далее проверяем, равен ли этот символ +, -, * или /. Если чему-то равен, то возращает true.

(length(edit3.Text)=1)
возвращает true, если в edit3 всего один символ (длинна строки равна 1)