Delphi: základy OOP podruhé
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Delphi: základy OOP podruhéDelphi: základy OOP podruhé

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Delphi: základy OOP podruhé

Google       Google       21. 1. 2007       13 672×

Dnes si dopovíme základy objektově orientovaného programování v Delphi.

Reklama
Reklama

Rád bych se zde omluvil všem, kteří do teď čekali na další díl. To bylo způsobeno praktickým nezájmem o něj a mou velkou vytížeností ve škole. Ale nyní se již vrhněme na úkol z minula.

Na začátek uvádím, jak by mělo vypadat řešení úkolu z minulého dílu:


/*     definice tříd     */
TNasob = class
public
  function nasobek(a,b: integer):integer;
end;

TPricti = class(TNasob)
public
  function pricti(a, b, c: integer): integer;
end;

TRovnice = class(TPricti)
public
  function execute(a, b, c: integer): integer;
end;

/*     implementace funkcí     */

{ TNasob }
function TNasob.nasobek(a,b: integer):integer;
begin
 result := (a*b);
end;

{ TPricti }
function TPricti.pricti(a, b, c: integer): integer;
begin
 result := nasobek(a,b) + c;
end;

{ TRovnice }
function TRovnice.execute(a,b,c: integer): integer;
begin
 result := inherited pricti(a,b,c);
 result := round( result / 2 );
end;

Aplikace tohoto kódu je následná:

procedure TForm1.Button1Click(Sender: TObject);
var r:TRovnice;
begin
button1.Caption := inttostr( r.execute(2,3,2) );
end;

Tento příklad neměl žádné praktické využití, šlo pouze o názornou ukázku dědičnosti tříd a funkcí.


Vzhledem k tomu, že zájem o tento seriál je minimální (do kurzu se přihlásilo všehovšudy 8 lidí), končím se záměrem kurzu ve výuce programování komponent. Jestli s tímto záměrem nesouhlasíte, či se chcete vyjádřit, čekám na vaše komentáře pod článkem.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jan ŠkrášekHonza pracuje jako webdeveloper, věnuje se vývoji Nette\Database a Nextras komponentám. Mnoho času věnuje komunitnímu portálu signály.cz. Honza je taky fanouškem XML technologií.
Web     Twitter    

Nové články

Obrázek ke článku Firmy musejí s nástupem Průmyslu 4.0 více dbát na kyberbezpečnost. V ohrožení je i jejich know-how.

Firmy musejí s nástupem Průmyslu 4.0 více dbát na kyberbezpečnost. V ohrožení je i jejich know-how.

Destabilizace firmy či ukradené know-how. To jsou možná hlavní budoucí rizika spojená s nedostatečnou kybernetickou bezpečností průmyslových firem, na která upozorňují experti. Vzhledem k postupující digitalizaci výrobních či technologických procesů a přechodu k takzvanému Průmyslu 4.0 může těchto hrozeb postupně přibývat. Varují před nimi i nejnovější průzkumy. 

Reklama
Reklama
Obrázek ke článku Nový CEBIT je připraven: Pochopit digitální dnešek a objevit digitální zítřek

Nový CEBIT je připraven: Pochopit digitální dnešek a objevit digitální zítřek

Nový veletrh  CEBIT je připraven. V polovině června začne v Hannoveru evropský festival obchodu s radikálně změněnou koncepcí věnovaný inovacím a digitalizaci.  CEBIT jedinečnou formou spojuje obchod v digitálním hospodářství 
s festivalovými prvky a posouvá do středu pozornosti téma digitální transformace hospodářství a společnosti.  

Obrázek ke článku Black Swan Security Congress ukáže, jak se chránit před největšími hrozbami na internetu

Black Swan Security Congress ukáže, jak se chránit před největšími hrozbami na internetu

Dva dny plné přednášek a diskusí na téma často podceňovaných bezpečnostních rizik na internetu pořádá Paralelní polis v pražských Holešovicích. Akce s názvem Black Swan Security Congress bude od pátku 18. do soboty 19. května hostit etické hackery a experty na IT bezpečnost převážně z Česka a Slovenska. Ti účastníkům vysvětlí, jaká rizika nese fenomén „černé labutě a jak se před ním mohou chránit.

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý