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

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

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

Подскажите про преобразование типов

Frozzen © (2004-08-08 19:54:00)
Есть структура
у структуры поля типа longint
какему присвоить bi.XPelsPerMeter := resol*39.37
где resol : longint
не помню как типы преобразовать

Frozzen (2004-08-09 09:49:00) [1]
Удалено модератором

Walker (2004-08-08 20:34:00) [2]
по-моему Round ещё старее твоего дедовского способа...:)

GanibalLector (2004-08-08 20:30:00) [3]
А я вот не знал про Round.Старым дедовским способом делал strtoint64(Floattostr(ЗНАЧЕНИЕ)) как говорится век живи век учись,млин.

Frozzen (2004-08-08 20:29:00) [4]
спасибо

GanibalLector (2004-08-08 20:27:00) [5]
function Round(X: Extended): Int64;
Подходит целяком и полностью.

Anatoly Podgoretsky (2004-08-08 20:24:00) [6]
GanibalLector © (08.08.04 20:19) [10]
А зачем гадать?

Walker (2004-08-08 20:23:00) [7]
попробуй округление:
bi.XPelsPerMeter := Round(resol*39.37)

GanibalLector (2004-08-08 20:19:00) [8]
2 Anatoly Podgoretsky © (08.08.04 20:17) [9]
А какого типа bi.XPelsPerMeter
Вроде longint

Anatoly Podgoretsky (2004-08-08 20:17:00) [9]
А какого типа bi.XPelsPerMeter

GanibalLector (2004-08-08 20:16:00) [10]
целая эпопея
Хм...все три,а Вам уже не нравиться.Странно???

Frozzen (2004-08-08 20:15:00) [11]
целая эпопея использования функций int, floattostr,strtoint

GanibalLector (2004-08-08 20:13:00) [12]
эт чего в делфи так сложно типы преобразуются
А в каком месте сложно???Чет не вижу,млин.

GanibalLector (2004-08-08 20:12:00) [13]
и проще никак
Можно...написанием собственных процедур.

Frozzen (2004-08-08 20:09:00) [14]
и проще никак
эт чего в делфи так сложно типы преобразуются

GanibalLector (2004-08-08 20:08:00) [15]
ну а потом,после умножения естественно strtoint64(Floattostr(ЗНАЧЕНИЕ));

Frozzen (2004-08-08 20:05:00) [16]
дак int возвращает extended

GanibalLector (2004-08-08 20:04:00) [17]
int+F1

Наверх

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