Скачать: CL | DM;

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

← →
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 наконец!

---

← →
Zablkon ©   (2007-07-03 21:06) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c