hum...what is that for ?!
hum...what is that for ?!
TBindListEditorCommon = class(TInterfacedObject, IBindListEditorCommon)
protected
procedure BeginUpdate; virtual; abstract;
procedure EndUpdate; virtual; abstract;
procedure ClearList; virtual; abstract;
function GetSelectedItem: TObject; virtual;
function GetSelectedValue: TValue; virtual;
function GetSelectedText: string; virtual; abstract;
function GetRowCount: Integer; virtual; abstract;
function GetPositionGetter(var AGetter: string; var ABase: Integer): Boolean; virtual; abstract;
function GetPositionSetter(var ASetter: string; var ABase: Integer): Boolean; virtual; abstract;
end;
TBindListEditorCommon = class(TInterfacedObject, IBindListEditorCommon)
protected
procedure BeginUpdate; virtual; abstract;
procedure EndUpdate; virtual; abstract;
procedure ClearList; virtual; abstract;
function GetSelectedItem: TObject; virtual;
function GetSelectedValue: TValue; virtual;
function GetSelectedText: string; virtual; abstract;
function GetRowCount: Integer; virtual; abstract;
function GetPositionGetter(var AGetter: string; var ABase: Integer): Boolean; virtual; abstract;
function GetPositionSetter(var ASetter: string; var ABase: Integer): Boolean; virtual; abstract;
end;
Comments
Post a Comment