2 in 1: Память, дата(время)

← →
weRUs © (2003-01-30 03:14) [0]

Доброго времения суток Господа Мастаки!
У меня два вопроса:
1. Как из одной даты вычесть другую и получить количество дней, часов, минут и т.д. (пример: 30.01.2003 - 29.01.2002 = 356 дней! и т.д.)

2. Программа состоит из 3 форм и 4 модулей, при этом 2 формы создаются и удаляются динамически (при этом оне не могут быть открыты одновременно). При запуске программы, она занимает 2,9-3,1 Mb оперативной памяти после создания любой из динамических форм размер съеденной оперативки возрастает до 6-6,5 Mb и после закрытия (уничтожения динам. форм)
( Action:= caFree; MyForm := nil;)
не уменьшается...
В чем тут дело?

← →
ZeroDivide © (2003-01-30 08:40) [1]

1 Когда вычитаешь TDateTime, получаешь количество дней. /24 часов, /60 минут

2 Используй MyForm.Close. MyForm - это указатель на объект, ты указателю присваеваешь nil.

← →
Chubais © (2003-01-30 09:00) [2]

> 2 Используй MyForm.Close. MyForm - это указатель на объект,
> ты указателю присваеваешь nil.

> Action:= caFree;

1.DaysBeetwen() - возвpащает число полных суток моежду двумя датами
DaySpan() - возвращает действительное число, отражающее неполные сутки с учетом времени.

а так же есть:
MilliSecondsBeetwen()
MilliSecondSpan()
SecondsBeetwen()
SecondSpan()
MinutesBeetwen()
MinuteSpan()
HoursBeetwen()
HourSpan()
MonthBeetwen()
MonthSpan
YearBeetwen()
YearSpan()

2 in 1: Память, дата(время) Найти похожие ветки