Delphi

[straaannik]

народ такой вопрос.
надо сделать приложение подсчета основных арифметических операций над двумя числами (сложение, вычитание, деление, умножения). Программа должна выдавать ошибки при попытке деления на ноль или при не корректном вводе данных.
вроде сделал но есть пара моментов в во первых как указать про ошибки и второй вопрос где ошибка с кнопками знаков.
вот текст

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
a,b:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if edit4.text then
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
edit3.Text:=floattostr(a+b);
end;
if edit5.text then
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
edit3.Text:=floattostr(a-b);
end;
if edit6.text then
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
edit3.Text:=floattostr(a*b);
end;
if edit7.text then
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
edit3.Text:=floattostr(a/b);
end;
end;

end.

[Ybn2]

для начало, нужно разобраться с If, у тебя там просто записано Edit.text, а с чем сравнивается?

[straaannik]

тоесть этим хочу сказать если тыкаем на такую то кнопку то делается такое то действие

[Ybn2]

If это "если", then - "тогда" короче, для примера
Если a=5 тогда b:=6; Теперь на Pascal язык:
If a=5 then b:=6;
А у тебя просто
Если a тогда b:=6, вот компилятор и не понял, что такое Если а?

[straaannik]

хм.. смари допустим edit4.text а она идет как + то он должен сделать а+b

[Ybn2]

Я тебе напишу правильный ответ, но попробуй сам догадаться! Мысли кончаться пиши!

[straaannik]

ладно с этим ща подумаем а вот как насчет ошибок сделать...

[Pein95]

можно просто запретить редактирования edita а в саму прогу добавить кнопки с помощю которых будут вводитса числа

[straaannik]

Pein95
в том то и смысл что без кнопок.. тоесть ты ввел с клавиатуры число и уже тыкнул дальше на значение второе число и равно

[straaannik]

Pein95
в том то и смысл что без кнопок.. тоесть ты ввел с клавиатуры число и уже тыкнул дальше на значение второе число и равно