Mam problem ze zdarzeniem OnKeyPress DBEdita, w którym po przyciśnięciu przycisku + na klawiaturze numerycznej do DBEdita wstawiany jest ciąg znaków(wskazanie wagi).
procedure Tokienkowyd.DBEdit1KeyPress(Sender: TObject; var Key: Char);
var waga_bez_poj, waga:real;
begin
if formdodaj.CheckBox2.Checked=True then
begin
if key=#43 then
begin
DBEdit1.DataSource.DataSet.Edit;
waga_bez_poj:=StrToFLoat(formdodaj.waga_z_przecinkiem)-2;
DBEdit1.DataSource.DataSet.FieldByName('ilosc').Text:=FloatToStr(ABS(waga_bez_poj));
end;
Problemem jest to, że ów plus po wykonaniu zdarzenia zostaje wyświetlony w DBEdicie. Przy wyjściu otrzymuję komunikat " '+' is not a valid floating point value for field ilosc".