[childeroland]

Сообщение от Alegun

ПЧПВГ, вгонять данные в Excel как текст через FloatToStr, a получать обратно через StrToFloat

а обратно мне вроде как ничего получать не надо...

и у меня данные в массиве Variant, FloatToStr тут не катит

Пробовал делать так:

Код:

for j := 0 to VarArrayHighBound(Result.arrCommonData, 2) do
                if ((j = 43) and (Params.OraQuery.FieldCount = 50 )) or ((j = 33) and (Params.OraQuery.FieldCount = 37)) then
                  Result.arrCommonData[i,j] := Params.OraQuery.Fields.Fields[j + 3].AsString
                else
                  Result.arrCommonData[i,j] := Params.OraQuery.Fields.Fields[j + 3].AsInteger;

AsString вместо AsFloat, в принципе получается примерно то же, что вы и предлагали, но всё равно разделитель просто отбрасывается