抓狂小白的程式筆記

簡易的輸入字串 然後判斷為檔案還是資料夾

 

procedure TForm2.Button1Click(Sender: TObject);
var s:string;
begin
  if FileGetAttr(Edit1.Text) = faDirectory then
    s:='Y'
  else
    s:='N';
  ShowMessage('Dir > '+S);
  if FileExists(Edit1.Text)then
    s:='Y'
  else
    s:='N';
  ShowMessage('file > '+S);
end;