DefaultExpression لا تعمل مع ADO الحل استخدام شيء مثل
متوفر في مكون مجاني لـ Vassil Nazarov:
http://www.delphi4arab.net/forum/showthr...#post11509
ملاحظة: يمكن إرسال وتنفيذ استعلام مع TDatabase لكنه لا يعيد نتائج(_Recordset).
كود :
procedure Flds_SetToDefExpr(const AFlds: array of TField);
var
i : Integer;
begin
for i := Low(AFlds) to High(AFlds) do
with AFlds[i] do begin
DataSet.Edit;
if ( DefaultExpression='' ) then
Clear
else if HasOuterQuotes(DefaultExpression) then
Value := RemoveOuterQuotes( DefaultExpression,True,False )
else
Value := StrToInt(DefaultExpression); //raises if not an integer!
end;
end;http://www.delphi4arab.net/forum/showthr...#post11509
ملاحظة: يمكن إرسال وتنفيذ استعلام مع TDatabase لكنه لا يعيد نتائج(_Recordset).
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...