утечка памяти ?

[Attid]

случайно накнулся на утечку памяти в консольном приложении, правда у меня старый фпц 2,4,0
но не ожидал что со строковой переменной

в основном потоке создаются потоки

Код: Выделить всё

    repeat
        //code  code code
        BeginThread(@IncomeThread,@vClientSocket);
    until false;     


ну и функция проста

Код: Выделить всё

function IncomeThread(Parameter : Pointer) : Integer;
var s : string;
begin
  Result := 0;
  s := IntToStr(Random(10));
  addLog(s);
  //s := '';     
  EndThread;
end;


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

вопрос больше риторический, но все же кто не прав ?

[Sergei I. Gorelkin]

Ты принудительно завершаешь поток, не дав выполниться коду неявного освобождения памяти в конце процедуры. Естественно, при этом память будет течь.

[Alex2013]

Как вариант можно выделять и освобождать память самостоятельно
или если строки гарантировано не длинные использовать тип ShortString;

Зы Кстати интересно можно ли использовать объявление типа S:String[1024] ; ?

[Linus]

[Текст сообщения стерт. Возникшая проблема уже решена]

fpc 2.6.0 lazarus 0.9.30.4 (stable) Debian wheezy amd64