Выполнение программы и 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]

FileExists

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

if FileExists(Edit1.Text) then
begin

end;

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

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

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

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

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