Delphi 列出目录下的文件
function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindResult = 0 do
begin
if ((FSearchRec.Attr and faDirectory) = 0) then //文件
begin
FileList.Add('文件:'+LowerCase(Dir+FSearchRec.Name));
end;
if ((FSearchRec.Attr and faDirectory) <> 0) then
begin
if ((FSearchRec.Name<> '.') and (FSearchRec.Name <> '..')) then //文件夹
begin
ListFiles(dir+FileRec.Name);
end;
end;
FindResult:=FindNext(FSearchRec);
end;
FindClose(FSearchRec);
ListFiles:=FileList;
end;
相关文档：
TMS Scripter：支持Pascal和VBScript两种语法。优点是文档齐全、例子齐全，脚本可直接支持DLL，官方还提供了丰富的IDE Debug工具、单元导出函数工具等，缺点是编译运行较慢。for 空循环1000万次，需要10秒钟以上。TMS Scripter是商业共享软件。
FastScript：用过FastReport报表的同� ......
1.Round（四舍六入五留双）
功能说明：对一个实数进行四舍五入。(按照银行家算法)
例：
var
i, j: Integer;
begin
i := Round(1.5); // i等于2
j := Round(2.5); // j等于2
end;
在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五� ......
var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
......
//定义全局变量
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//创建打开outlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.app ......
Delphi的方法类型有：
1.静态方法 (Static) 默认类型，可以省略关键字
2.虚拟方法 (Virtual)
3.动态方法 (Dynamic)
4.消息方法 (Message)
5.抽象法方 (Abstract)
=======================================================
1）静态方法[static]
静态方法类似于通常的过程和函数，编译器在编译时就已指定了输出该方� ......
