有哪些信誉好的足球投注网站- 1、本文档共4页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
将Excel表内的数据导入到GridString控件内
将Excel表内的数据导入到GridString控件内
procedure TForm1.ButnNewClick(Sender: TObject);
var
i,j:integer;
ColCount, RowCount :integer; //标识数与行数。
msExcel, msExcelWorkbook, msExcelWorkSheet: variant;
Strtemp,str1,str2 : string;
IsDigital : boolean;
begin
//判定是否在测试，否则不可以导入数据。
if IsTesting then
begin
Application.MessageBox(正在测试中。。。。，不可以导入数据。,提示,mb_ok);
exit ;
end;
// opendialog1.InitialDir:=ExtractFileDir(paramstr(0)); //文件的打存放初始路径
OpenDialog1.Filter := Microsoft Excel文件（*.xls）|*.xls;
//把导入文件名按下面的规律自动增加,注意在A，B ，填入对话框的文件名编辑框。
//00111A.XLS 00111B.XLS 00112A.XLS 00112B.XLS 00113A.XLS 00113B.XLS....
Strtemp := Form1.Caption ; //当已经导入了文件时，其格式为：后台测试软件V1.8.0 -- ????.xsl
i := pos(-- ,Strtemp) + 2;
if i 3 then
begin
delete(Strtemp,1,i); //删除“后台测试软件V1.8.0 --”字样
i := pos(A,Strtemp);
if i 0 then
begin
OpenDialog1.FileName := OpenDialog1.InitialDir + Trim(copy(Strtemp,1,i-1)) + B + Trim(copy(Strtemp,i+1,4));
end
else
begin
i := pos(B,Strtemp);
//此处要防止非数字转换产生的问题。
if i 1 then
begin
str1 := Trim(copy(Strtemp,1,i-1));
IsDigital := True ; //默认 str1 是一个数字
for j :=1 to length(str1) do
if str1[j] in [0,1,2,3,4,5,6,7,8,9] then
continue
else
begin
IsDigital := False;
break;
end; //end if ,end for
if IsDigital then
begin
str1 := inttostr(strtoint(str1)+1) ;
str2 := Trim(copy(Strtemp,i+1,4)) ;
strtemp := ;
for j := 1 to i -1 do
Strtemp := strtemp + 0;
str1 := Formatfloat(strtemp,strtoint(str1));
OpenDialog1.FileName := OpenDialog1.InitialDir + str1 + A + str2 ;
end; //end if
end;
end;
end;
//创建Excel对象
msExcel := CreateOleObject(Excel.Application)
文档评论（0）