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) +' )';
//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!!!
Don't worry be happy