Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


zion
  1. procedure TForm1.Button1Click(Sender: TObject); 
  2. var 
  3.   sr: TSearchRec; 
  4.   FileAttrs: Integer; 
  5. begin 
  6.   StringGrid1.RowCount := 1
  7.   if CheckBox1.Checked then 
  8.     FileAttrs := faReadOnly 
  9.   else 
  10.     FileAttrs := 0
  11.   if CheckBox2.Checked then 
  12.     FileAttrs := FileAttrs + faHidden; 
  13.   if CheckBox3.Checked then 
  14.     FileAttrs := FileAttrs + faSysFile; 
  15.   if CheckBox4.Checked then 
  16.     FileAttrs := FileAttrs + faVolumeID; 
  17.   if CheckBox5.Checked then 
  18.     FileAttrs := FileAttrs + faDirectory; 
  19.   if CheckBox6.Checked then 
  20.     FileAttrs := FileAttrs + faArchive; 
  21.   if CheckBox7.Checked then 
  22.     FileAttrs := FileAttrs + faAnyFile; 
  23.   with StringGrid1 do 
  24.   begin 
  25.     RowCount := 0
  26.     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then 
  27.     begin 
  28.       repeat 
  29.         if (sr.Attr and FileAttrs) = sr.Attr then 
  30.         begin 
  31.         RowCount := RowCount + 1
  32.         Cells[1,RowCount-1] := sr.Name; 
  33.         Cells[2,RowCount-1] := IntToStr(sr.Size); 
  34.         end
  35.       until FindNext(sr) <> 0
  36.       FindClose(sr); 
  37.     end
  38.   end
  39. end;


Et hop, encore un petit coup de test :banzai:
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?