Data type

[krzynio]

Hello!

I am writing a procedure for exporting data from Excel file to SQL database.
My question id how to determine cell data type in worksheet, if it is generally possible?
Some fields are strings but contains numbers and some are pure floats.
I do it like this:

    for j:=0 to MyWorksheet.GetLastColNumber do begin
      try
        f := MyWorksheet.ReadAsNumber(i,j);
        s := s + FloatToStr(f)+',';
      except
        s := s+''''+MyWorksheet.ReadAsUTF8Text(i,j)+''',';
      end;
    end;

but sometimes it fails because strings with numbers only are threaten as floats and strings with letters are read as '0'.
Therefore I need to distinguish pure floats, then convert it string, then replace coma with dot and put to SQL script.
Please help.

Regards,
Krzysztof

[paweld]

Code: [Select]

var
  MyWorkbook: TsWorkbook;
  MyWorksheet: TsWorksheet;
  i: Integer;
  CurCell: PCell;
begin
  MyWorkbook := TsWorkbook.Create;
  MyWorkbook.ReadFromFile('c:\test.xls');
  MyWorksheet := MyWorkbook.GetWorksheetByIndex(0);

  CurCell := MyWorkSheet.GetFirstCell();
  for i := 0 to MyWorksheet.GetCellCount - 1 do
  begin
    case CurCell^.ContentType of
    cctNumber: sg.Cells[CurCell^.Col, CurCell^.Row]:='Liczba: '+MyWorkSheet.ReadAsUTF8Text(CurCell^.Row, CurCell^.Col);
    cctUTF8String: sg.Cells[CurCell^.Col, CurCell^.Row]:='Tekst: '+MyWorkSheet.ReadAsUTF8Text(CurCell^.Row, CurCell^.Col);
    end;
    CurCell := MyWorkSheet.GetNextCell();
  end;
end;

[krzynio]

Thanks Pawel!

CurCell^.ContentType solves the problem.

Regards,
Krzysztof