Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Zablkon © (2007-07-03 20:39:00)
Как мне решить здесь задачку с делением на 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;

Zablkon (2007-07-03 21:06:00) [1]
Extended я писал, но проблема была с преобразованием в строку для лейбла
FloatToStr помог решить эту проблему
Спасибо!

Dib@zol (2007-07-03 20:55:00) [2]
Вариабла С имеет тип Ворд. Это целочисленный тип, в который никоим образом не прописать дробное значение. Юзай Single, Double, Extended, GLClampF наконец!

Romm (2007-07-03 20:41:00) [3]
StrToFloat
?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »