Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
}|{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)

---

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

Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.057 c