FList := NewStrList;
а деструктор где, вот с этим
FList.free
Мусор за собой надо убирать. Если твой компонент попадет в динамический мультик с уничтожением в RealTime, без того, что я тебе показал, то жди утечки памяти
------------ Дoбавленo в 00.58:
А вот это нафига
procedure THISwitchingPages.SetText;
begin
FList.SetText(Value, false);
end;
procedure THISwitchingPages.SetText;
begin
FList.Text := Value;
end;
Поиск
Друзья
Администрация