Смотрел DB.pas (BDS2006). Не понял.

← →
Vlad Oshin © (2008-07-22 09:48) [0]

function TDataSet.Locate(const KeyFields: string; const KeyValues: Variant;
Options: TLocateOptions): Boolean;
begin
// CheckBiDirectional;
Result := False;
end;

function TDataSet.Lookup(const KeyFields: string; const KeyValues: Variant;
const ResultFields: string): Variant;
begin
// CheckBiDirectional;
Result := False;
end;

{ Aggregates }

function TDataSet.GetAggregateValue(Field: TField): Variant;
begin
Result := NULL;
end;

function TDataSet.GetAggRecordCount(Grp: TGroupPosInd): Integer;
begin
Result := 0;
end;

procedure TDataSet.ResetAggField(Field: TField);
begin
end;

procedure TDataSet.InternalCancel;
begin
end;

procedure TDataSet.InternalEdit;
begin
end;

procedure TDataSet.InternalInsert;
begin
end;

procedure TDataSet.InternalRefresh;
begin
end;

Это зачем так? Сказали бы abstract тогда что ли, а не virtual

← →
Ega23 © (2008-07-22 10:20) [1]

> Сказали бы abstract тогда что ли, а не virtual

Зачем?

← →
Игорь Шевченко © (2008-07-22 10:22) [2]

> Сказали бы abstract тогда что ли, а не virtual

И во всех наследниках принудительно реализовывать ? Нафиг-нафиг.

← →
Vlad Oshin © (2008-07-22 10:33) [3]

> И во всех наследниках принудительно реализовывать ? Нафиг-
> нафиг.

логично..
снимается.

Это внутренние методы и рассматривать их надо не изолировано, а совместно с их использованием, например в методе Edit, не виртуальный и не абстрактный.

CheckOperation(InternalEdit, FOnEditError);

Ну а теперь представь, что определение abstract

Смотрел DB.pas (BDS2006). Не понял. Найти похожие ветки