Кнопка +/- в калькуляторе

[Хитман]

Сделал простой калькулятор, но есть один вопрос. При нажатии на кнопку "+/-" сразу выскакивает ошибка. Как сделать чтобы при нажатии в начале нечего не происходило?

procedure TForm1.Button18Click(Sender: TObject);
begin
 edit1.Text:=floattostr(-(strtofloat(Edit1.Text)));
end;

[evg_m]

ошибка выскакивает если в поле ввода(Edit1) поле нет числа, значит прежде чем вычислять невредно проверить, а есть там число.
Пустая строка '' по мнению Delphi числом не является.
Другой путь не допускать пустого поля ввода. Заполнять его сразу и безоговорочно '0'

[eval]

edit1.Text:=floattostr(-(strtofloat(Edit1.Text)));

это что за выкрутасы? Что должны делать "+/-"?

[Stilet]

procedure TForm1.Button18Click(Sender: TObject);
begin
 with edit1 do begin
  if length(text)>0 then text:='-' else 
   if text[1]<>'-' then text:='-'+text else text:=copy(text,2,length(text));
 end;
end;

Подходит?

[hon]

Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit1.Text)-StrToInt(Edit1.Text));

писал прямо здесь. за работоспособность не отвечаю.

[Хитман]

Нечего непомагает
Ошибка
Project raised excepton class EConvertError with message" is not valid integer value'. Process stopped.

Все программа:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Edit1: TEdit;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,d:extended; 
 c:char;
 i,n: integer;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
 begin 
 n:=pos(',',edit1.text); {ищем первую запятую в поле}
 for i:=n+1 to length(edit1.text) do 
 if edit1.text[i]=',' then edit1.clear; {Если находится ещё одна запятая после первой - очищаем поле}
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'2'; 
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'4'; 
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'5'; 
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'6'; 
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'7'; 
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'8'; 
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'9';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+','; 
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'0';
 if edit1.Text='00' then edit1.Text:='0'; {позволяет ввод лишь одного нуля вначале}
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
edit1.Clear
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
  if edit1.Text<>'' then a:=strtofloat(edit1.Text); {Проверка введено ли число}
 c:='+'; {Математическое действие}
 edit1.Clear;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
 if edit1.Text<>'' then a:=strtofloat(edit1.Text);
 c:='/';
 edit1.Clear;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
 if edit1.Text<>'' then a:=strtofloat(edit1.Text);
 c:='-';
 edit1.Clear;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
if edit1.Text<>'' then a:=strtofloat(edit1.Text);
 c:='*';
 edit1.Clear;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
    if edit1.Text<>'' then b:=strtofloat(edit1.Text);
 case c of 
 '+':d:=a+b; 
 '-':d:=a*b; 
 '*':d:=a*b; 
 '/':begin 
 if edit1.Text<>'' then b:=strtofloat(edit1.Text); 
 if b=0 then showmessage('На ноль делить нельзя') else 
 d:=a/b;end;
 end; 
 edit1.Text:=floattostr(d); 
 end;
procedure TForm1.Button18Click(Sender: TObject);
begin
 edit1.Text:=floattostr(-(strtofloat(Edit1.Text)));
end;

end.

[hon]

Не код, а жуть! Кто-нибуть вас учил давать названия кнопкам? Например выберете вашу Button17, которая похоже отвечает за C (сброс) и в свойстве Name кнопки напишите ButtonC, и в коде станет вместо Button17 ButtonC. Без формы ничего не пойму, поэтому улучшите читабельность кода, а потом выложите новый код.

[Mad_Cat]

мдя уж
v.1.

procedure TForm1.Button18Click(Sender: TObject);
var buf:string;
begin
 buf:=edit1.Text;
if buf[1] = '-' then delete(buf,1,1)
else buf:='-'+buf;
edit1,text:=buf;
end;

v.2.

procedure TForm1.Button18Click(Sender: TObject);
var k:double;
begin 
If TryStrToFloat(edit1.text,k) then edit1.text:=FloatTostr(-k);
end;

[chertovich]

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

procedure TForm1.Button18Click(Sender: TObject);
begin
 with edit1 do begin
  if length(text)>0 then text:='-' else 
   if text[1]<>'-' then text:='-'+text else text:=copy(text,2,length(text));
 end;
end;

Подходит?

Извиняюсь, но мне становится жутко глядя на этот код. Обрабатывать числа используя строки....

[Хитман]

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

мдя уж
v.1.

procedure TForm1.Button18Click(Sender: TObject);
var buf:string;
begin
 buf:=edit1.Text;
if buf[1] = '-' then delete(buf,1,1)
else buf:='-'+buf;
edit1,text:=buf;
end;

v.2.

procedure TForm1.Button18Click(Sender: TObject);
var k:double;
begin 
If TryStrToFloat(edit1.text,k) then edit1.text:=FloatTostr(-k);
end;

Большое спасибо, второй вариант подошел.