05-10-2017, 03:39 PM
السلام عليكم ورحمة الله تعالى وبركاته
كنت في متابعة لدورة [size=small][size=medium]rahiche[/size][/size] وعند التطبيق اتحصل على خطأ وقفت عنده وهي في ادراج دالة الفلترة في edit
[size=small]حيث انه يقول Tdataset بأنه undeclared identifier 'tdataset' [/size]
والدالة المستخدمة هي:
وايضا لتوضيخ الخطأ في الصورة![[صورة: 9XdrySBr-hYfcQjaSdPhCNjxX8Qsce_e_OgLiexV...25-h745-no]](https://lh3.googleusercontent.com/9XdrySBr-hYfcQjaSdPhCNjxX8Qsce_e_OgLiexVcZ4zL8U47sWdzB7MDbrrc1cMWiQ96RyyrXcVDc8w2lLaz-Gx8f6rd3kr1-eqPVaUQ_RVPArII4Q88QtaetDCYm3oDv4u_LH0v8aa8RMtm165vSivTtHwZbl_pglUGUIVWtqlDCe0-MWl1PKJFI8LE5p5sLbkvuMr2YPFM8M56cIRgWBbVhQ_xNo3P4JNZ5wFQFkK80USOaSOmtwmqGUlfoyyEzqAHU-oEiRg2PxdummJuzh4MUi5WD3Ax0VUTc3ArhQHCIF36B6CjymXmO2pa1sbS3-3qDSep_pvWpKXaY9nHsUKl4YkhJkf5SzSquu2CzfWdXo0VUznDDIzt8Bk2PPJfmYQlCm5rF-NgV_KHztfeDK_GjFKFLkSsWxMHzmnWBcTs0f4I21CV-WYPIaQB6sU1gYjSPxrsKfWFJJZ9pFiD8b5mJbH5Ob6caZ4k5VTh869nOJZSH5dOqXPbNE1Uhayzrp3lfxJIr2S0dHuCWXyRPwZO_GN1h2dUFCS0FxvsBZPF9c1jFuMhT1FA4R6VaciSqhGzI4HYenLnLZI7WSzRU9ekpO-VUEUbe5uGuO10g=w1325-h745-no)
كنت في متابعة لدورة [size=small][size=medium]rahiche[/size][/size] وعند التطبيق اتحصل على خطأ وقفت عنده وهي في ادراج دالة الفلترة في edit
[size=small]حيث انه يقول Tdataset بأنه undeclared identifier 'tdataset' [/size]
والدالة المستخدمة هي:
كود :
Procedure Filterr (Dataset: TDataSet; Const FieldName, SearchTerm: String);
begin
Assert(Assigned(Dataset), 'no data is assigned');
if SearchTerm = '' then
DataSet.Filtered := False
else
begin
dataset.filter := FieldName + ' like ' + Quotdstr('%' + SearchTerm + '%');
Dataset.Filtered := True;
end;
end;وايضا لتوضيخ الخطأ في الصورة