Скачать: CL | DM;

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

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

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

---

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

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

---

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

if Edit1.Text="" then exit;

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

---

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

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

---

← →
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;

---

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

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

---

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

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

---

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

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

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

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

---

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

FileExists

---

← →
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 <> ""

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c