Autor Téma: Premenná v unit  (Přečteno 1273 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Premenná v unit
« kdy: 09-03-2013, 13:54:08 »
Chcem si v Unit nadefinovať
Private
kkkj: Tcosi;
 
Neviem to  :(  Prípadne aj bez Private
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Mi.Chal.

  • Guru
  • *****
  • Příspěvků: 576
  • Karma: 25
Re:Premenná v unit
« Odpověď #1 kdy: 09-03-2013, 13:57:55 »
Jestli si to dobře pamatuji, tak se tam nic takového nepsalo. Co je v části interface je veřejné, co je v implementation je privátní. Takže pokud to nemá být vidět zvenku, tak to dej do implementation.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Premenná v unit
« Odpověď #2 kdy: 09-03-2013, 14:03:30 »
Kód: Delphi [Vybrat]
  1. unit BookkeepingFunction;
  2. { z helpu
  3. unit Unit1;
  4. interface
  5. uses // List of unit dependencies goes here...
  6.   // Interface section goes here
  7. implementation
  8. uses // List of unit dependencies goes here...
  9. // Implementation of class methods, procedures, and functions goes here...
  10. }
  11. interface
  12. uses
  13.   Vcl.ComCtrls, System.SysUtils, Vcl.Controls, Vcl.StdCtrls, Vcl.Graphics;
  14. implementation
  15. uses
  16.   GeneralFunction, TreeFunctions, EnterInvoice, EnterBookItems, dmBooks;
  17. //  private
  18.     { Private declarations }
  19.     qryFillcbbService, qryFillcbbDebitService, qryFillcbbAssetOwner, qryFillvstDbt,
  20.     qryFillvstAss, qryFillvstDefrayal: TIBQuery;
  21. //  public
  22.     { Public declarations }
  23.   procedure GetMyObject();
  24.  ...
  25.  
  26. function WhatItIs(): Boolean;
  27. var
  28. ....
  29.  
Konkrétny prípad. Problém je v tom, že mi to nikde neche zobrať.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Mi.Chal.

  • Guru
  • *****
  • Příspěvků: 576
  • Karma: 25
Re:Premenná v unit
« Odpověď #3 kdy: 09-03-2013, 14:31:57 »
co konkrétně to píše za chybu? Mě přijde, že ti tam chybí var před deklaracemi proměnných.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Premenná v unit
« Odpověď #4 kdy: 09-03-2013, 15:34:44 »
Trafil si to s tým var. Ďakujem.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.