Текущий архив: 2003.09.15;
Скачать: CL | DM;

Вниз

Проверка заполнения   Найти похожие ветки 

← →
BIG_BROTHER   (2003-09-02 20:55) [0]

Надо проверить заполнение Edit"ов пишу:
If DBEdit1<>"" AND DBEdit2<>"" AND DBEdit3<>""
then
begin
...
end;
end;
Delphi ругается!
Помогите найти ошибку!

---

← →
BIG_BROTHER   (2003-09-02 21:03) [1]

Причем если стереть все AND т.е. оставить так
If DBEdit1<>""
then
begin
...
end;
end;
То проверка одного Edita работает но мне надо проверить все!

---

← →
Ерш твое имя   (2003-09-02 21:03) [2]

If (DBEdit1<>"") AND (DBEdit2<>"") AND (DBEdit3<>"")...

Нажми F1 и читай "Operator precedence rules". Они рулез.

---

← →
Моджахед ©   (2003-09-02 21:03) [3]

If (DBEdit1<>"") AND (DBEdit2<>"") AND (DBEdit3<>"")

---

← →
BIG_BROTHER   (2003-09-02 21:08) [4]

Спасибо:)

---

← →
Udjin ©   (2003-09-02 21:54) [5]

Имхо так лучше

var
loop : Integer;
begin
for loop := 0 to ComponentCount - 1 do
if (Components[loop] is TEdit) then
if (Components[loop] as TEdit).Text =""then {ваш код}

---

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

Текущий архив: 2003.09.15;
Скачать: CL | DM;

Наверх

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