TStringList - как проверить создан или нет?

← →
pok (2003-04-11 17:09) [0]

Увжаемые мастера у меня такой вопрос:
есть такой код
var
str:Tstrinlist;
begin
str:=tstringlist.create;
......

как мне проверить в другой процедуре создан str или нет, если нет
тогда создать!

← →
Skier © (2003-04-11 17:13) [1]

var
SomeVar : Tstrinlist;
//....................
1) if SomeVar <> nil then ShowMessage("Уже создан !")
2) if Assigned(SomeVar) then ShowMessage("Уже создан !")

← →
Anatoly Podgoretsky © (2003-04-11 17:19) [2]

Приведи строки и до

var
str:Tstrinlist;
begin

← →
DVM © (2003-04-11 17:20) [3]

> var
> str:Tstrinlist;
> begin
> str:=tstringlist.create;
> ......

Только не забудьте, что str должна быть глобальной переменной.

Самое главное при уничтожении Nil присваивать

← →
pok (2003-04-11 17:41) [5]

Понял. Всем большое спасибо!

TStringList - как проверить создан или нет? Найти похожие ветки