Обсуждение:BtrSrc - Компонента для доступа к таблицам DBT из Delphi

• Обсуждение:BtrSrc - Компонента для доступа к таблицам DBT из Delphi ( Обсуждение примера  16.11.2012 20:09 )
  Оценка:0(0)

  на RSBank 5.0 работал - я допилил под последний money, а на 5.5 уже не работает - суммы как numeric не видит ((
  
  может у кого получится - расскажите, а то моих знаний не хватает ))
  Посмотреть пример
  >> Ответить
  • вложены пару примеров - консольных. результат на экран выводится ( KaMPiLeR  16.11.2012 20:13 )
    Оценка:5(1)

    Not specified
    >> Ответить
    • Кстати, полезная библиотека ( msh008  17.01.2013 14:23 )
      Оценка:0(0)

      Можно поинтересоваться, у Вас не получилось разобраться с форматом numeric?
      >> Ответить
      • нет (( ( KaMPiLeR  17.01.2013 17:07 )
        Оценка:0(0)

        Not specified
        >> Ответить
      • примерно как то так (для DELPHI) ( Sergey  22.01.2013 17:54 )
        Оценка:0(0)

        Type Decimal = Array[1..15] of byte;
        
        Function DecToDouble(d:decimal):double;
        {DecToDouble сконвертит сумму Decimal в Double}
        
         function Tetrade(n:byte;a:byte):byte;{вернет тетраду  1 или 2 из байта}
         Begin
          Tetrade := (a shr ((n-1)*4)) and $0F;
         End;
        Var i,j,a:byte;
            c:double;
            r:extended;
            zn:shortint;
        Begin {DecToDouble сконвертит сумму Decimal в Double}
            zn:=1;
            c:=0;
            i:=SizeOf(d);
            a:=Tetrade(1,d[i]);
            Case a of
              $A,$D:zn:=-1;
            end;{Case}
            c:=Tetrade(2,d[i]);
            dec(i);
            r:=1;
            While (i>=1) do begin
                For j:=1 to 2 do begin
                  a:=Tetrade(j,d[i]);
                  c:=c+a*r;
                  r:=r*10;
               end;
               dec(i);
            end;
            c:=zn*c/1000;
            DecToDouble:=c;
        End;{DecToDouble}
        
        Procedure ExtToDec(c:Extended;var d:Decimal);
        {процедура преобразует вещественное число в DECIMAL}
        var s:string[100];
            r:Extended;
            zn:byte;
            a,i,j,l:byte;
        Begin
            zn:=$F;
            r:=c;
            If r<0 then zn:=$D;
            FillChar(d,SizeOf(d),$0);
            i:=SizeOf(d);
            Str(r:(2*(SizeOf(d))-1):4,s);
            l:=Pos('.',s);
            If l>0 then begin
               S:=Copy(s,1,l-1)+Copy(s,l+1,255);
            end;
            l:=Length(s);
            j:=l;
            While j>=2 do begin
              If j=l then begin
                 a:=($F0 and (byte(s[j]) shl 4)) or zn;
                 dec(j);
              end
              else begin
                   a:=(byte(s[j]) and $0F) + (((byte(s[j-1]) shl 4) and $F0));
                   dec(j,2);
              end;
              If (a in  [$0..$99]) then begin
                d[i]:=a;
                dec(i);
              end;
        
            end;
        End;
        

        
        У меня работает.
        >> Ответить
        • стал немного разбирать библиотеку - дошел до того - что ( p2p  04.12.2013 19:18 )
          Оценка:0(0)

          15 байтов выводит, а вот как их преобразовать в число - чото не получается ((
          
          http://kampiler.ru/src/btrset.rar
          >> Ответить