Anzahl der .ini´s in einem Verzeichniss rausfinden

[SirThornberry]

es reicht auch nur "FindClose". Und das FindClose braucht nur aufgerufen werden wenn FindFirst erfolgreich ist, ansonsten wird bei Findfirst intern schon FindClose aufgerufen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var Ini: TInifile; 
    i : integer; 
    F: TSearchRec; 
    s, RootDir : string; 
begin 
  i := 0; 
  RootDir := ExtractFilePath(ParamStr(0)); 

  If FindFirst(RootDir + 'Stocks\*.ini', faAnyFile-faDirectory, F) = 0 then
  begin 
    Repeat 
      Ini:= TInifile.Create(RootDir + 'Stocks\'+F.Name); 
      try 
        inc(i); 
        s := Ini.ReadString('Stock','Name',''); 
        Memo1.Lines.Add(IntToStr(i) +': ' + s); 
      finally 
        Ini.Free; 
      end; 
    Until FindNext(F) <> 0; 
    FindClose(F); 
  end;
end;