Скачать: CL | DM;

Смотрел 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]

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

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

---

← →
Anatoly Podgoretsky ©   (2008-07-22 11:25) [4]

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

CheckOperation(InternalEdit, FOnEditError);

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c