Axolot Data

Hello,

I have problem with AsVariant. If cell is clear, funtion returns value "1". I think the problem is in GetAsVariant:

function TXLSWorksheet.GetAsVariant(ACol, ARow: integer): Variant;
var
Cell: TXLSCellItem;
begin
if FCells.FindCell(ACol,ARow,Cell) then begin
case FCells.CellType(@Cell) of
xctNone,
xctBlank: Result := 0;
// xctCurrency,
xctFloat: Result := FCells.GetFloat(@Cell);
xctString: Result := FCells.GetString(@Cell);
xctBoolean: Result := FCells.GetBoolean(@Cell);
xctError: Result := Xc12CellErrorNames[FCells.GetError(@Cell)];
xctFloatFormula: Result := FCells.GetFormulaValFloat(@Cell);
xctStringFormula: Result := FCells.GetFormulaValString(@Cell);
xctBooleanFormula: Result := FCells.GetFormulaValBoolean(@Cell);
xctErrorFormula: Result := Xc12CellErrorNames[FCells.GetFormulaValError(@Cell)];
end;
end
else
Result := varNull; <------------------------------- Here must be Null, not varNull which is varType and integer consts
end;

Thanks
Zdenek

Hello

In the latest update AsVariant returns zero If there is an unknown variant type.

I think it should return Null as this is a purpose of Variant type.

Z

Hello

No, excel returns zero on empty cells and this is also how other functions work (AsInteger, AsFloat).

Ok.

How can I find that htere is nothing in cell?

Now I'm using

if not FindCell() then result:=Null

but I also need test for Blank Cell. How can I test if cell is blank?

Thanks
Zdenek

Hello

You can use CellType. Example:

That is what I'm looking for.

Thanks
Zdenek