Potrazi u help-u metaklase, ima lepo sve objasnjeno.

U tvom slucaju, kod bi bio nesto kao:


Ali, napomena. Stvarno dobar kod (dobra koncepcija klasa) ne zahteva kastovanje objekata u letu. Ako lepo osmislis metode (virtual; abstract) u baznoj klasi TDok, koje zatim override-ujes u izvedenim klasama, onaj kod gore (if myDok is TfrmIPDok) postaje suvisan. Istina je da to nije uvek moguce, prema tome, radimo kako mozemo.
Javi sta si uradio. :)

Pozz

Da, istina je to što kažeš castanju u letu, no promjenio sam firmu, promjenio posao i zatekao uradak "šampionskog programera" koji je nemoguće održavati i sad radim nove programe iznova. naravno, što drugo nego svima omraženi poslovni software.
Napravio sam vfi mehanizam sa raznoraznim stvari koje trebaju za razne tipove dokumenata, GUI je TDI tipa i praktički svaki dokument možeš otvoriti neograničeni broj puta, a on raznim lookupovima može otvarati dalje poddokumente i sl. i praktički svaki novi tip dokumenta je zasebna klasa nastala iz nekoliko tipova izvornih klasa, i u jednom trenutku opet zvaršiš da neka metoda/funkcija treba stvarati novi podobjekt nečega, pa da malo uopćim i bolje kontroliram postupke generiranja vezanih podobjekata mislio sam raditi metode tj. funkcije ovog tipa što tražim. Ne znam shvaćaš li na što mislim, što želim izvesti. Generic-e. nisam koristio, interfejsi bi se u sve uklopili ali i znatno komplicirali, a vrijeme (i pamet) mi polako cure...
Hvala na savjetu, idem vijdeti što mogu učiniti.

Eh, druze, ko da si moj zivotopis prepricao :) , pa reprizirano n puta...

Nisam ni ja koristio generics u Delphi-ju, a ne verujem ni da cu. Preporucujem ti da ih zaobidjes, jer sam imao primer u jednoj beogradskoj firmi (C++, gradjevinski CAD), koriscenja template-a (isto to) preko svake mere. Pa su cak radili typedef (proglasavanje tipova) za template od ovog, onog, svaceg... od drugih template-a (template na kvadrat :) ); katastrofa.
Posledica je da je u pojam ubijeno par tekovina OOP-a, a to su nasledjivanje i polimorfizam. Ne kazem da generics/templates nisu upotrebljivi, ali mnogo veci napredak je (po meni) nacinjen uvodjenjem interface-a; e to je stvarno mocan koncept.

Pozz

Riješio sam problem metaklasama, skroz sam previdio kakav parametar šaljem funkciji i što dobijem.
Trenutno radim prototip funkcije koja mi na ovaj sistem radi.

dakle:

type TDokClass = class of TDok;

function OtvoriDok(aDokument: TDokClass ): Boolean;
var novidok : TIPDok;
begin
novidok := aDokument.Create(Self);
with novidok do
begin
if PrimjeniOvlastiNaAkcije then // radim nešto sa formom/objektom...
PrikaziNaKartici( frmMain.advpage)
else
if Assigned(novidok) then novidok.Free;
end;
end;

TfrmRobaUsluge = class (TDok) .... neka forma

Poziv funkcijom sa nekog izbornika: OtvoriDok(TfrmRobaUsluge);


(nije baš najlijepše no radi, i koliko vidim debugerom prolazi kroz klase i naslijeđuje i nadvladava virtualne metode i sl. kako spada).

Update:

Napravio sam ovu zavrzlamu:

aKlasa je String parametar u pozivu funkcije.

var noviDokument :TDok;
novaKlasa : TDokClass;
begin

novaKlasa := TDokClass(classes.FindClass(aKlasaDokumenta));
noviDokument := novaKlasa.Create(Self);

U konstruktoru datamodula nekog modula registriram klase koje se iz njega pozivaju RegisterClass(TfrmRobaUsluge);

Ovime sam postigao da se funkcija može pozvati od svuda u programu (jer klasu šaljem kao string) bez da je unit ove forme TfrmRobaUsluge naveden u uses i da time kompliciram život glavnoj formi, delphiju, delphijevom sporom codeinsightu i sl.
nadam se da sam na dobrom putu




_{[Ovu poruku je menjao komplikator dana 30.12.2011. u 14:27 GMT+1]}

Blago tebi, sad je taj tvoj kod milina odrzavati .

Nego, tvoj nick me podsetio, gde god sam pisao klase, nabedjivali su me da 'volim da komplikujem' stvari , pa su terali po svome. A kasnije se ispostavi da je 'preko prece, naokolo blize' .

Pozz i svako dobro