Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.29;
Скачать: 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 вся ветка

Текущий архив: 2007.07.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
4-1171614711
niko_
2007-02-16 11:31
2007.07.29
Блокировка Ctr+Alt+Del


2-1183447174
delphino
2007-07-03 11:19
2007.07.29
Почему может долго грузится программа?


8-1162421607
aktuba
2006-11-02 01:53
2007.07.29
TImageList.GetIcon глючит...


15-1183429016
Slider007
2007-07-03 06:16
2007.07.29
С днем рождения ! 3 июля 2007 вторник


15-1183225038
@!!ex
2007-06-30 21:37
2007.07.29
Можно ли вернуть РАБОЧУЮЮ, но не совместимой с железом видюху?