Var
i:smallint;
s:WideString;
begin
s:='c:/abc.xls';
i:=F1FileExcel4;
f1book1.read(s,i);//read
F1FileFormulaOne Formula One format
F1FileExcel4 Excel 4.0 format
F1FileTabbedText Tab-delimited text file
F1FileExcel5 Excel 5.0 format
F1FileFormulaOne3 Formula One v.3 format
F1FileTabbedTextValuesOnly Tab-delimited text file values only
举个简单例子:
procedure ReadFile;
Var
fType:SmallInt;//**fType必须是SmallInt
FileName:String;
Begin
...
//fType:=F1FileExcel5;
fType:=F1FileFormulaOne3;
F1Book.Read(WideString(FFileName),fType);
...
