Delphi: základy OOP podruhé
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
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 961×

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 Jak správně sedět u notebooku, aby nebolela záda

Jak správně sedět u notebooku, aby nebolela záda

Lidé často ke své práci nebo ve volném čase používají notebooky. Aby si při práci s nimi nezničili záda, je důležité se naučit správně sedět. MUDr. Michaela Tomanová primářka Infinity Clinic a Rehabilitačního ústavu Brandýs nad Orlicí radí, jak na to.

Reklama
Reklama
Obrázek ke článku Blockchain a tokenizace mají potenciál i ve světě tradičních investic.

Blockchain a tokenizace mají potenciál i ve světě tradičních investic.

Fenomén tokenizace, který učaroval světu kryptoměn, má potenciál prorazit i v investicích klasického střihu. Jde jen o to, jak překonat riziko podvodů fungujících v kryptosvětě, kdy až 93 % projektů končí fiaskem. Experti v tomto směru však vidí budoucnost. Hovoří se dokonce o zrodu nového ekonomického řádu.

Obrázek ke článku Datafesťak 2018 bude o datech, byznyse a ženách v IT

Datafesťak 2018 bude o datech, byznyse a ženách v IT

Na Univerzitě v Hradci Králové se 23. a 24. listopadu potkají všichni, které zajímá práce s daty. 

Reálné zkušenosti se zpracováním dat budou v prostorách univerzity prezentovat zástupci obchodních i výrobních firem. Potkat tak bude možné představitelé například z Kiwi.com, Crocodille, Dáme Jídlo nebo společnosti Adler. 

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