Spreadsheet Unit Read Problem
Original Reporter info from Mantis: indianajones
-
Reporter name:
Original Reporter info from Mantis: indianajones
- Reporter name:
Description:
I attached the following xls example. The format of this xls file is 97-2004.
The revision svn number of fpspreadsheet is 887.
The following code returns empty value.
Thanks
procedure TForm1.Button1Click(Sender: TObject);
var
MyWorkbook : TsWorkbook;
MyWorksheet:TsWorksheet;
begin
MyWorkbook := TsWorkbook.Create;
try
MyWorkbook.ReadFromFile('/Users/macintoshmacbook/97-2004.xls', sfExcel8);
MyWorksheet := MyWorkbook.GetFirstWorksheet;
showmessage(MyWorksheet.ReadAsUTF8Text(2,0));
finally
MyWorkbook.free;
end;
end;
Additional information:
Mac OS X 10.5.7
FPC 2.2.4
Lazarus SVN 20763
Mantis conversion info:
- Mantis ID: 14085
- Version: 0.9.27 (SVN)
- Fixed in revision: 945 (#30fb4ef3c92f5c0ede3f9976acb9edcdde5a095d)