Небольшая утечка памяти с TStringList

[Pcrepair]

Добрый день. Есть код функции:

function DelParagraph(const Str1,Str2:string; L:integer):string;
var
J,I,Count,D,G:integer;
Word1,Word2: string;
T1,T2:TStringList;
begin
T1:=TStringList.Create;
T2:=TStringList.Create;
T2.Sorted := true;              
T2.Duplicates := dupIgnore;                  
Result:='';
if Length(Str1) = 0 then Exit;
 Count:=0;                                      
   try
      T1.Text:=SpliteText(Del(Str1));          
      G:=(T1.Count);                           
      T2.Text:=SpliteText(Str2);               
      for I := 0 to T2.Count-1 do              
        begin
         Word1:=(T2[I]);                       
          begin
           for J := 0 to T1.Count-1 do         
            begin
             Word2:=(T1[J]);                   
              if CompareWords(Word1,Word2) then
               begin
                Inc(Count);                    
               end;
            end; 
          end;
        end; 
        if (Count = 0) or (G = 0) then         
        Exit
        else
        D:=((Count*100 Div G)); 
        if D > L then
        Result:=Str1;
   finally
      FreeAndNil(T1);
      FreeAndNil(T2);
   end;
end;

Del, SpliteText, CompareWords - вызываемые функции, то же имеют TStringList и везде try-finally-end;
Вызов функции:
FullStr3:=DelParagraph(FullStr2,SWo rds,L); в общем функция получает две строки1 и 2 и число, сравнивает слова в строках и если число совпадений превышает порог переносит строку1 на выход.

Проблема состоит в том что при завершении программы ReportMemoryLeaksOnShutdown выдает сообщение о небольшой утечке памяти в TStringList
если заблокировать вызов функции, то утечка пропадает

ВОпросы:
1. как вообще можеть быть утечка при наличии try-finally-end вроде бы гарантирующее уничтожение объектов
2. как вообще определить где конкретно это происходит
3. может быть код кривой? тогда где?

[Аватар]

T1:=TStringList.Create;
T2:=TStringList.Create;
...
if Length(Str1) = 0 then Exit;
Count:=0;
try
...

[s-andriano]

Кстати, хороший пример, показывающий вредность использования exit.

[Pcrepair]

так что екзит? тут много рассказывали что в try-finally-end все одно после екзита буде выполнено.
так не слишком криво:

if Length(Str1) = 0 then
begin
  FreeAndNil(T1);
  FreeAndNil(T2);
  Exit;
end;

хотя помогло

Сообщение от s-andriano

Кстати, хороший пример, показывающий вредность использования exit.

так так, а что взамен? а то этот екзит постоянно применять приходится

[Аватар]

все одно после екзита буде выполнено

Если exit в блоке try

try
  if Length(Str1) = 0 then Exit;
  Count:=0;                                      
  T1.Text:=SpliteText(Del(Str1));          
  G:=(T1.Count);                           
  T2.Text:=SpliteText(Str2);
  ....

[Pcrepair]

так еще лучше, спасибо за пример

[s-andriano]

Сообщение от Pcrepair

так так, а что взамен? а то этот екзит постоянно применять приходится

exit - это нарушающий структуру выход из подпрограммы.
Используйте вместо него полноценную конструкцию if then else.
Это немного дольше писать, зато намного быстрее отлаживать.

Сообщение от Pcrepair

так еще лучше, спасибо за пример

Еще лучше поставить

Result:='';
if Length(Str1) = 0 then Exit;

первыми строками функции - до создания стринглистов, если уж Вы не хотите отказываться от exit.

[Pcrepair]

типа чтобы после else оказался последний оператор и end?
а можно усеченный пример(только if Length(Str1) = 0 then Exit) выше приведенного кода?

[s-andriano]

Сообщение от Pcrepair

типа чтобы после else оказался последний оператор и end?
а можно усеченный пример(только if Length(Str1) = 0 then Exit) выше приведенного кода?

Собственно, здесь ветка else даже не нужна.
Я бы написал так:

begin
  Result:='';
  if Length(Str1) > 0 then begin
    T1:=TStringList.Create;
    T2:=TStringList.Create;
...
  end;
end;

Не нужно создавать объекты, если Вы с ними ничего не собираетесь делать.

[Pcrepair]

попробуем поменять логику в используемых функциях, посмотрим что будет. спасибо