Чтение xls с помощью пакета laz_fpspreadsheet

[smith7]

Нужно прочитать данные из xls для сравнения с db в mysql.
В комплекте с пакетом идет chm, в котором есть описан метод GetCellByIndex
Но, почему-то он отсутствует в пакете.
Скрин, http://clip2net.com/clip/m62821/1377017 ... ?nocache=1
История повторяется на windows

Вместе с пакетом идет пример.

Код: Выделить всё

CurCell := MyWorkSheet.GetFirstCell();
  for i := 0 to MyWorksheet.GetCellCount - 1 do
  begin
    WriteLn('Row: ', CurCell^.Row,
     ' Col: ', CurCell^.Col, ' Value: ',
     UTF8ToAnsi(MyWorkSheet.ReadAsUTF8Text(CurCell^.Row,
       CurCell^.Col))
     );
    CurCell := MyWorkSheet.GetNextCell();
  end;

Если следовать примеру, то нужно полностью перебирать файл, чтобы проверить на каком столбце я нахожусь?

[amateur]

если память не изменяет то возможен доступ и по координатам (только если они заведомо известны ).

Код: Выделить всё

    { Data manipulation methods - For Cells }
    function  FindCell(ARow, ACol: Cardinal): PCell;
    function  GetCell(ARow, ACol: Cardinal): PCell;
    function  GetCellCount: Cardinal;
    function  GetFirstCell(): PCell;
    function  GetNextCell(): PCell;
    function  GetLastColNumber: Cardinal;
    function  GetLastRowNumber: Cardinal;
    function  ReadAsUTF8Text(ARow, ACol: Cardinal): ansistring;
    function  ReadAsNumber(ARow, ACol: Cardinal): Double;
    function  ReadAsDateTime(ARow, ACol: Cardinal; out AResult: TDateTime): Boolean;

судя по сорцам, можно прыгать как душе угодно. В Вашем случае, кажись, со строки ReadAsUTF8Text надо начинать

Только вот файлики xls он не все читает. И не любит "кривые".

В комплекте с пакетом идет chm

надо наоборот В комплекте с chm идут сорцы...

[smith7]

отлично, тогда...
как узнать сколько строк в файле, и пройтись по циклу, по конкретным столбам (не перебирая все)

[amateur]

Указали столбец и "побежали" по нему в цикле. В чем сложность то?

[v-t-l]

отлично, тогда...
как узнать сколько строк в файле, и пройтись по циклу, по конкретным столбам (не перебирая все)

Код: Выделить всё

    function  GetLastColNumber: Cardinal;
    function  GetLastRowNumber: Cardinal;