Корректно ли написание функции StrToStrings?

← →
vladimirS © (2003-04-09 08:48) [0]

Функция работает...
Вопрос как потом выполняется метод Free?

function StrToStrings (Const S: String): TStrings;
begin
Result := TStringList.Create;
Result.Add(S)
end;

← →
MBo © (2003-04-09 08:56) [1]

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

procedure StrToStrings (Const S: String; Strings:TStrings);

тогда можно передавать хоть уже созданный TStringList, хоть Memo.Lines, и ясно, где освобождать список

← →
VladimirS © (2003-04-09 09:14) [2]

Тогда какой смысл в этой функции вообще?

← →
VladimirS © (2003-04-09 09:16) [3]

Она нужна для удобства... Если bvttncz строка, а в к/л процедуру необходимо ее передать как TStrings.

← →
VladimirS © (2003-04-09 09:17) [4]

имеется

← →
Palladin © (2003-04-09 09:20) [5]

интересно... а утечки памяти не боишься?
приведи пример импользования

> vladimirS

var
MyStrings: TStrings;
...
MyStrings := StrToStrings("Строка");
try
.. работаем с MyStrings ...
finally
MyStrings.Free; // безусловно разрушаем MyStrings
end;

Вот такая допустим "универсальная" процедура:
procedure SetFilter (Query: TIBQuery; Conditions: TStrings);
begin
{...}
end;

В некоторых случаях условие выбора в одну строку. И создавать объект типа TStrings нет смысла.

з.ы понятно, что компьютер TStrings сделает быстро, но дело в принципе

непонятно, зачем при установке фильтра нужно формировать какой-то StringList...

вот если GetFilter, тогда еще можно понять

Корректно ли написание функции StrToStrings? Найти похожие ветки