[ mr.zhile @ 12.06.2010. 13:20 ] @
REc je prostoj aplikacija,uradjenoj za seminarski
Mora da se posalje objekat klasa a en datasource...
e a tu mi pukne evo slike greske
Ne moze da upisee vrednost u propertyije ako saljem pravi tip podataka...
ne zanm u vcemu je greks molio bi za pomoc

[ 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(....);