Autor Téma: Získať premennú - neviem, lebo vytvorím kruhový odkaz  (Přečteno 6802 krát)

Offline starous

  • Mladík
  • **
  • Příspěvků: 79
  • Karma: 2
    • Verze Delphi: Delphi 7, Delphi 10.4
Re:Získať premennú - neviem, lebo vytvorím kruhový odkaz
« Odpověď #15 kdy: 19-11-2019, 09:25:11 »
V tom případě si přesuň "uses subMonthDeposit" z interface do implementation
To by som rád, ale mám tam
Kód: Delphi [Vybrat]
  1. type
  2.   TDepositState = class(TVstTableData)
  3.     FForm: TfrmsubMonthDeposit;
To som predtým nezverejnil. Preto sa neviem zbaviť kruhového odkazu.

Nahraď to zápisem:
Kód: Delphi [Vybrat]
  1. type
  2.   TDepositState = class(TVstTableData)
  3.     FForm: TForm;

Při použití to pak přetypuješ na správný typ:
Kód: Delphi [Vybrat]
  1. var
  2.   SubForm : TfrmsubMonthDeposit;
  3. begin
  4.    SubForm:= FForm as TfrmsubMonthDeposit;
  5.    ...
  6. end;

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5140
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Získať premennú - neviem, lebo vytvorím kruhový odkaz
« Odpověď #16 kdy: 19-11-2019, 12:09:37 »
Už som to vyriešil. Ale ak to budem potrebovať, tak si na to snáď spomeniem :)
Minimálne by som to mohol využiť na presunutie definície FForm do koreňového predka.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.