[ mr.zhile @ 12.06.2010. 13:20 ] @
[ mr.zhile @ 12.06.2010. 13:20 ] @
[ savkic @ 12.06.2010. 15:38 ] @
> Ne moze da upisee vrednost u propertyije ako saljem pravi tip podataka...
> ne zanm u vcemu je greks molio bi za pomoc AccessViolation (AV) greška uglavnom znači da koristiš objekat koji nije inicijalizovan ili je prethodno uništen. Pošalji kod u kome se ta greška javlja. [ mr.zhile @ 14.06.2010. 22:45 ] @
Prvo nekoliko reci o principu na koji sam hteo program da uradim.....(mada je to mozda vecini jasno,ali da objasnim)
Prilikom otvaranja novog rekorda posalje se blanko objekat sa id -1 ,isti objekat se posalje i prilikom izmene samo sa konkretnim id-em...prilikom pamcena novog/izmenjenog rekorda salje se objekat klasi vcija procedura smesta objekat u bazu.... e sad kod koji pravi objekat pri unosu/izmeni radi ok,ali problem pravi kod koji pamti objekat... Code: outputMesto.Create(StrToInt(lblIDMesta.Caption),StrToInt(edPostBr.Text),StrToInt(edIDDrzava.Text),edNaziv.Text); a kod konstruktora i klase TMESTO JE Code: ]type TMesto = class private FID_MESTA: Integer; FPOST_BROJ: Integer; FID_DRZAVE: Integer; FNAZIV: String; procedure SetID_DRZAVE(const Value: Integer); procedure SetID_MESTA(const Value: Integer); procedure SetNAZIV(const Value: String); procedure SetPOST_BROJ(const Value: Integer); public property ID_MESTA:Integer read FID_MESTA write SetID_MESTA; property ID_DRZAVE:Integer read FID_DRZAVE write SetID_DRZAVE; property POST_BROJ:Integer read FPOST_BROJ write SetPOST_BROJ; property NAZIV:String read FNAZIV write SetNAZIV; constructor Create(ID_MESTA,POST_BROJ,ID_DRZAVE: Integer;NAZIV: String); end; implementation { TMesto } constructor TMesto.Create(ID_MESTA, POST_BROJ, ID_DRZAVE: Integer; NAZIV: String); begin inherited Create; Self.ID_MESTA:=ID_MESTA; Self.ID_DRZAVE:=ID_DRZAVE; Self.NAZIV:=NAZIV; Self.POST_BROJ:=POST_BROJ; end; procedure TMesto.SetID_DRZAVE(const Value: Integer); begin FID_DRZAVE := Value; end; procedure TMesto.SetID_MESTA(const Value: Integer); begin FID_MESTA := Value; end; procedure TMesto.SetNAZIV(const Value: String); begin FNAZIV := Value; end; procedure TMesto.SetPOST_BROJ(const Value: Integer); begin FPOST_BROJ := Value; end; Eni greska puklne u trenutku kreiranja objekta....s tim sto sam debugovanjem utvrdio da je grska pri metodama set....a vrednost value je ok.....sad u cemu je problem...nemam pojma.... mislim da sam bio iscrpan, neki konkretan odgovor i pomoc? [ savkic @ 15.06.2010. 00:53 ] @
> outputMesto.Create(StrToInt(lblIDMesta.Caption),StrToInt(edPostBr.Text),StrToInt(edIDDrzava.Text),edNaziv.Text);
OutputMesto := TMesto.Create(....); Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|