Zitat von
himitsu:
oder (ist zwar langsamer), aber wenn es gewünscht wird....
Viel zu langsam. Du lässt ihn mit jedem Dateinamen noch extra wieder die Liste verschieben. Dann lieber so:
Delphi-Quellcode:
initialization
SectionsAccess := TCriticalSection.Create;
CriticalSections := TStringList.Create;
finalization
while CriticalSections.Count > 0 do
begin
CriticalSections.Objects[Pred(CriticalSections.Count)].Free;
CriticalSections.Delete(Pred(CriticalSections.Count));
end;
CriticalSections.Free;
SectionsAccess.Free;
end.
[/quote]