TagDec dönüş değeri hakkında

[adelphiforumz]

Selamlar

Bir dll fonksiyonundan geri dönüş değeri olarak WinApi.ActiveX.tagDEC dönüş değeri alıyorum
Bu dönen değeri nasıl kullanmalıyım

Aktivex içerisindeki tanımlanması aşağıdaki şekilde yapılmış
teşekkürler

{ from WTYPES.H }
{$ALIGN 1}
PDecimal = ^TDecimal;
{$EXTERNALSYM tagDEC}
tagDEC = record
wReserved: Word;
case Integer of
0: (scale, sign: Byte; Hi32: Longint;
case Integer of
0: (Lo32, Mid32: Longint);
1: (Lo64: LONGLONG));
1: (signscale: Word);
end;
TDecimal = tagDEC;
{$EXTERNALSYM DECIMAL}
DECIMAL = TDecimal;
{$ALIGN ON}

[SimaWB]

ActiveX.pas içerisinde VarR8FromDec fonksiyonu var, DECIMAL değeri sana float olarak döndürüyor. Belki işine yarayabilir.

[adelphiforumz]

ActiveX.pas içerisinde VarR8FromDec fonksiyonu var, DECIMAL değeri sana float olarak döndürüyor. Belki işine yarayabilir.

Teşekkürler
kullanımıda aşağıdaki şekilde imiş belki birinin işine yarar

Kod: Tümünü seç

var
  _TagDeg : TDecimal;
  _TagDegConvert : Double;
 begin
        VarR8FromDec(@_TagDeg, _TagDegConvert);
         FloatToStrF(_TagDegConvert, ffNumber, 18, 4)
 end