Delphi-Quellcode:
if MatchesMask(AFilename, SL[I]) then begin
result:= TRUE;
Exit;
end;
end;
finally
SL.Free;
end;
end;
Die Routine erzeugt hier ein Speicherleck. Statt
Exit dann schon eher ein
Break oder Du musst die Stringlist an dieser Stelle separat freigeben.