OOP v Pascalu – Pascal – Fórum – Programujte.com

Máte někdo alespoň základní zkušenosti s OOP v Pascalu (ne ObjectPascalu)? Probíráme jej ve škole, bohužel jsem chyběl na podstatné věci (vlastnost polymorfismus, k čemu slouží construktor, jak se zapisuje, jak je to s destruktorem, tabulka virtuálních metod, posílání zpráv objektům...) a nemůžu nikde na internetu najít ani zmínku, že se vůbec OOP v Pascalu dá, jedinou zmínku jsem našel v knize Pascal pro zelenáče, kde je OOP vysvětleno velmi povrchně a více méně pouze teoreticky. Nevíte, kde bych' mohl sehnat dané informace, či neudělali by jste (nejen) pro mě krátký přehled?

I když, jestli jsem se náhodou nezeptal na naprostou krávovinu... jak tak koukám, nejsem si jistý, jestli už neprobíráme ObjectPascal (sice nám o tom informatikářka neřekla, ale podle syntaxe kolotoc = object procedure roztoc(x:integer) end; bych' to na něho viděl...). Dá se Object Pascal kompilovat v TurboPascalu? Jestli ano, tak se už ptám na ObjectPascal :-).

Neboj,pořád probíráte klasickýTurbo pascal :smile1:
Zkrátka, když se objekt definuje slovem object tak jde o klasický pascal. Když se definuje slovem class jde o Objectpascal, který můžeš přeložit pomocí Delphi, Kylix nebo Freepascalu.

kolotoc = object procedure roztoc(x:integer) end;
To je úplně nejzákladnější objektová konstrukce pascalu - to se pak dá dál rozvíjet.

Dobrý manuál o OOP v pascalu napsal Mircosoft:
http://www.mircosoft.ic.cz/texty/OOP.TXT

Jj, díky. Jenom nevím, jak se moje strukturované myšlení s novým stylem vyrovná. Upřímně řečeno, strukturovaně píšu v Pascalu aktivně dva roky (studium programátor :-)) a nevidím moc žádný důvod na OOP přecházet... sice o něm slyším ze všech stran, normální strukturovaný jazyk se snad už nechytne, ale já stále moc nechápu výhody...

Aha, tak děkuji Mircosoftu za jeho výstižný tutoriál, bohužel po nás chtějí ve škole i onu Tabulku Virtuálních Metod, o které já ani Mircosoft nevíme zhola nic :-). Ještě bych' se zmínil o klíčovém slově inherited...

Oba pojmy - tabulka virtuálních metod (VMT) i inherited souvisejí s dědičností objektů. Mircosoft se o dědičnosti bohužel moc nerozepisuje. Jestl nebudu mít moc silnou kocovinu. tak se v neděli pokusím napsat něco jako pokračování jeho manuálu.
Inherited můžu ale vysvětlit už teď. Když máš tuhle definici:

type

objekt1=object

Procedure PredstavSe;

end;



objekt2 = object(objekt1)

Procedure PredstavSe;

end;



objekt3 = object(objekt2)

Procedure PredstavSe;

Procedure PredstavSeJinak;

end;



Procedure Objekt1.PredstavSe;

begin

Writeln('Objekt1');

end;



Procedure Objekt2.PredstavSe;

begin

inherited PredstavSe;

Writeln('Objekt2');

end;



Procedure Objekt3.PredstavSe;

begin

inherited PredstavSe;

Writeln('Objekt3');

end;



Procedure Objekt3.PredstavSeJinak;

begin

Objekt2.PredstavSe;

Writeln('Objekt3');

end;

Garret Raziel napsal:
Aha, tak děkuji Mircosoftu za jeho výstižný tutoriál, bohužel po nás chtějí ve škole i onu Tabulku Virtuálních Metod, o které já ani Mircosoft nevíme zhola nic :-). Ještě bych' se zmínil o klíčovém slově inherited...

Ten svůj manuál už budu muset apdejtnout, o virtuálních metodách už konečně něco málo vím :smile1: .

Dost obsáhlý a podrobný přehled, jak funguje OOP v TP a v Delphi, se dá najít na Sejdově stránce: http://sejda.shoubounavlasku.cz/programming/index.php, konkrétně tenhle soubor: http://sejda.shoubounavlasku.cz/programming/objectpascal/objectpascal.rtf. Doporučuji přečíst, tam najdeš snad všechno.

Dále - klíčové slovo inherited v TP ještě není. Tam se zakryté metody předků dají volat pouze stylem "Objekt2.PredstavSe". Pak tam taky nehledej slova dynamic, override, reintroduce, class, event a podobně. Jediné, co tam je, je object, constructor, destructor a virtual (co chtít víc? :-) ).

A k čemu OOP? Můj názor je, že je to dobrá pomůcka pro zpřehlednění rozsáhlejších programů, ale že všeho moc škodí a snaha o čistě objektové programování (zvlášť v TP) znamená jenom spoustu samoúčelné práce navíc. Např. deklarování instancí objektu typu "okno se zprávou" (viz Delphi). V TP si prostě napíšu veřejnou proceduru a volám ji, kdy chci. Ale zase GUI (tlačítka, okýnka a tak) bez objektů si moc neumím představit (asi by to byla nepřehledná hromada recordů a spousta obslužných procedur, kterým by se muselo všechno strkat přes parametry).
To zpřehledňování myslím hlavně v tom smyslu, že každý objekt má vlastní jmenný prostor, takže můžu mít v jednom programu třeba deset procedur pojmenovaných "Zobraz" a hromadu stejně pojmenovaných proměnných a nepotlučou se mi. A ani to nemusí mít nic společného s dědičností.

V učebnicích OOP se tradičně tvrdí, že zapouzdřením do objektů svůj kód zabezpečíme proti neoprávněnému čtení a manipulaci s daty. Že zveřejníme jenom definice tříd a zbytek si necháme a nikdo se v tom nebude moct šťourat. Ovšem totéž se pohodlně zařídí zveřejněním interfacu jednotky bez implementační části. A pokaždé použitelnost takového kódu závisí na tom, jak ho zdokumentujeme, protože když nevidím zdroják, musí mi být veškerá funkce jasná z hlavičky a komentářů.

To Osiris : Ano, však já se sám chci učit C++, ale OOP bereme ve škole a bereme ho v Pascalu, tak mi už jenom kvůli dobré známce nezbývá nic jiného, než ho brát v Pascalu.

Klíčové slovo inherited v Turbo pascalu JE
(ve verzi 7.0x)

Tak jsem ten text o objektech poněkud překopal a už se za něj nestydím :-)
http://www.mircosoft.ic.cz/texty/OOP.TXT
Teď je tam všechno včetně virtuálních metod (a slova inherited, dík za upozornění).