[es] - unos novog stanja

BarGoran
Glamoc

Član broj: 56384
Poruke: 24
62.108.101.*

Profil

^{09.05.2005. u 18:15 - pre 231 meseci}

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

Odgovor na temu

BarGoran
Glamoc

Član broj: 56384
Poruke: 24
62.108.101.*

Profil

Re: unos novog stanja

^{09.05.2005. u 18:37 - pre 231 meseci}

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

Odgovor na temu