Выполнить действие один раз. - Общие вопросы Delphi

IVANSour · 02.02.2009, 20:30

Подскажите пожалуйста.
Я хотел просто открыть форму по выполнению этого действия я это сделал.
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
А кто может подсказать как это сделать один раз?

Arigato · 02.02.2009, 20:32

Заведите флаг, в условие добавьте проверку на Flag = True, а при выполнении действия присвойте флагу False.

IVANSour · 02.02.2009, 20:38

Цитата:

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

Заведите флаг, в условие добавьте проверку на Flag = True, а при выполнении действия присвойте флагу False.

Подскажи а что такое флаг.

Volt · 02.02.2009, 21:13

Код:

var flag:boolean;
....
if flag=false then
begin
if Edit1.Text>='01.02.2009'then
Form3.ShowModal;
flag:=True;
end;

mihali4 · 02.02.2009, 21:43

Напрасны ваши старания. Не в коня корм.
http://programmersforum.ru/showthread.php?t=37468 - закрыто
http://programmersforum.ru/showthread.php?t=37469 - закрыто

rpy3uH · 02.02.2009, 22:01

IVANSour, читай книги. не создавай по три копи одной темы.
тема закрыта, автору нарушение

02.02.2009, 20:30	#1
IVANSour Пользователь Регистрация: 26.12.2008 Сообщений: 55	Выполнить действие один раз. Подскажите пожалуйста. Я хотел просто открыть форму по выполнению этого действия я это сделал. if Edit1.Text>='01.02.2009'then begin Form3.ShowModal; А кто может подсказать как это сделать один раз? SOUR

02.02.2009, 20:32	#2
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,547	Заведите флаг, в условие добавьте проверку на Flag = True, а при выполнении действия присвойте флагу False. E-Mail: arigato.freelance@gmail.com

02.02.2009, 21:13	#4
Volt Форумчанин Регистрация: 07.12.2008 Сообщений: 244	Код: `var flag:boolean; .... if flag=false then begin if Edit1.Text>='01.02.2009'then Form3.ShowModal; flag:=True; end;` \|̲̅̅●̲̅̅\|̲̅̅=̲̅̅\|̲̅̅●̲̅̅] Последний раз редактировалось rpy3uH; 02.02.2009 в 21:54.

02.02.2009, 22:01	#6
rpy3uH добрый няша Старожил Регистрация: 29.10.2006 Сообщений: 4,804	IVANSour, читай книги. не создавай по три копи одной темы. тема закрыта, автору нарушение [Программирование на ассемблере на платформе x86-64]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
выполнить действие.	IVANSour	Общие вопросы Delphi	6	01.02.2009 22:53
Выполнить действие один раз.	IVANSour	Общие вопросы Delphi	6	01.02.2009 17:15
Выполнить действие один раз.	IVANSour	Общие вопросы Delphi	11	01.02.2009 14:17
Событие один раз	Михаил Юрьевич	Общие вопросы Delphi	4	01.04.2008 20:40

02.02.2009, 21:43	#5
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Напрасны ваши старания. Не в коня корм. http://programmersforum.ru/showthread.php?t=37468 - закрыто http://programmersforum.ru/showthread.php?t=37469 - закрыто