Скачать: CL | DM;

Корректно ли написание функции 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]

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

---

← →
Digitman ©   (2003-04-09 09:25) [6]

> vladimirS


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

---

← →
VladimirS ©   (2003-04-09 09:28) [7]

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

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

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

---

← →
Digitman ©   (2003-04-09 09:44) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c