По перегрузке

← →
}|{yk © (2004-05-24 13:42) [0]

Есть у меня базовый фрейм
у него куча методов, которые наследуются и переопределяются в наследниках
Есть метод выброса в Excel
function ExportData(Parameter: string; Grid: TdxDBGrid): boolean; virtual;
В предке реализован как

[CODE]
function TFrameBase.ExportData(Parameter: string; Grid: TDxDBGrid): boolean;
begin
Result := False;
if (Parameter = "AsIs") then
begin
with TSaveDialog.Create(Self) do
try
begin
Filter := "Ôàéëè Excel|*.xls";
Title := "Âêàæ³òü íàçâó ôàéëó";
DefaultExt := "xls";
Options := Options + [ofPathMustExist];
if Execute then
begin
Grid.SaveToXLS(FileName, false);
Result := True;
ShellExecute(Self.Handle, "open", PChar(FileName), nil, nil, SW_SHOW);
end
end;
finally
Free;
end;
end;
end;
[/CODE]
В наследнике пишу
function ExportData(Parameter: string;Grid: TdxDBGrid): Boolean; override;
А вот если я пишу
inherited;
то компилятор выдает
Incompatible types
В чем проблема?

← →
Гаврила © (2004-05-24 13:46) [1]

полностью напиши
result :=inherited ExportData(Parameter, Grid)

По перегрузке Найти похожие ветки