Thủ tục FindFirst procedure FindFirst(Path: PChar; Attr: Word; var F: TSearchRec); Trong đó: + Path có kiểu PChar (kiểu con trỏ đến một chuỗi) nhưng ở đây bạn có thể truyền vào một chuỗi kiểu string, ví dụ: bạn cần tìm tất cả các file đuôi .exe trong thư mục C:\Windows thì bạn cần truyền vào chuỗi sau: ‘C:\Windows\*.exe’ + Attr là thuộc tính của file/folder được định sẵn bằng các hằng trong thư viện DOS:. | Tìm kiếm file và folder bằng ngôn ngữ Pascal Thủ tục FindFirst procedure FindFirst Path PChar Attr Word var F TSearchRec Trong đó Path có kiểu PChar kiểu con trỏ đến một chuỗi nhưng ở đây bạn có thể truyền vào một chuỗi kiểu string ví dụ bạn cần tìm tất cả các file đuôi .exe trong thư mục C Windows thì bạn cần truyền vào chuỗi sau C Attr là thuộc tính của file folder được định sẵn bằng các hằng trong thư viện DOS Hằng Giá trị ReadOnly 01 Hidden 02 SysFile 04 VolumeID 08 Directory 10 Archive 20 AnyFile 3F F là tham biến kiểu TSearchRec chứa kết quả tìm được TSearchRec là kiểu record được định nghĩa như sau type TSearchRec record Fill array of Byte Attr Byte Time Longint Size Longint Name array of Char end Thủ tục FindNext procedure FindNext var F TSearchRec Trong đó biến F chứa thông tin phục vụ cho việc tiếp tục tìm kiếm theo thủ tục FindFirst đã gọi trước đó. Nếu tìm kiếm thất bại thì biến DosError sẽ được mang giá trị khác 0 như sau Mã Nghĩa 2 Không tìm thấy file 3 Không tìm thấy đường dẫn 5 Truy cập bị cấm 18 Đã tìm hết Chương trình minh họa liệt kê tất cả các file .PAS trong thư mục hiện hành. USES Dos VAR DirInfo SearchRec BEGIN FindFirst .PAS AnyFile DirInfo Same as DIR .PAS WHILE DosError 0 DO BEGIN Writeln FindNext DirInfo END readln .
