[ BarGoran @ 09.05.2005. 18:15 ] @
Sta ovde ne valja - gde gresim

Code:
Query1.Edit;
Query1Stanje.AsFloat:=Query1Stanje.AsFloat+Query1Kolicina.AsFloat;
Query1.Refresh;


(ovo ja na foru 'izracunatog polja')

Ustvari, meni treba najklasicniji unos novog stanja, kad u DBEdit (Edit) upisem da je stiglo 5 "Flasa piva" (Kolicina) da se na stanju tih 5 doda na prethodni 20 znaci da u polju Stanje sad imam 25.

Meni se dogadja da posle upisa -5- i u "Stanju" i u "Kolicini" imam istu cifru

Ili:
Probao sam i ovako

Code:
procedure TForm2.Edit1Exit(Sender: TObject);
var
  x:String;
begin
   x:=Edit1.Text;
   data.Query1Stanje.AsFloat:=Data.Query1Kolicina + StrToInt(x); 
                                                  //probao sam isa StrToFloat
end;


Dobijam

Incompatible types

U Delphi Demos nisam nasao nista slicno

Hvala
[ BarGoran @ 09.05.2005. 18:37 ] @
Izvinite
Patim se Ceo dan i kad sam postavio gornji post primetio sam da mi fali jedno
malo 'AsFloat'
evo koda koji radi


Code:
procedure TForm2.Edit1Exit(Sender: TObject);
var
x:String;
begin
Data.Query1.Edit;
x:=Edit1.Text;
data.Query1kolicina.AsFloat:=Data.Query1Kolicina.AsFloat + StrToFloat(x);
Data.Query1.Refresh;
end;  


Jos jednom izvinite