Lazarus - premenne v OOP

F3RY · Napísal **F3RY**: 21.12.2012 20:24

Zdravim, mohol by mi niekto prosim vysvetlit, ako sa pracuje s premennymi v triede?
Premenna je deklarovana v triede, a v procedure sa s nou pracuje. Potreboval by som si zapametat jej stav. Cez funkciu to riesit nechcem, pretoze casom urcite pribudnu dalsie premenne. Dakujem za odpoved.

Fico · Napísal **Fico**: 22.12.2012 11:01

Uved nejaky konkretny priklad, lebo velmi nechapem, co presne chces spravit.

F3RY · Napísal autor témy **F3RY**: 22.12.2012 11:09

Kód:

Thra = class
    sucet: integer;
    procedure pocitaj;
    ...
end;


procedure Thra.pocitaj;
begin
  ...
  sucet := sucet + pocitadlo;
  ...
end;

potrebujem si ten sucet pamätat.

Fico · Napísal **Fico**: 22.12.2012 11:32

Ak vytvoris instanciu tejto triedy ( var hra: Thra ) tak sucet dostanes ako hra.sucet ( krajsie by bolo, keby sa to vracialo cez metodu, napr function VratSucet ), kazda instancia ma svoju vlastnu clensku premennu sucet ( hra1.sucet, hra2.sucet, atd ). Cize co presne potrebujes? Chces mat iba jednu premennu sucet aj napriek viacerym instanciam tejto triedy, alebo ako?

F3RY · Napísal autor témy **F3RY**: 22.12.2012 12:53

Napriklad:

Kód:

  { Thra }

  Thra = class
    sucet: integer;
    procedure pocitaj;
    procedure vypis;
  end; 

{ Thra }

procedure Thra.pocitaj;
begin
  sucet := sucet + 10;
end;

procedure Thra.vypis;
begin
  ShowMessage(format('%d',[sucet]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hra: Thra;
begin
  hra := Thra.Create;
  hra.pocitaj;
  hra.vypis;
  hra.Free;
end;
 

Po kazdom zatlaceni buttonu malo by to davat cisla: 10,20,30...
Stale tam je iba 10.

Fico · Napísal **Fico**: 22.12.2012 13:02

1.) hra: Thra je lokalna premenna ( mas ju v metode Button1Click ), to znamena po skonceni metody sa automaticky premenna hra zo stacku zmaze a pri dalsom volani tejto metody sa uz vytvori nova premenna hra - preto tam mas stale 10. Najidealnejsim riesenim je spravit premennu hra globalnou.

2.) Clen sucet nemas nikde inicializovany, je len stastie, ze si ho delphi inicializuje na nulu. Vzdy, ked vytvaras triedy, je dobre spravit aj konstruktor danej triedy, kde bude inicializacia vsetkych datovych clenov ( v pripade, ze trieda obsahuje aj smerniky, je dolezity aj destruktor, v tomto jednoduchom priklade ale nutny az tak nie je ). Ak nevies pouzivat konstruktory, respektive ak si s nimi este nepracoval, tuna mas priklad: http://www.delphibasics.co.uk/RTL.asp?Name=Constructor

F3RY · Napísal autor témy **F3RY**: 22.12.2012 13:20

Dakujem. Toto som potreboval. Tento kod som uviedol, len ako priklad, kedze som nevedel vyjadrit co vlastne chcem.
Pracujem na jednom prejekte, a toto ma brzdilo.

F3RY · Napísal autor témy **F3RY**: 25.12.2012 18:34

Mal by som este nieco. Potrebujem na par sekund prerusit beh programu. Vo free pascale existoval prikaz delay. Lazarus ho nepozna. Pomocou timera to riesit nechcem, ak nemusim.

Fico · Napísal **Fico**: 25.12.2012 20:17

Najjednoduchsie je pouzit funkciu Sleep( milisekundy: word ); Tu mas aj ine sposoby, ale zrejme zbytocne komplikovane, ak sa jedna iba o jednoduche pozastavenie behu programu --> http://www.delphibasics.info/home/delph ... eepmethods

F3RY · Napísal autor témy **F3RY**: 27.12.2012 23:11

Dakujem, toto som presne potreboval.
Nechcem tu zakladat X tem, tak sa este tu nieco opytam. Projekt uz je nakodeny, ale definicie triedy treba prepisat do samostatneho Unitu. Problem je v tom, ze nepozna form1, image1... , pricom unit forms mam v novom Unite zadeklarovany.

Fico · Napísal **Fico**: 28.12.2012 12:53

Na pochopenie tohto problemu treba vidiet cely projekt, respektive by mali stacit dane dva unity - ten povodny, zrejme unit1 a ten novy, ktory vytvaras.

F3RY · Napísal autor témy **F3RY**: 28.12.2012 15:49

kratka ukazka, ktora by mala nakreslit stvorec.

Kód:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, stvorec;

type

  { TForm1 }
       ...

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  stvorec: Tstvorec;
begin
  Image1.Canvas.FillRect(Image1.ClientRect);
  stvorec := Tstvorec.Create;
  stvorec.kresli;
  stvorec.free;
end;

{$R *.lfm}

end.

Unit - Stvorec

Kód:

unit stvorec;

{$mode objfpc}{$H+}


interface

  { stvorec }
  type
  Tstvorec = class
    procedure kresli;
  end;

implementation
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 StdCtrls, ExtCtrls, Menus;


procedure Tstvorec.kresli;
begin
  Form1.Image1.Canvas.Rectangle(20,50,100,130);
end;

end.

Fico · Napísal **Fico**: 28.12.2012 20:31

V unite stvorec pouzivas data z unitu Unit1, ten ale nemas includnuty, cize v prvom rade pridaj do uses v unite stvorec Unit1.

F3RY · Napísal autor témy **F3RY**: 28.12.2012 21:12

Teraz to funguje. Zaujmave je, ze som to skusal hned, ako prvu moznost a pisalo to chybu:

Citácia:

Circular unit reference to 'unit1'

Fico · Napísal **Fico**: 29.12.2012 10:34

To ti robilo preto, lebo si mal tie unity includovane cez uses v sekcii interface obidve. Ak mas aspon jedno includnutie v sekcii implementation, tak ti to robit nebude.

F3RY · Napísal autor témy **F3RY**: 29.12.2012 22:34

Dakujem, uz v tom mam jasno. Existuje nejaky prikaz na opetovne nacitanie aplikacie? pripadne jej obnovenie? Bolo by to jednoduchsie, ako to vsetko nulovat a prepisovat hodnoty. Pripadne, ci by si mi nevedel vysvetlit jednoduchy sposob, ako na "new game".

Fico · Napísal **Fico**: 30.12.2012 17:18

Taketo veci sa idealne robia objektovo - vytvoris si objekt hra, ktora bude mat okrem tvojich tried a metod metody napr s nazvami Init a Free, pricom metoda Init bude obsahovat operacie potrebne pre zaciatok ( inicializacia premennych a dalsia potrebna funkcionalita ) a Free zase uvolni potrebnu pamat apod. Potom bude mat metody napr Run, Draw, Events. V metode Run budu volane postupne metody Event a Draw ( + nejake dalsie, podla potreby ), kde v Event budu osetrene vstupy z klavesnice, prepadne mysi a v Draw bude vykreslenie hry. Volanie metod Event a Draw bude v cykle s podmienkou na zaciatku, v ktorej sa bude testovat, ci hra ma pokracovat alebo nie.
S takymto mechanizmom je potom uplne jednoduche hru zacat nanovo ( bud vhodnou metodou, alebo rovno uvolnenim instancie triedy a opatovnym alokovanim, ale krajsia je skor ta prva moznost ). Pre inspiraciu sa mozes pozriet na tento clanok, je to v Cecku a pouziva kniznicu SDL, ale ide iba o princip, snad sa to da pochopit aj bez znalosti jazyka C: http://www.sdltutorials.com/sdl-tutorial-basics

F3RY · Napísal autor témy **F3RY**: 11.01.2013 1:39

Existuje v delphi nejaky nastroj podobny HREFu? Mysli, ze tam bude text, a po kliknuti spusti prehliadac so zadanou webovou adresou. Ja som nasiel len akesi 50 riadkove kody

Dufam, ze sa to da lahsiu cestou.

Fico · Napísal **Fico**: 11.01.2013 10:12

Staci ti TLabel a pri jeho metode OnClick das otvorenie weboveho prehliadaca s danym linkom ( vid temu nizsie ). Cela veda, naco to komplikovat.

simulacia-quot-klik-na-link-quot-vt83947.html#p741484

F3RY · Napísal autor témy **F3RY**: 11.01.2013 17:04

Vdaka, presne toto som hladal

Lazarus - premenne v OOP

Podobné témy