if Amount <> 0 then EnterCell(ExcelRowNo,3,Amount,TRUE,FALSE,FALSE,'0,00',CellType::Number) else EnterCell(ExcelRowNo,3,Amount,TRUE,FALSE,FALSE,'',CellType::Number);
↧