Преобразование типов

← →
Zablkon © (2007-07-03 20:39) [0]

Как мне решить здесь задачку с делением на 1000, и вывести в лейбле?
На другие операции с арифметикой не ругается, а на деление сообщает
[Error] Unit1.pas(65): Incompatible types: "Word" and "Extended"

procedure TForm1.Edit2Change(Sender: TObject);
var
a,b,c,d,e:Word;
begin
d:=Length(Edit2.Text);
if d=0 then begin Label7.Hide;
exit;
end;
a:=StrToInt(ComboBox1.Text);
d:=StrToInt(Edit2.Text);
e:=StrToInt(ComboBox2.Text);
b:=1;
c:=0.001*e; {c=e/1000}
label7.Show;
Label7.Caption:=IntToStr(c)+" ðóá";
end;

← →
Romm © (2007-07-03 20:41) [1]

StrToFloat
?

← →
Dib@zol (2007-07-03 20:55) [2]

Вариабла С имеет тип Ворд. Это целочисленный тип, в который никоим образом не прописать дробное значение. Юзай Single, Double, Extended, GLClampF наконец!

Extended я писал, но проблема была с преобразованием в строку для лейбла
FloatToStr помог решить эту проблему
Спасибо!

Преобразование типов Найти похожие ветки