03-02-2015, 12:20 PM
السلام عليكم كود اكثر اختصار بدل من if/then/else سطرين و حسب
كود :
ADOTable1.Filter := 'Name like '+ QuotedStr(Edit1.Text +'%');
ADOTable1.Filtered := Edit1.Text <> '';
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج