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?
Don't worry be happy