Code:
Query1.Edit;
Query1Stanje.AsFloat:=Query1Stanje.AsFloat+Query1Kolicina.AsFloat;
Query1.Refresh;
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;
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