Einzelnen Beitrag anzeigen

Money Making Machinist

Registriert seit: 23. Apr 2005
27 Beiträge
 
#6

Re: Anzahl der .ini´s in einem Verzeichniss rausfinden

  Alt 9. Mai 2005, 19:39
Ach sag doch einfach, das ich zuviel Code hab.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Ini: TInifile; i : integer; F: TSearchRec;
var1 : string;
begin

if (Findfirst('Stocks\*.ini', faAnyFile , F)=0) then

repeat
      try
      Ini:= TInifile.create('Stocks\'+F.Name);
      var1:= Ini.readstring('Stock','Name','NIX');
      Memo1.lines.Add(var1);
      finally
      Ini.free;
      end;
until (FindNext(F) <> 0);

SysUtils.FindClose(F);
end;
So okay?

Warum eigentlich SysUtils.FindClose(F) und nicht nur FindClose(F)?
  Mit Zitat antworten Zitat