اخي علي إستعمل هذا الحل فيما يخص عدم قبول القيمة الفارغة
procedure TForm3.Button6Click(Sender: TObject);
procedure ValidateStrs(wc: TWinControl; const AText, ErrMsg: string);
begin
if Trim(AText) = '' then begin
wc.SetFocus;
TEdit(wc).SelectAll;
if ErrMsg <> '' then
MessageBox(Handle,
PChar(ErrMsg),
'Error',
MB_ICONSTOP OR MB_OK);
Abort;
end;
end;
begin
ValidateStrs(Edit1, Edit1.Text, ''''' is not a valid search criteria .'); // لاتقبل القيمة الفارغة
{ يمكنك إستعمالها مع كل المكونات من الصنف TEDIT }
case RadioGroup1.ItemIndex of
0:DM.TArticle.Locate('Code_Article',Edit1.Text,[]);
1:DM.TArticle.Locate('Disignation',Edit1.Text,[])
else
ShowMessage('åÐÇ ÇáãäÊÌ ÛíÑ ãæÌæÏ');
end;
end;عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم
*****
