سؤال متعلق برسائل الدلفي

نفس الشيئ مثل السؤال السابق

/index.php?showtopic=126837

تحقق من ان DBEdit فارغ بشيئ مثل هذا

if DBEdit1.Text='' then Begin
   ShowMessage('Write your Name');
   DBEdit1.SetFocus;
end;

فعلا اخي المشرف فانا متوتر ولم انتبه

على العموم ستجد هذه الاعانة في ميزان حسناتك فانت والله اعنتني بشكل جيد

شكرا

وان كان لديك الكثير من TDBEDIT يمكنك استخدام هذا اقصر

var
 i :integer;
begin

for i:=0 to ComponentCount-1 do
if (Components is TDBEdit ) then
	if (Components as TDBEdit).Text='' then Begin
	   ShowMEssage('Fill All');
	   (Components as TDBEdit).SetFocus;
	   Exit;
	End;
end;

لا حظ انه يبحث عن TDBedit فقط، ان كانت لديك مكونات اخرى عليك باضافتها

شكرا اخي المشرف على هذا الاهتمام

تحياتي

لا تشكرني، تعلم فقط، مثلما يقول المثل عندنا باللغة الدارجة: قرا برك

ساحذف هذا الرد والذي قبله