Предупреждение

@GoOFee · Регистрация: 04.05.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Имеется 3 эдина необходимо сделать проверку пустые они или нет, если пустые то необходимо вывести ошибку, а потом после закрытия ошибки, вернуть пользователя к этим эдитам, не могу придумать как это сделать вот так попробовал но не получается он дальше серовно открывает следующую форму

Delphi

repeat
if edit1.Text='' then ShowMessage ('Ââåäèòå ôàìèëèþ, èìÿ è îò÷åñòâî');
if edit2.Text='' then ShowMessage('Ââåäèòå ñâîþ ñïåöèàëüíîñòü');
if edit3.Text='' then ShowMessage('Ââåäèòå êàôåäðó íà êîòîðîé âû ðàáîòàåòå');
until ((FIO='') and (office='') and (kaf=''));

P.S в FIO заносится текст с первого эдита, в office со второго, в kaf с третьего

@mmm_corp · 09.06.2015, 18:46

а что там делает цикл непонял....
и еще по хорошему проверки коректности данных должны быть в тригерах, если у вас СУБД напр. ексес или какойто другой отстой косящий под СУБД, то нужно делать проверки примерно так:

SQL

PROCEDURE TForm_tovar.ADODataSet_tovarBeforeInsert(DataSet: TDataSet);
var t: String;
BEGIN
 IF DataSet.fieldbyname('superpuperpole').asstring = '' THEN 
 BEGIN
 ShowMessage('Error');
 Abort;
 END;
END;

а у вас извините черт знает что за код)

@GoOFee · 09.06.2015, 19:23 **[ТС]**

mmm_corp, Да там используется БД аксес но для других целей, мне надо это для выдачи результатов, а на счет моего кода да я понял там полный бред )) то что вы написали не годится, просто я не представляю как сделать так что если эти 3 поля пустых чтобы не переходила на следующую форму

@mmm_corp · 09.06.2015, 19:31

да проще простого:

навешайте на OnChange всех едитиов примерно такое только не надо вешать на каждый отдельно, присвойте все в один обработчик:

Delphi

1	DaleButton.Enable:=(edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'')

@GoOFee 0 / 0 / 1 Регистрация: 04.05.2014 Сообщений: 106
	09.06.2015, 19:23 [ТС]	3
	mmm_corp, Да там используется БД аксес но для других целей, мне надо это для выдачи результатов, а на счет моего кода да я понял там полный бред )) то что вы написали не годится, просто я не представляю как сделать так что если эти 3 поля пустых чтобы не переходила на следующую форму 0

	09.06.2015, 19:31