[ mr.zhile @ 28.11.2008. 21:35 ] @
| Mnogo mi je glupo,ali moraam da pitam Ovako imam promenljivu X koja je definisana private delu unita... promenljivoj se dodeli vrednost posle poziva sledeceg koda...taj kod se samo jednom u programu poziva...kod je deo procedure koja odradjuje otvaranje dataset-a,ona se poziva vise pua tokom rada programa,ali se deo zza odredjivanje X preskace... posle 1.pozivanja X dobije vrednost npr 14,2. pozivanjem pre procedure X = 0 a posle procedure 10678103,sto nije prava vreednost X-a Moje pitanje je kako moze da se vrednost X posle 1. poziva"zamrzne"i nemenja.... Code: //FPrebroj dobija vrednost 1 pri 1.pozivu proceduri //2. put kada se dodje do ove linije koda X=0 if FPrebroj = 1 then begin Sql := 'select count(*) from $ObjName$'; sdsObject.Close; sdsObject.DataSet.CommandText := Sql; sdsObject.Open; X := sdsObject.Fields[0].AsInteger; end; //2.put kad se ovo preskoci ovde X=100..... sql := 'select * from $ObjName$ rows $Mini$ to $Maks$'; TD.TransactionID := 1; TD.IsolationLevel := xilREADCOMMITTED; with sdsObject do begin Close; DataSet.CommandText := sql; end; DataModule3.SQLConnection1.StartTransaction(TD); sdsObject.Open; DataModule3.SQLConnection1.Commit(TD); if sdsObject.RecordCount > Prikaz then Inc(Uvecanje); CreateField; Label1.Caption := sMini + '-' + sMaks + ' ( '+ intToStr(X) +' )'; HVALA NA POMOCI!!! |