Выполнить действие один раз.

[IVANSour]

Кто мне подскажет как выполнить действие один раз.
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
Имеется в виду открыть форму.

[maladoy]

строки сравнивать посимвольно или как дату?
если как дату вод код
Функция StrToDate преобразует только числа, поэтому, если у Вас месяцы в виде имён, то прийдётся использовать VarToDateTime.

var
  D1, D2, D3 : TDateTime;
begin
  D1 := VarToDateTime('December 6, 1969');
  D2 := VarToDateTime('6-Apr-1998');
  D3 := VarToDateTime('1998-Apr-6');
  ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+DateToStr(D3));
end;

Проект Delphi World © Выпуск 2002 - 2004

[IVANSour]

Сообщение от maladoy

строки сравнивать посимвольно или как дату?

После того как пройдет эта дата или наступит форма должна открыться.
Это происходит но действие постоянно повторяется но мне необходимо
сделать один раз.

[Devoto]

Это действие и так выполнится один раз. Или участок кода находится в цикле или таймере??
Могу предложить как вариант решения для цыкла или таймера такой:

// переменную обьявить тут  
  private
    { Private declarations }
  run : Boolean = True;

//Этот код в процедуру запуска формы

begin
  if (Edit1.Text >= '01.02.2009') and (run = True) then
  begin
  Form3.ShowModal;
  run := False;
  end;
end;

[maladoy]

что то типа так

var d1,d2:TDateTime;
begin
d1:=StrToDate(edit1.text);
d2:=now;
if d2>d1 then form.show

[QunneD]

Я могу в этом помочь, для своего приват софта создавал такое.
Его покупали заранее а потом после 12 декабря можно было им пользоваться.

[r9m]

Можно добиться выполнения куска кода один раз за сессию Windows, используя атомарную таблицу ОС.

var atom : integer;
begin
if GlobalFindAtom(’yahoo!!!’) = 0 then
  begin
    atom := GlobalAddAtom(’yahoo!!!’);
    if Edit1.Text>='01.02.2009' then
       begin
         Form3.ShowModal;
       end
  else
    begin
      exit;
    end;
end;