Question

delphi 7如何打开同目录下的Excell文件？

指定目录的我会弄，动态的目录怎么办呢？感谢！
已经解决：
var a:string;
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';
a:= PChar(ExtractFilePath(ParamStr(0)));
ExcelApplication1.WorkBooks.Open( a+'name.xls ',null,null
,null,null,null,null,null,null,null,null,null,null,null,null,0,);
共勉！

Answer 1

Delphi 打开ExcelVar //需在ueses中引用 comobj
ExcelApp:variant;
path,HeBing,Excel_Name:string;
Range: Variant;
/////////////////////////////////乱逗/////////////////////郑衫//////////////////////喊陪腔///
path:=extractfiledir(application.ExeName);
try
ExcelApp:=GetActiveOleObject('Excel.Application');
except
ExcelApp:=CreateOleObject('Excel.Application');
end;
ExcelApp.Visible := True;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open( path+'\Excel文件名.xls' );
ExcelApp.worksheets[1].activate; //表1激活

追问

delphi 如何取几个正数中不是0的最小数？例如：[0,0,0,33,35,55,],多谢！

追答

定义一个整型变量min,且min:=0;
从第一个数读起直到最后一个数，
如果该数不为0,
如果该数<min，则将该数的值赋给min；
读完最后一个数后，
min即为所求。如果min=0，说明这一组数中均为0

Answer 2

学习！