Problem sa frejmovima (... as .....).txtKriterijum.Text;

Imam sledeci problem...imam genericki datamodul koji kao jedan od atributa ima genericki frejm. Kasnije ja kroz nasledjivanje dolazim do nekih konkretnih datamodula koji se vezuju za neke tabele u bazi i frejmova koji prikazuju podatke iz tih konkretnih datamodula. Negde u kodu imam
//
strKriterijum := (konkretanDataModul.Frejm as Konkretan frejm).txtKriteriju.Text;
//
Gde mi program redovno puca i prikazuje mi gresku -... access violation....read of adress.....
U kodu pre ovoga sam vec onom konkretanDataModul.Frejm dodelio konkretan frejm.
Ima li iko ideju zasto mi program puca?

Potpis

RTFM

Sve deluje ok... posalji najminimalniji primer u kojem se pojavljuje ova greska pa cemo videti.

Potpis

Play Store

Ako sam dobro shvatio pitanje...

Da li si kreirao TKonkreteanFrame pre nego sto pokusas da mu pristupis?
AV greska se javlja kada pokusas da pristupis objektu koji nije kreiran ili pokusavas da unustis nesto sto je vec unisteno...
Jos nesto:
TKonkretanFrejm(konkretanDataModul.Frejm).NekiProperty
po meni mnogo lepse od
(konkretanDataModul.Frejm as Konkretan frejm).NekiProperty

Potpis

Marcha
-----------------------------------
Pretpostavka je majka zajeba.

Kada koristi nasto as nestodrugo ako nesto ne moze da se castuje u nestodrugo javlja se exception, a kada se koristi nestodrugo(nesto) tada se u slucaju da nesto ne moce da se castuje u nestodrugo javlja access violation tako da je ipak sigurnije koristiti as.

Potpis

Play Store

Mozda je ovako poptunije :)

Potpis

Marcha
-----------------------------------
Pretpostavka je majka zajeba.

Objekat mi nije kreiran! Evo deo koda, nalazi se u glavnoj formi, kada korisnik klikne na stavku menija i tada se poziva

//sender - string koji mi identifikuje koja da se radi o robi ispitujem ga u nekom if
//nebitno za ovaj problem
//strLista mi sadrzi poslovne objekte npr TpkRoba - naslednike onog generickog DataModule-a
//TfraRoba mi je taj frejm
t: Tframe;

t:= TfraRoba.Create(nil);
index:= strlLista.AddObject(Sender, TpkRoba.Create(nil));
(strlLista.Objects[index] as TpkRoba).Frejm := (t as TfraRoba);
(t as TfraRoba).pk := (strlLista.Objects[index] as TpkRoba);

zatim taj frejm lepim za tabpage na toj istoj glavnoj formi. Nije mi jasno kako i zasto objekat ne postoji!
Sto se onih kastovanja tice u principu sve radi skoro isti posao ali nekako mi je sa as pregledniji kod.
Shvata li neko zasto mi ovo ne radi?

Potpis

RTFM

Ovo deluje dobro... da li mozda negde oslobadjas te objekte, a posle ponovo pokusavas da im pristupis?

Potpis

Play Store

Sta je pk kod TfraRoba? (verovatno je pk tipa TpkRoba?)

var
t : TFrame;
pkR: TpkRoba;
begin
// kreiras prvo instance:
t := TfraRoba.Create(nil);
pkR := TpkRoba.Create(nil));

// zatim ih povezes:
pkR.Frejm := t; // ovo je dovoljno, prihvatice i bez as tj (t as TfraRoba)
(t as TfraRoba).pk := pkR; // ako je pk tipa TpkRoba, ako ne onda koristi "as"

// tek sada dodeljujes listi:
strLista.AddObject( Sender, pkR ); // probaj za probu da umesto sender stavis npr 'A',
pa ako radi...

end;

Pitanje je kako posle pristupas elementima strLista? Imas li proveru npr:

if strLista.IndexOf (neki tekst) = -1 then

// objekat sa ovim nazivom ne posotji u listi!

else
// vrati objekat tipa TpkRoba...

Poz!

Taj deo koda radi, to je sve ok...
moguce da negde slucajno unistavam te objekte
drugde u kodu slucajno ....jedini je problem sto to ne mogu da provalim jer kada stavim break point na
strKriterijum := (konkretanDataModul.Frejm as Konkretan frejm).txtKriteriju.Text;
i predjem pokazivacem misa preko konkretanDataModul.Frejm tada mi ispise da je on
nill znaci verovatno se negde u programu unistava, mada mi nije jasno gde, prosao sam debugerom kroz ceo pozvani kod...
Ne ide mi uglavu...no nista Hvala vam ljudi na pokusaju!

Potpis

RTFM

Ljudi, meni ovo i dalje ne radi. Mislim radi ako pristupam Frejmu preko one strListe. Ali to mi nije pravo resenje. Morao bi da radi i (frejm as TfraRoba).txtKriterijum.Text, posto je kreiran taj objekat i ima vrednost, a on mi uporno pokazuje da je pkRoba.frejm = nil. Svi ostali property ji ovog objekta imaju vrednost! Ne de mi u glavu.... Ono sa strLista mi radi, ali mi je previse trapavo i nezgrapno tako...resenje nije u duhu problema koji se resava.
Prosao sam i kroz sav kod posmatrao promenljive, nigde ne unistavam objekat....
Da li je moguce da mi zbog Delphi a nesto ne radi? Koristim Delphi 7.

Potpis

RTFM

Bez izvornog koda je tesko pohvatati ovako opisno gde je greska....

Da li postavljas za taj frejm njegovog parenta? Npr TpkRoba.Frame := aNekiFrame;
gde je
proc TpkRoba.SetFrame( aNekiFrame: TFrame);
anekiFrame.Parent := Self; // Self je instanca klase TpkRoba.
end;

Da li jos negde kreiras TpkRoba? Naime ako stavis za 1 instancu frame (npr pozoves da se kreira TpkRoba, pa dodelis frame (pkRoba.Frame := fraRoba), a onda mozda ponovo negde kreiras (ne unistavas) novu instancu TpkRoba, ta druga instanca nece pokazivati na frame (tj pkRoba2.Frame ce biti nil)

Sta vise? posalji kod :) (imas moj mail :)

Poz.

Znam to sto si napisao ovde nije problem u tome....
Poslacu ti sutra kod pa pogledaj.
Jel moguce da mi je nesto podeseno kod opcija projekta ili u samom delphiju tako da ne odgovara ovom mom kodu..? Nista saljem ti kod sutra pa vidi....izludelo me vec ovo ...pozdrav

Potpis

RTFM