как записать?

[grafgrial]

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

procedure TForm1.btn1Click(Sender: TObject);
var a, b: integer; c: real;
begin
if (Edt1. Text<>'') and (Edt2. Text<>'') and (Edt3. Text<>'') then begin
a:=StrToInt (Edt2.Text);
b:=StrToInt (Edt3.Text);
ad:=StrToInt(edt1.Text);
c:= a/ad;
Edt4.Text:=Format('%f',[c]);
end;
end;

procedure TForm1.cbb1Change(Sender: TObject);
begin
case cbb1.ItemIndex of
0:
begin
edt3.Text := '0.21';
end;
1:
begin
edt3.Text := '0.28';
end;
2:
begin
edt3.Text := '0.42';
end;
end;
end;
Ответ всегда получается 0 - ка сделать чтобы был нормальный вывод
например 5/0,21=23,80 , а получатся всегда 0

[evg_m]

сравни

strtoint('0.28');

и

strtofloat('0.28');

[grafgrial]

EVG_M не понял тебя!
У меня вылазит вот такая ошибка

[grafgrial]

Как я понял он считает 0.21 целым числом равным 0, подскажите как это исправить

[maLoy*508]

функция StrToInt(из строки в целое)
0.21 не есть целое
следовательно нужно использовать StrToFloat

a:=StrToFloat (Edt2.Text);
b:=StrToFloat (Edt3.Text);
ad:=StrToFloat(edt1.Text);

[grafgrial]

выдает вот такую ошибку
[Error] Unit1.pas(55): Incompatible types: 'Integer' and 'Extended'
[Error] Unit1.pas(56): Incompatible types: 'Integer' and 'Extended'
[Error] Unit1.pas(57): Incompatible types: 'Integer' and 'Extended'
[Error] Unit1.pas(58): Incompatible types: 'Integer' and 'Extended'

а может еще и в строке
var a, b: integer; c: real;
ошибка есть какая-то?

[maLoy*508]

а может еще и в строке
var a, b: integer; c: real;
ошибка есть какая-то?

да, проглядел...
поставь все real