не работает из-за не совпадения времени

[ubun]

программа таймер уроков
не работает из-за не совпадения двух временных величин now и ph1

должно что-то делать в строке

if now=ph1 then ...

в чем ошибка?

[XE5]

ubun Паковать проекты научитесь.

[ubun]

что, архив не открывается?

[XE5]

Неизвестно сколько времени ждать ответ, или за 5-10 секунд проверить архив... No Comments.

program Project1;

uses
  Forms,
  timer_lessons in '..\del3\timer_lessons.pas' {Form1}; // ГДЕ???

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[ubun]

вот на zip упковал

[XE5]

Смотрим в книгу, видим фигу (c).

[ubun]

АААА понял вот исправоил

[Stilet]

Либо пиши

if time=ph1 then ...

Либо

 ph1:=strtodatetime(memo1.lines.Strings[0]);

но тогда в Мемо должна быть и дата с временем.

[Аватар]

if time=ph1 then

Очень маленькая вероятность выполнения такого условия из-за плавающего с точкой внутреннего формата времени

[ubun]

if time=ph1 then ...

не работает