калькулятор!!!!

[maratos]

procedure TCalculator.BitBtn17Click(Sender: TObject);
begin
if edit1.Text<>'' then y:=strtofloat(edit1.text);
case kod of
'+':z:=x+y;
'-':z:=x-y
'*':z:=x*y;
'/':z:=x/y
end ;
edit1.Text:=floattostr(z)
end;



описывал знак "=" , выдает ошибку...

[maratos]

type
TCalculator = class(TForm)
Edit1: TEdit;
Image1: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure BitBtn19Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Calculator: TCalculator;
kod : char;
x, y, z : real;

implementation

{$R *.dfm}

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

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

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

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

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

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

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

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

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

procedure TCalculator.BitBtn10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0'
end;

procedure TCalculator.BitBtn11Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'.'
end;

procedure TCalculator.BitBtn12Click(Sender: TObject);
begin
edit1.Clear
end;

procedure TCalculator.Button1Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '+';
edit1.Clear;
end;

procedure TCalculator.Button2Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '-';
edit1.Clear;
end;

procedure TCalculator.BitBtn13Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '+';
edit1.Clear;
end;

procedure TCalculator.BitBtn14Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '-';
edit1.Clear;
end;

procedure TCalculator.BitBtn15Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '/';
edit1.Clear;
end;

procedure TCalculator.BitBtn16Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '*';
edit1.Clear;
end;

procedure TCalculator.BitBtn17Click(Sender: TObject);
begin
if edit1.Text<>'' then y:=strtofloat(edit1.text);
case kod of
'+':z:=x+y;
'-':z:=x-y
'*':z:=x*y;
'/':z:=x/y
end ;
edit1.Text:=floattostr(z)
end;

procedure TCalculator.BitBtn18Click(Sender: TObject);
begin
x:=strtofloat( edit1.Text);
edit1.clear;
z:=sqrt(x);
edit1.Text:=floattostr(z)
end;

procedure TCalculator.BitBtn19Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
x:=(x*3.14)/180;
edit1.Clear;
z:=sin(x);
edit1.Text:=floattostr(z)
end;

procedure TCalculator.N2Click(Sender: TObject);
begin
close
end;

procedure TCalculator.N6Click(Sender: TObject);
begin
Edit1.CopyToClipboard;
end;

procedure TCalculator.N5Click(Sender: TObject);
begin
Edit1.PasteFromClipboard;
end;

end.

[maratos]

что не так помогите пожалуйста?...

[was3110]

Вопроса нет. Надо просто провести пошаговую отладку и найти ошибку...
За Вас в вашем коде ... (и лучше бесплатно, правда?)

[MrMorozko]

попробуй вместо = использовать >< ..может пракатит

[maratos]

не хочет...

[p51x]

Где вы описали? Как описали? Что за ошибку выдает?

[maratos]

Это делфи. ошибка: http://hostingkartinok.ru/di-6KRC.png

[phomm]

мда )) до абсурда ведь доходит... учите уже, наконец, английский

z:=x-y;

missing operator or a semicolon чудесным образом переводится как
отсутствует оператор или точка с запятой

[maratos]

Большое СПАСИБО