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

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 должна быть глобальной переменной.

---

← →
malkolinge ©   (2003-04-11 17:29) [4]

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

---

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

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

---

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

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



Память: 0.45 MB
Время: 0.018 c