请教,这个程序该怎么写?

Question

代码要写一阵子了,我给你一个思路
放一个Edit,一个FileListBox,一个DirectoryListbox,一个DriveComboBox,一些按钮,运用\这几个控件编就比较好编了

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TFindFileEvent = function (mPathName: string; mSearchRec: TSearchRec): Boolean of object;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function DoFindFile(mPathName: string; mSearchRec: TSearchRec): Boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure FindFile(mDirName: string; mFindFileEvent: TFindFileEvent);
var
  vSearchRec: TSearchRec;
  vPathName: string;
  K: Integer;
begin
  if not Assigned(mFindFileEvent) then Exit;
  vPathName := mDirName + '\*.*';
  K := FindFirst(vPathName, faAnyFile, vSearchRec);
  while K = 0 do begin
    if (vSearchRec.Attr and faDirectory <> 0) and (Pos(vSearchRec.Name, '..') = 0) then
      FindFile(mDirName + '\' + vSearchRec.Name, mFindFileEvent)
    else if (Pos(vSearchRec.Name, '..') = 0) then
      if not mFindFileEvent(mDirName, vSearchRec) then Break;
    K := FindNext(vSearchRec);
  end;
  FindClose(vSearchRec);
end; { FindFile }{ TForm1 }function TForm1.DoFindFile(mPathName: string;
  mSearchRec: TSearchRec): Boolean;
begin
  Result := True;
  if (Pos('GPO', mSearchRec.Name) = 1) {and 日期格式判断} then
    Memo1.Lines.Add(mPathName + '\' + mSearchRec.Name);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFile('C:\Temp', DoFindFile);
//          路径？
end;end.

Answer 2

怎么判断日期格式呢,这样?
try
  date1 := strtodate(param1);
except
  {错误处理}
end;