07-10-2011, 08:19 PM
السلام عليكم ورحمة الله وبركاته ،
هل جربت الدالة UpperCase ؟
بالتوفيق إن شاء الله.
هل جربت الدالة UpperCase ؟
إقتباس :UpperCase('AbcD') = 'ABCD'جرب الكود التالي بعد أن تقوم بالتعديل عليه.
كود :
Procedure TForm1.Edit1Change (Sender: TObject);
Var x: string;
Begin
If Edit1.Text='' then
Table1.Filtered:=false
Else
Begin
X := UpperCase(Edit1.Text)+'*';
table1.Filter:='Nom_cl='+QuotedStr(x);
table1.Filtered:=true;
end;
end;بالتوفيق إن شاء الله.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.