TStringList на лету

[Lesha]

хочу выслушать критику по реализации построения строковых листов на лету

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
TStringList2 = class(TStringList);
TStringList = class(TStringList2)
    function v(s:string):TStringList;
end;
   TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TStringList }

function TStringList.v(s: string): TStringList;
begin
  self.Add(s);
  result:=self;
end;

function list:TStringList;
begin
    result:=TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(list.v('hello').v('BIG').v('world').Text);
end;

end.

при нажатии на кнопку формируется на лету, без объявления переменных
строковый лист list.v('hello').v('BIG').v('world') ,
потом выводится в сообщении в виде текста,

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

hello
BIG
world

[Человек_Борща]

uses Classes;

type
TStringList2 = class(TStringList);
TStringList = class(TStringList2)

[Пепел Феникса]

и потом еще утечки данных идут.

да и в примере TStringList не к чему.

[Lesha]

Человек_Борща и?

стандартная реинициализация класса дельфи.

и потом еще утечки данных идут.

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

[Пепел Феникса]

как проверить что их нет?

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

Человек_Борща, как я заметил, это маленький хак для расширения существующего класса.

[Lesha]

в процедуре list список создан, а нигде не удален

этот список присваивается как результат вычислений, разве он потом не чиститься?

[Человек_Борща]

Пепел Феникса,

Разве можно так делать?

uses Classes;

type
TStringList2 = class(TStringList);
TStringList = class(TStringList2)

Ведь TstringList уже обьявлен в Classes.pas!

Lesha, воспользуйтесь тем-же EurekaLog. Прекрасный экспер по отлову всяких ужасов....

TList является контейнером обьектов, а конкретно он представляет из себя массив указателей на обьктыкоторые ты там хранишь.
По этому ты сам в деструкторе должен позаботиться о том чтобы уничтожить все.

Если это напрягает. возьми TObjectList(наследник Tlist) из модуля contrs.pas, он обладает свойство автоматически уничтожить все, что в него запихали...

[Lesha]

Разве можно так делать?

а что мешает?

так кстати можно еще "свои" компоненты писать. Перезаписываеш стандартный класс и добаляеш туда свои методы.
И такой компонент установки не требует. Нужен только модуль который изменит базовые свойства.

[Пепел Феникса]

Ведь TstringList уже обьявлен в Classes.pas!

и что? в другом модуле же.

разве он потом не чиститься?

а вы где то вызываете Free?

TList является контейнером обьектов, а конкретно он представляет из себя массив указателей на обьктыкоторые ты там хранишь.
По этому ты сам в деструкторе должен позаботиться о том чтобы уничтожить все.

тут уже TStringList за основу взят, он тоже сам чистить за собой, но его самого надо сначало уничтожить, чтоб он почистил.

[Lesha]

да, память жрет действительно

for i := 0 to 100000 do
list.v('hello').v('world');