david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
17 lines
431 B
ObjectPascal
17 lines
431 B
ObjectPascal
unit dxlocate;
|
|
|
|
interface
|
|
{$I cxVer.inc}
|
|
uses DB{$IFDEF DELPHI6}, Variants{$ENDIF};
|
|
|
|
function DBTrDataSetLocate(DataSet: TDataSet; AFieldName: string; AValue: Variant; AOptions: TLocateOptions): Boolean;
|
|
|
|
implementation
|
|
|
|
function DBTrDataSetLocate(DataSet: TDataSet; AFieldName: string; AValue: Variant; AOptions: TLocateOptions): Boolean;
|
|
begin
|
|
Result := DataSet.Locate(AFieldName, AValue, AOptions);
|
|
end;
|
|
|
|
end.
|