Új hozzászólás Aktív témák

• #299 lao ce aktív tag tusi74 #298

  Új Válasz 2004-12-05 17:43:56 #299

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lao ce

  aktív tag

  válasz tusi74 #298 üzenetére

  osszeolloztam neked egy unitombol dolgokat
  
  unit Valami;
  
  interface
  
  uses
  Windows, ... ;
  // ez a delphi dolga, akkor kell babralni ha be kell tenni
  // pl a math unitot kezzel mert akarsz hasznalni egy fuggvenyt;
  
  // ez a resz lathato masik formokrol is egesz az implementation szoig
  
  // sajat global procedures, functions amiket speciel en mindig global nevu
  // elkulonitett unit(ok)ban tartok, de egye fene most legyen itt egy par:
  function GetSystemPath(Folder: Integer): string;
  procedure MoveForm(Button : TMouseButton; aForm : TForm);
  
  // ez a formod
  type
  Tfrm = class(TForm)
  ...
  // innen neha ki kell torolni egy-egy eventet ha a delphi mar elvesziti
  // a fonalat hogy mi a fenet is akar a programozo, de joreszt sajat maga;
  // elintez mindent;
  procedure Button1Click(Sender: TObject);
  ...
  private
  { Private declarations }
  // ide lehet beirni sajat funkciokat amik a formra vonatkoznak
  // a kozvetlen elonye ezeknek a helyeknek (priv and publ) annyi,
  // hogy nem kell leirni az itt deklaralt funkciodon belul hogy
  // formneve.labelneve.caption hanem eleg a labelneve.caption.
  public
  { Public declarations }
  // ez a masik hely, ezeket a dolgokat masik formokrol is meg lehet hivni
  end;
  
  const
  alma = 'asd';
  
  // ez a formod hehe... 'megtestesulese' es egy sajat globalis valtozo
  var
  frm : Tfrm;
  bela : string;
  
  implementation
  
  // ez a te dogod, a formok kereszthivatkozasai;
  uses unitMain, unitDM... ;
  
  // ez a type egy sajat tajpra pelda, lehet tobb is egymas alatt
  TEditModes = (
  emInsert,
  emUpdate,
  emDelete,
  emView
  );
  
  const
  korte = 'qwe';
  
  // ezek a unitra vonatkozo sajat valtozok, minden procbol elerhetoek;
  var
  b : integer;
  
  {$R *.dfm}
  
  // es itt elkezdodik a programod;
  
  nincs idom atnezni, lehet hogy nem tokeletes, lehet javitani.

Új hozzászólás Aktív témák