Писк заполнение TEdit'ов

[BarsDG]

Помогите пожалуйста.
Есть TPageControl, на нем динамически созданы вкладки (количество может быть разное), на вкладках панели, на них TEdit
Также, на форме динамически создаются TButton равное по количеству созданных вкладок.
Цель такова: При заполнении всех существующих TEdit'ов в активной вкладке соответствующий TButton становится Enabled:=False
Вот что сделал я:

procedure Tform2.EditChangeButton(Sender: TObject);
var
w,i,q: integer;
begin
w:=StrToInt(Edit3.text);// кол. компонентов на вкладке
i:=StrToInt(Edit1.text);// № Вкладки TTabSheet
for q:=1 to w do
if TEdit(TPanel(Tab1.FindComponent('Pa nel_Tabl'+IntToStr(i+1))).FindCompo nent('Date'+IntToStr(q))).Text<>''t hen
TButton(Form2.FindComponent('List'+ IntToStr(i+1))).Enabled:=False
Else TButton(Form2.FindComponent('List'+ IntToStr(i+1))).Enabled:=True;
end;

Все работает, но не верно! т.е. поля не все заполнены а команда ...Enabled:=False выполняется.

Я понимаю, что у меня не верно: for q:=1 to w do ...
Подскажите, как было бы правильно.

[evg_m]

http://programmersforum.ru/showthrea...=153163&page=2

grbbox:=(sender as TradioButtin).parent; //узнали на какой таблице(Groupbox) мы сделали отметку 
// sender это объект для которого произошло событие наш RadioButton
ok:=false; //считаем что отметок нет
for j:=0 to grbox.controlcount-1 do begin
  if grbox.controls[j] is TradioButton //просматриваем список объектов лежащих на нужном Groupbox 
  and (grbox.controls[j] as Tradiobuttin).checked ok:=true; //нашли отметку
  if grbox.controls[j] is TButton then 
  btn:=grbox.controls[j] as Tbutton; //узнаем нужную кнопку (ту которая м.б. скрыта)
end;
  btn.visible:=ok; //показываем/прячем при наличии/отсутствии отметок

только переделать на Tedit Tpanel вместо TradioButton TGroupBox
вместо проверок отметок проверка заполненности
и visible -> Enabled

[BarsDG]

Я извиняюсь, но что-то у меня не получается по этому образцу...:0(

[evg_m]

Сообщение от BarsDG

Я извиняюсь, но что-то у меня не получается по этому образцу...:0(

а где то что не получилось.
1. код написанный вами.
2. дословные сообщения об ошибках компиляции с указанием строк.
3. дословные сообщение об ошибках во время выполyения с указанием строк.
4.описание модельной ситуации. Ожидаемый результат. Наблюдаемый результат.

[BarsDG]

procedure Tform2.EditChangeButton(Sender: TObject);
var
j,i : Integer;
Date: TEdit;
ok: Boolean;
btn: TButton;
begin
Date:=(sender as TPanel).parent; 
ok:=false;
for j:=1 to Date.controlcount-1 do begin
  if Date.controls[j] is TEdit and (Date.controls[j] as TEdit).Text ok:=true;
  if Date.controls[j] is TButton then
  btn:=Date.controls[j] as Tbutton;
end;
  TButton(Form2.FindComponent('List'+IntToStr(i+1))).Enabled:=ok;

Сообщения ошибок:
Incompatible types: 'TEdit' and 'TWinControl' на Date:=(sender as TPanel).parent;
Incompatible types: 'string' and 'Boolean' на ok:=true;

p.s. не судите строго, я программирую недавно.

[evg_m]

комментарии читали?

// sender это объект для которого произошло событие наш RadioButton

Incompatible types: 'TEdit' and 'TWinControl' на Date:=(sender as TPanel).parent;

Наше событие для Tedit //sender as Tedit
наш Edit расположен на какой-то Panel. т.е. Parent это Tpanel
1.можно так

Date: TPanel 
Date:=(sender as TEdit).parent as TPanel;

2.а можно так

Date: Twincontaol;
Date:=(sender as TEdit).parent;

Incompatible types: 'string' and 'Boolean' на ok:=true;

при копировании не вредно и думать (если есть if то должен быть then)
а текст (строку введенную в Edit) надо с чем-то сравнивать. (например пустой строкой '')
if Date.controls[j] is TEdit and (Date.controls[j] as TEdit).Text <>'' ) then ok:=true;
даже если у меня его не было.

Данный пример включит кнопку (ok будет = TRUE) если есть хотя бы один заполненный (непустой) Edit.

[BarsDG]

вот:

Date:=(sender as TEdit).parent as TPanel;
ok:=true;
for q:=0 to Date.controlcount-1 do begin
if Date.controls[q] is TEdit and ((Date.controls[q] as TEdit).Text<>'') then
begin
ok:=false
else
ok:=true;
end;
TButton(Form2.FindComponent('List'+IntToStr(i+1))).Enabled:=ok;
end;

но результат такой же как и в моем первом варианте, т.е. если заполнится один последний TEdit, а все остальные не заполнены то результат Enabled:=false;


А так результат Enabled:=false; при заполнении любого TEdit'a, опять же остальные не заполнены

...
for q:=1 to Date.controlcount-1 do begin
if Date.controls[q] is TEdit and ((Date.controls[q] as TEdit).Text<>'') then
ok:=false;
end;
TButton(Form2.FindComponent('List'+IntToStr(i+1))).Enabled:=ok;
end;

[BarsDG]

Кто нибудь..., А-у...

[BarsDG]

Все, люди добрые помогли. Если кому надо, то вот:

procedure Tform2.EditChangeButton(Sender: TObject);    // Идентификация для Button по их значению
Var w,q,i: Integer;
    TS: TTabSheet;
    TestResult: Boolean;
begin
i:=StrToInt(Edit1.text);
TS := TTabSheet(TEdit(Sender).Parent);
TestResult := True;
for q := 0 to TS.ControlCount - 1 do
 if TS.Controls[q].ClassType = TEdit
    then if TEdit(TS.Controls[q]).Text = ''
         then begin
              TestResult := False;
              Break;
              end;
TButton(Form2.FindComponent('List'+IntToStr(i+1))).Enabled := not TestResult;
end;