Lazarus写入文件和目录到列表框的方法-DEMO

猫工

2. procedure TForm1.Button1Click(Sender: TObject);
3. var
4. //   Searcher: TFileReader;
5.   Info : TSearchRec;
6.   Count : Longint;
7.   app: string;
8. begin
9.      Count:=0;
10.      //se volessi leggere la cartella corrente basterebbe *
11.      If FindFirst ('c:\*',faAnyFile and faDirectory,Info)=0 then
12.        begin
13.        Repeat
14.          Inc(Count);
15.          With Info do
16.            begin
17.            If (Attr and faDirectory) = faDirectory then
18.              Form1.Lista_File.Items.Add('Dir : ' + Name + ' dimensione: ' + IntToStr(Size))
19.            else
20.             Form1.Lista_File.Items.Add('File : ' + Name + ' dimensione: ' + IntToStr(Size));
21.          end;
22.        Until FindNext(info)<>0;
23.        end;
24.      FindClose(Info);
25.      //Writeln ('Finished search. Found ',Count,' matches');
26.      Form1.Lista_File.Items.Add('Finished search. Found ' + IntToStr(Count) + ' matches');
27. end;
30. //to control the drive
32. procedure TForm1.Button2Click(Sender: TObject);
33. begin
34.      if DirectoryExists('C:')=TRUE then
35.      begin
36.           ShowMessage('Il drive C: esiste!');
37.      end;
39.      if DirectoryExists('E:')=TRUE then
40.      begin
41.           ShowMessage('Il drive E: esiste!');
42.      end;
43. end;     

复制代码