یک سوال درباره edit [بایگانی]

moslam

جمعه 11 خرداد 1386, 02:14 صبح

سلام
اگر چند editداشته باشیم می خواهیم تا همه edit پر نشده دکمه فعال نشود چه کدی را بایست بنویسیم

Hamid_PaK

جمعه 11 خرداد 1386, 04:47 صبح

باید یه شرط بنویسید و کل ادیتها رو از نظر مقدار داخلی آنها را چک کنید :

begin
button01.Enable :=
( Length(Edit01.Text) > 0 ) and
( Length(Edit02.Text) > 0 ) and
( Length(Edit03.Text) > 0 ) and
( Length(Edit04.Text) > 0 ) and
( Length(Edit05.Text) > 0 ) and
( Length(Edit06.Text) > 0 );
end;

یا حق ...

SYNDROME

جمعه 11 خرداد 1386, 08:08 صبح

با سلام

باید یه شرط بنویسید و کل ادیتها رو از نظر مقدار داخلی آنها را چک کنید :

begin
button01.Enable :=
( Length(Edit01.Text) > 0 ) and
( Length(Edit02.Text) > 0 ) and
( Length(Edit03.Text) > 0 ) and
( Length(Edit04.Text) > 0 ) and
( Length(Edit05.Text) > 0 ) and
( Length(Edit06.Text) > 0 );
end;

یا حق ...
با اجازه آقا حمید.
روشی را که آقا حمید کفت درست است ولی زمانی که کاربر Space وارد کند برنامه اشتباه می کند و فقط یک تغییر کوچک در دستورات با بده

Length(Trim(Edit1.text))>0