Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Выполнение программы и TEdit   Найти похожие ветки 

 
an-na2002   (2004-04-20 10:49) [0]

Я ввожу данные через TEdit, как сделать чтобы программа не выполнялась пока TEdit пуста?


 
an-na2002   (2004-04-20 10:49) [0]

Я ввожу данные через TEdit, как сделать чтобы программа не выполнялась пока TEdit пуста?


 
ssk ©   (2004-04-20 10:50) [1]

что значит "программа не выполнялась"?


 
ssk ©   (2004-04-20 10:50) [1]

что значит "программа не выполнялась"?


 
Остап   (2004-04-20 10:51) [2]

if Edit1.Text="" then exit;

или я чего-то недопонимаю?


 
Остап   (2004-04-20 10:51) [2]

if Edit1.Text="" then exit;

или я чего-то недопонимаю?


 
Smithson ©   (2004-04-20 10:51) [3]

if Edit1.Text = "" then Программа, Стой!!!


 
Smithson ©   (2004-04-20 10:51) [3]

if Edit1.Text = "" then Программа, Стой!!!


 
WondeRu ©   (2004-04-20 10:51) [4]

if Edit1.Text <> "" then
 begin
   ...
 end;

Угадал?)))


 
WondeRu ©   (2004-04-20 10:51) [4]

if Edit1.Text <> "" then
 begin
   ...
 end;

Угадал?)))


 
Романов Р.В. ©   (2004-04-20 10:52) [5]

if Trim(Edit1.Text)="" then Exit;


 
Романов Р.В. ©   (2004-04-20 10:52) [5]

if Trim(Edit1.Text)="" then Exit;


 
WondeRu ©   (2004-04-20 10:53) [6]

Почему все выбрали в качестве имени  "Edit1"? )))))))


 
WondeRu ©   (2004-04-20 10:53) [6]

Почему все выбрали в качестве имени  "Edit1"? )))))))


 
an-na2002   (2004-04-20 10:53) [7]

Я беру имя файла из TEdit. Затем работаю с TStringList.Create и если TEdit пустое программа выдает ошибку, что файла "" нет.


 
an-na2002   (2004-04-20 10:53) [7]

Я беру имя файла из TEdit. Затем работаю с TStringList.Create и если TEdit пустое программа выдает ошибку, что файла "" нет.


 
Digitman ©   (2004-04-20 10:54) [8]

никак
с момента запуска и до момента завершения программа выполняется, и повлиять на сей факт ты не вправе и не в силах

а вот направить работу алгоритма программы по "нужному руслу" - это пожалуйста, на то программа и существует .. на то и в Делфи, в конечном итоге, и существуют события компонентов и обработчики этих событий

смотри событие TEdit.OnChange


 
Digitman ©   (2004-04-20 10:54) [8]

никак
с момента запуска и до момента завершения программа выполняется, и повлиять на сей факт ты не вправе и не в силах

а вот направить работу алгоритма программы по "нужному руслу" - это пожалуйста, на то программа и существует .. на то и в Делфи, в конечном итоге, и существуют события компонентов и обработчики этих событий

смотри событие TEdit.OnChange


 
Smithson ©   (2004-04-20 10:54) [9]

FileExists


 
Smithson ©   (2004-04-20 10:54) [9]

FileExists


 
WondeRu ©   (2004-04-20 10:55) [10]

а-а-а-а-а-а-а-а!

if FileExists(Edit1.Text) then
begin

end;


 
WondeRu ©   (2004-04-20 10:55) [10]

а-а-а-а-а-а-а-а!

if FileExists(Edit1.Text) then
begin

end;


 
Digitman ©   (2004-04-20 10:56) [11]


> программа выдает ошибку


что. сама по себе выдает ? или все же в рез-те реакции на нажатие какого-нибудь батона ?

в событии OnChange просто устанавливай св-во Батон.Enabled := Edit.Text <> ""


 
Digitman ©   (2004-04-20 10:56) [11]


> программа выдает ошибку


что. сама по себе выдает ? или все же в рез-те реакции на нажатие какого-нибудь батона ?

в событии OnChange просто устанавливай св-во Батон.Enabled := Edit.Text <> ""


 
Silver Alex ©   (2004-04-20 11:12) [12]

а еще есть компонент TActionList,на событие OnUpdate можно прописать
Button1.Enabled := Edit.Text <> EmptyStr;


 
Silver Alex ©   (2004-04-20 11:12) [12]

а еще есть компонент TActionList,на событие OnUpdate можно прописать
Button1.Enabled := Edit.Text <> EmptyStr;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.035 c
1-1082308700
Relaxxx
2004-04-18 21:18
2004.05.09
Очень хочу нацчится делать коасивое меня, в стиле OfficeXP


11-1047593688
Boguslaw
2003-03-14 01:14
2004.05.09
Bugs in KOL


14-1082377252
Родион
2004-04-19 16:20
2004.05.09
Работа с файлами


8-1076622235
SiDr
2004-02-13 00:43
2004.05.09
Яркость пикселя


9-1070889697
zzet
2003-12-08 16:21
2004.05.09
Линия и цвет OpenGl





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский