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)?