[es] - Problem sa frejmovima (... as .....).txtKriterijum.Text;

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.sksyu.net.

Sajt: www.linkedin.com/in/aleks..

Profil

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

^{17.09.2005. u 16:19 - pre 226 meseci}

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?

RTFM

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

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

^{17.09.2005. u 16:51 - pre 226 meseci}

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

Play Store

Odgovor na temu

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 108
*.125.EUnet.yu.

ICQ: 156892888

+1 Profil

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

^{17.09.2005. u 23:27 - pre 226 meseci}

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

Code:

if Assigned(konkretanDataModul.Frejm)
then strKriterijum := TKonkretanFrejm(konkretanDataModul.Frejm).txtKriteriju.Text
else raise Exception.Create('Prvo me kreiraj');

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

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

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

^{18.09.2005. u 00:19 - pre 226 meseci}

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.

Play Store

Odgovor na temu

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 108
*.219.EUnet.yu.

ICQ: 156892888

+1 Profil

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

^{18.09.2005. u 13:34 - pre 226 meseci}

Mozda je ovako poptunije :)

Code:

if (Assigned(konkretanDataModul.Frejm) and (konkretanDataModul.Frejm is TKonkretanFrejm))
then strKriterijum := TKonkretanFrejm(konkretanDataModul.Frejm).txtKriteriju.Text
else raise Exception.Create('Prvo me kreiraj');

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

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.sksyu.net.

Sajt: www.linkedin.com/in/aleks..

Profil

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

^{18.09.2005. u 17:03 - pre 226 meseci}

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?

RTFM

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

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

^{18.09.2005. u 19:52 - pre 226 meseci}

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

Play Store

Odgovor na temu

bondja

Član broj: 10286
Poruke: 167
*.adsl.sezampro.yu.

+3 Profil

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

^{19.09.2005. u 08:05 - pre 226 meseci}

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!

_{[Ovu poruku je menjao bondja dana 19.09.2005. u 09:07 GMT+1]}

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.sksyu.net.

Sajt: www.linkedin.com/in/aleks..

Profil

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

^{19.09.2005. u 12:11 - pre 226 meseci}

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!

RTFM

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yunord.net.

Sajt: www.linkedin.com/in/aleks..

Profil

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

^{21.09.2005. u 13:47 - pre 226 meseci}

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.

RTFM

Odgovor na temu

bondja

Član broj: 10286
Poruke: 167
*.adsl.sezampro.yu.

+3 Profil

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

^{21.09.2005. u 14:23 - pre 226 meseci}

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.

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yufestcaffe.com.

Sajt: www.linkedin.com/in/aleks..

Profil

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

^{21.09.2005. u 19:24 - pre 226 meseci}

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

RTFM

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yunord.net.

Sajt: www.linkedin.com/in/aleks..

Profil

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

^{23.09.2005. u 12:02 - pre 226 meseci}

Ljudi resio sam problem! Ne mogu da verujem kakva glupost! U .prj mi je pravio automatski instance onih datamodula i njihovih naslednika....kad sam to izbacio program mi je proradio! Kakva glupost, ni na kraj pameti mi nije bilo!
Hvala na pomoci i Pozdrav!

RTFM

Odgovor na temu