Gleitkommadivision...?

[ibp]

sie werden nicht über ein grid erstellt, sondern per query

Delphi-Quellcode:

function TInkaRecord.UpdRec(aPKey:TInkaKey):boolean;
var
   i:integer;
   s:string;
   inkaField:TInkaRecField;
   allowtyp:TinkaFieldSet;
begin
   allowTyp:=[inkaFtPKey,
                  inkaFtRef,
                 inkaFtText,
              inkaFtInt,
              inkaFtFloat,
           inkaFtMemo,
           inkaFtBool,
                 inkaFtDate, 
                 inkaFtStart,
                 inkaFtViewer];
   // insert Record
   query.SQL.Clear;
   query.sql.add('update '+tableRef.tname);

   // set fieldname
   s:='set '+tableRef.prefix+'_parkey=:parkey';
   for i:=0 to fieldCount-1 do begin
      if not (TInkaRecField(fieldList.Objects[i]).typ in allowTyp) then continue;
      s:=s+','+fieldList.Strings[i]+'=:'+fieldList.Strings[i];
   end;
   query.sql.add(s);
   query.sql.add('where '+tableRef.prefix+'_pkey=:pkey');
   query.ParamByName('parkey').asString:=recParKey;
   query.ParamByName('pkey').asString:=aPKey;

   // parametrisieren
   for i:=0 to fieldCount-1 do 
      begin
     if not (TInkaRecField(fieldList.Objects[i]).typ in allowTyp) then continue;
     inkaField:=TInkaRecField(fieldList.Objects[i]);
     inkaField.setToQuery(query,fieldList.Strings[i]);
   end;

   result:=true;
      try
        query.ExecSQL;
      except
        on e:Exception do
        begin
          showmessage('Fehler beim aktualisieren des Datensatzes!'+#13
                      +query.SQL.Text+#13
                      +e.Message);
          result:=false;
        end; // on
      end; // try..except
end;