Autor Téma: Neviem si odovzdať do constuctor vlastný vymenovaný typ  (Přečteno 140 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5305
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional

Kód: Delphi [Vybrat]
  1.   THolder = (hoFoc, hoOwner, hoPartner);
  2. ...
  3.   TProprietor = class(TVstTableData)
  4.   strict private
  5.     FHolder: THolder;
  6.   public
  7.     constructor CreateForm(const AForm: TBasalForm; const ATable: TFDTAble; const ADataSource: TDataSource;
  8.       AParentPanel: TjstAdvPanel; Holder: THolder; Bank: Boolean);
  9. ...
  10.   FsbfHolderAddress := TfrmsubHolder.CreateAsSubform(Self, nil, nil, jstpnlAddressHolder, hoOwner, False);
[dcc32 Error] OwnerOfFlat.pas(535): E2010 Incompatible types: 'THolder' and 'Pointer'
Ako to mám urobiť?
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5305
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Neviem si odovzdať do constuctor vlastný vymenovaný typ
« Odpověď #1 kdy: 12-02-2020, 09:23:43 »
Nakoniec som tam mal inú chybu. Pomýlil som si argumenty. Správne je:
Kód: Delphi [Vybrat]
  1. FsbfHolderAddress := TfrmsubHolder.CreateAsSubform(Self, jstpnlAddressHolder, hoOwner, False);
Len ma pomýlil oznam.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.