Калькулятор

[Yurik_odex]

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

var
 fmCalc: TfmCalc;


implementation
var
a,b,c:real;
f: integer;
zifra: boolean;

{$R *.dfm}

procedure TfmCalc.FormCreate(Sender: TObject);
begin
edInput.Text:='0';
f:=0;
zifra:=false;
end;


procedure TfmCalc.Bt1Click(Sender: TObject);
begin
   if (edInput.Text='0')or not (zifra)
   then
    begin
      edInput.Text:='1';
      zifra:=true
   end
   else edInput.Text:=edInput.Text+'1'
end;

procedure TfmCalc.Bt2Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='2';
zifra:=true
end
else edInput.Text:=edInput.Text+'2'

end;



procedure TfmCalc.Bt3Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='3';
zifra:=true
end
else edInput.Text:=edInput.Text+'3'
end;



procedure TfmCalc.Bt4Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='4';
zifra:=true
end
else edInput.Text:=edInput.Text+'4'
end;

procedure TfmCalc.Bt5Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='5';
zifra:=true
end
else edInput.Text:=edInput.Text+'5'
end;



procedure TfmCalc.Bt6Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='6';
zifra:=true
end
else edInput.Text:=edInput.Text+'6'
end;


procedure TfmCalc.Bt7Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='7';
zifra:=true
end
else edInput.Text:=edInput.Text+'7'
end;


procedure TfmCalc.Bt8Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='8';
zifra:=true
end
else edInput.Text:=edInput.Text+'8'
end;


procedure TfmCalc.Bt9Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='9';
zifra:=true
end
else edInput.Text:=edInput.Text+'9'
end;


procedure TfmCalc.Bt0Click(Sender: TObject);
begin
if (edInput.Text='0') or not (zifra)
then
begin
edInput.Text:='0';
zifra:=true
end
else edInput.Text:=edInput.Text+'0'
end;



procedure TfmCalc.BtPointClick(Sender: TObject);
begin
if pos(',', edInput.Text)=0
then
edInput.Text:=edInput.Text+',';
end;


procedure TfmCalc.BtClsClick(Sender: TObject);
begin
a:=0;
b:=0;
f:=0;
zifra:=false;
edInput.Text:='0'
end;


procedure TfmCalc.BtSumClick(Sender: TObject);
begin
if f=5
then a:=c
else a:=StrToFloat (edInput.Text);
f:=1;
zifra:=false
end;


procedure TfmCalc.BtRaznClick(Sender: TObject);
begin
if f=5
then a:=c
else a:=StrToFloat (edInput.Text);
f:=2;
zifra:=false
end;


procedure TfmCalc.BtUmnClick(Sender: TObject);
begin
if f=5
then a:=c
else a:=StrToFloat (edInput.Text);
f:=3;
zifra:=false
end;


procedure TfmCalc.BtDelClick(Sender: TObject);
begin
if f=5
then a:=c
else a:=StrToFloat (edInput.Text);
f:=4;
zifra:=false
end;


procedure TfmCalc.BtRavnoClick(Sender: TObject);
begin
b:=StrToFloat (edInput.Text);
case f of
1: begin
c:=a+b;
edInput.Text:=FloatToStr(c);
end;
2: begin
c:=a-b;
edInput.Text:=FloatToStr(c);
end;
3: begin
c:=a*b;
edInput.Text:=FloatToStr(c);
end;
4: if StrToFloat (edInput.Text)<>0
then
begin
c:=a/b;
edinput.Text:=floattostr(c);
end
else
edinput.Text:='деление на ноль';

end;
f:=5;
zifra:=false

end;


procedure TfmCalc.edInputKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:;
'.',',':begin
if Key='.' then Key:=',';
if Pos(',' , edInput.Text)<>0 then Key:=#0
end;
else Key:=#0
end
end;

[ACE Valery]

ну компилятор-то вам какую-то ошибку показывает?

[VIK_aka_TOR]

; забываете часто ставить...
+ дельфа сообщает об ошибках... и в какой строке... особенно если это при компиляции... так что правте...

[Yurik_odex]

не могу понять в чем ошибка

[Hacker19_90]

не могу понять в чем ошибка

Скопируйте сообщение об ошибки!

[VIK_aka_TOR]

procedure TfmCalc.edInputKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:;
'.',',':begin
if Key='.' then Key:=',';
if Pos(',' , edInput.Text)<>0 then Key:=#0;
end 
else Key:=#0;
end;
end;

и это только по последней процедуре... так же перед else часто лишние ;

[Yurik_odex]

[Error] Unit8.pas(321): Declaration expected but end of file found
[Fatal Error] Projectcalc11111.dpr(5): Could not compile used unit 'Unit8.pas'

это 1 моя программа,извините если что не так

[Yurik_odex]

помогите пожалуйста исправить ошибки. Заранее спасибо