Здравствуйте, Sinclair, Вы писали:
S>Здравствуйте, SeLarin, Вы писали:
SL>>Каждый раз при вызове функции Вы создаете экземпляр класса TStringList, но он остается неосвобожденным до конца работы программы. Отсюда и появляется утечка. Более корректно на мой взгляд было бы передавать в функцию уже созданный экземпляр этого класса. Т.е. переписать код так:
S>Я бы даже упростил жизнь пользователям:
S>S>Function GetFileList(Dir : string=''; Mask : string = '*.*'; Attr : integer = faAnyFile; List: TStrings): Cardinal;
S>
раз уж начал упрощать — упрощай до рабочего состояния
function GetFileList(List: TStrings; Dir : string=''; Mask : string = '*.*'; Attr : integer = faAnyFile): Cardinal;
... << RSDN@Home 1.1.4 beta 6a rev. 436>>
