class helper

[stikriz]

В исходниках есть коменты вроде:

Код: Выделить всё

{  TMyClassHelper = class helper for TMyClass
  TMyClassHelper2 = class helper(TMyClassHelper) for TMyClass
  TSealedClass = class sealed (TMaClass)
  TAbstractClass = class abstract (TObject)
}


Но, самих хелперов не видать... Как в Delphi объявить невозможно - не компилит.
Вообще, хелперы есть у FreePascal? Может, как-то по другому объявлять надо?

[Sergei I. Gorelkin]

Нету их.

[скалогрыз]

Но, самих хелперов не видать... Как в Delphi объявить невозможно - не компилит.
Вообще, хелперы есть у FreePascal? Может, как-то по другому объявлять надо?

их нет! и не надо!

лучше использовать видимость внутри модуля.

Код: Выделить всё

interface

type
  TSomeObject = class(TObject)
  private
    data : Integer;
  end;

procedure HelperProc(a: TSomeObject; Value: Integer);

implementation

procedure HelperProc(a: TSomeObject; Value: Integer);
begin
   a.data := Value;
  // записывать в private поле разрешено, потому что HelperProc находится в одном модуле с TSomeObject
end;


Helper классы - это .NETism.

[stikriz]

[quote="скалогрыз
их нет! и не надо!
[/quote]

Допустим, Вам не надо - это Ваше мнение.

Простой пример. Я недавно старую не мою прогу переводил с BDE на ADO компоненты (в новой базе юникод теперь)
У параметров BDEшных Datasetов есть методы AsString, AsInteger и т.д. Таких вызовов много... У ADOшных таких методов нет - только Value.
Очень просто TParameter сделать хелпер с методами AsString, AsInteger и т.д. и добавить модуль в uses.

[скалогрыз]

Допустим, Вам не надо - это Ваше мнение.

Простой пример. Я недавно старую не мою прогу переводил с BDE на ADO компоненты (в новой базе юникод теперь)
У параметров BDEшных Datasetов есть методы AsString, AsInteger и т.д. Таких вызовов много... У ADOшных таких методов нет - только Value.
Очень просто TParameter сделать хелпер с методами AsString, AsInteger и т.д. и добавить модуль в uses.

A может стоит взять ADO компоненты от Delphi 7? FPC заявлен на совместимость именно с 7 делфи, но не с последующими. Вводить дополнительную концепцию в компилятор, ради портирования 1 компонента... стоит ли?

ЗЫ: выполняю портирование, новых delphi компонентов, под FPC компилируемость! за вознаграждение ^^