請問一下各位大大，小弟剛碰delphi二個星期所以不太熟悉，因為我想要做一個有三個edit可以輸入年月日
用以為選擇的目錄底下的檔案依建立日期來做備份，在網上看到有位大大有貼類似的程式所以拿來修改了一點
在下面中有一段 //若輸入的edit中年、月、日和td中相符則true這三行，是用以判斷我輸入之三個數值，即年月
日，而如果在下想做到只輸入年，或年和月，後面的值都不輸入任何值就可以依年或年 月來尋找，試了許久
實在是不行，請各位大大給小弟一點提示吧 >"<
if FindFirst(s '*.*', faAnyFile, r) = 0 then begin
repeat
if (r.Name <> '.') and (r.Name <> '..') then begin
ns := s r.Name; //新來源目錄路徑或檔案名稱
nd := d r.Name; //新目的目錄路徑或檔案名稱。
sd:=filedatetodatetime(r.time); //將檔案、資料夾日期傳給sd
decodedate(sd,x,q,z); //將sd中的年、月、日分離

if (strtoint(form1.Edit3.Text) = x) //若輸入的edit中年、月、日和td中相符則true
and (strtoint(form1.edit4.text) = q)
and (strtoint(form1.Edit5.text) = z) then
if (r.Attr and faDirectory) = faDirectory then begin //若為目錄時，則...
if ForceDirectories(nd) = false then Exit; //嚐試建立目的目錄。
CopyDir2(ns, nd); //再找下一層子目錄複製。
end else begin
if FileExists(nd) and (vOverwrite = false) then Continue; //若目的檔案存在且又不覆寫時，則...
if CopyFile(PChar(ns), PChar(nd), false) =false then Exit;
end ;
end;
until FindNext(r) <> 0;

已自行解決~各位大哥不用麻煩了 ^.^