Delphi > Obecné

Presun funkcií z interface do implementation

(1/1)

Stanislav Hruška:

--- Kód: Delphi ---type  TBasalFormClass = class of TBasalForm;    function GetForm(ATypeForms: TTypeForm): TBasalFormClass;  function GetFormPart1(ATypeForms: TTypeForm): TBasalFormClass;  function GetFormPart2(ATypeForms: TTypeForm): TBasalFormClass;  procedure FinallyTry(const ALeftMainForm, ATopMainForm: Integer; const ATypeForms: TTypeForm);  procedure NewForm(ATypeForms: TTypeForm);  procedure ServeMainForm(const ATypeForms: TTypeForm; var ALeftMainForm, ATopMainForm: Integer); Prvé tri funkcie sa používajú výhradne v danej jednotke. Bolo by dobre ich mať v implementation. Neviem to urobiť.

Morrison:
V čem konkrétně je problém?

Jinak obecně, pokud chceš mít nějakou rutinu pouze v sekci implementation, tak si ji tam prostě dej :) Logicky tedy nebude žádná definice v interface, jenom v implementation budeš mít napsanou lokální funkci. Samozřejmě pokud ji někde dále používáš, musí být ta funkce vždycky napsaná nad místem, kde ji voláš.


--- Kód: Delphi ---interface type  TBasalFormClass = class of TBasalForm; implementation // tady je GetForm jeste neznama function GetForm(ATypeForms: TTypeForm): TBasalFormClass;begin end; // tady uz muzes GetForm pouzivat 

Stanislav Hruška:
Už v ničom ;)  Predtým som to robil zle. Už si to nepamätám. Teraz som si uvedomil niektoré závislosti a pravidlá.

Navigace

[0] Seznam témat

Přejít na plnou verzi