agregateフィールドの正しいデータ型を取得するには？

Question

CREATE TABLE [Table1] (
    [OrderNumber] integer, 
    [Amount] float 
); 

dbExpressライブラリのTSQLQueryを使用してください。

SQLQuery1.SQL.Clear; 
    SQLQuery1.SQL.Text := 'select sum(Amount) from Table1 group by OrderNumber'; 
    SQLQuery1.Open; 
    SQLQuery1.First; 
    Memo1.Lines.Add(FloatToStr(SQLQuery1.Fields.FieldByNumber(1).AsFloat)); 

その結果、私が取得：メッセージと

ExceptionクラスEDatabaseError 'Float型として 'COLUMN0' フィールドにアクセスできません'。

しかし、私がStringとして値を取得しようとするとエラーはありません。それは働く：

Memo1.Lines.Add(SQLQuery1.Fields.FieldByNumber(1).AsString); 

どのようにデータを取得するFloat？

Answer 1

私はこのソリューションを使用することを余儀なくされた。

SQLQuery1.SQL.Text := 
    'drop table if exists temp.agregatetable1;  '; 
    SQLQuery1.ExecSQL(False); 
    SQLQuery1.SQL.Text := 
    'create temp table if not exists AgregateTable1 '+ 
    '(            '+ 
    ' [OrderNumber] integer,      '+ 
    ' [SumAmount] float       '+ 
    ');            '; 
    SQLQuery1.ExecSQL(False); 
    SQLQuery1.SQL.Text := 
    'insert into Temp.AgregateTable1    '+ 
    'select           '+ 
    '  OrderNumber,        '+ 
    '  sum(Amount)        '+ 
    'from           '+ 
    '  Table1         '+ 
    'group by          '+ 
    '  OrderNumber;        '; 
    SQLQuery1.ExecSQL(False); 
    SQLQuery1.SQL.Text := 
    'select SumAmount from Temp.AgregateTable1  '; 
    SQLQuery1.Open; 
    SQLQuery1.First; 
    while not SQLQuery1.Eof do 
    begin 
     Memo1.Lines.Add(FloatToStr(SQLQuery1.Fields.FieldByNumber(1).AsFloat)); 
     SQLQuery1.Next; 
    end; 

誰かがより良い方法を知っていれば、あなたがそれを共有する場合、私は喜んでいるでしょう。