演示两种方法来遍历文件

 Unit1.dfm

object  Form1: TForm1
   Left   =   248
  Top  =   107
  BorderStyle  =  bsDialog
  Caption  =  # 25991 # 20214 # 36941 # 21382 # 30340 # 20363 # 23376
  ClientHeight  =   364
  ClientWidth  =   478
  Color  =  clBtnFace
  Font.Charset  =  ANSI_CHARSET
  Font.Color  =  clWindowText
  Font.Height  =   - 12
  Font.Name  =   ' Arial'
  Font.Style  =  []
  OldCreateOrder  =   False
  OnCloseQuery  =  FormCloseQuery
  PixelsPerInch  =   96
  TextHeight  =   15
   object  Label1: TLabel
     Left   =   3
    Top  =   343
    Width  =   173
    Height  =   15
    Caption  =   ' by rockhan  irochan@163.com'
    Font.Charset  =  ANSI_CHARSET
    Font.Color  =  clWindowText
    Font.Height  =   - 12
    Font.Name  =   ' Arial'
    Font.Style  =  [fsBold]
    ParentFont  =   False
   end
   object  Bevel1: TBevel
     Left   =   0
    Top  =   320
    Width  =   481
    Height  =   18
    Shape  =  bsBottomLine
   end
   object  Label2: TLabel
     Left   =   8
    Top  =   280
    Width  =   225
    Height  =   15
    Caption  =  # 27809 # 26377 # 25214 # 21040 # 27494 # 26519 # 22806 # 20256 # 30340 # 30446 # 24405 ' ....'#35831#25442#30424#21518#20877#25214'...'
   end