Question

delphi 怎么把数据库中text类型的数据存储到实数数组中，如下图

数据库如

下图，载荷类型是text，里边有多个浮点数据，想吧他们取出来放到定义的浮点数组里去
下图是程序，求指导





Answer 1

//数据是用逗号分隔的吧?
//用TStringList来切割。
var
    ...
    alist : TStringList;
    i : Integer;
begin
    alist := TStringList.create;
    try
        ...
        alist.commaText := adoquery1.FieldByName('载荷').asString;
        for i := 0 to alist.count -1 do
        begin
          letter[i+1] := StrToFloat(alist[i]);//精度会有变化
    
        end;
           
    finally
        freeandnil(alist)
    end;

end;