Определить создан ли TStringList

[NoName_emaNoN]

Добрый день!

Есть функция в своём компоненте, там нужно поставить проверку на то что входной StringList создан или нет, и если нет, то создавать его.

procedure TMyComponent.GetRecordsList(List: TStringList);

Дело в том, что Assigned не работает. а проверять вызывая exception не хотелось бы. Есть ещё способы?

[mihali4]

if MyStringList =nil then
//MyStringList не создан

[NoName_emaNoN]

Не работает

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

либо проверять указатель на nil, либо никак.
ибо если обьект не существует то будет AV.

[mihali4]

Сообщение от NoName_emaNoN

Не работает

Простите, но это - чушь...
Я в обязательном порядке проверяю перед тем, как выложить ответ....
Все прекрасно работает.

[NoName_emaNoN]

Тоже не работает. И самое странное что...

var L:TStringList;
begin
L.Add('bla');

Не вызывает ошибки.

17:19

Сообщение от mihali4

Простите, но это - чушь...
Я в обязательном порядке проверяю перед тем, как выложить ответ....
Все прекрасно работает.

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

Вот мой:

procedure TForm1.Button4Click(Sender: TObject);
var L:TStringList;
begin
if Assigned(L) then ShowMessage('AAAA');
end;

И сообщение выскакивает.

[mihali4]

Смею, смею...

Нормальный подход - объявлять его в локальных переменных, а потом пытаться проверить вне процедуры, где он был объявлен...
Литературой по программированию, похоже, брезгуете ?

И кстати:
У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[NoName_emaNoN]

Упс, в этом да, ошибочка вышла. Если переменная передаётся в процедуру, то всё нормально определяется.
Литературой не брезгую, но в той, что у меня есть - ответа этот вопрос нет.

[Serge_Bliznykov]

NoName_emaNoN
Просто на будущее.
По всем законам программирования любая переменная перед тем как она будет использована, должна быть проиницилизирована. Это - Святое правило. И часто причина трудноуловимых багов и самых неожиданных глюков ПО.
Другой вопрос, что многие компиляторы языков высокого уровня по разному относятся к использованию неиницилизированных переменных.
Delphi выдаст warning...
А вот программка под .NET compiler (например, на C#)
выдаст ошибку (имхо, абсолютно законно):

  int ii;
  // ii = 234;
  Console.WriteLine("Yout number is {0}:\n", ii);

Этот код не компилируется, если не убрать комментарий.

Вернёмся к Delphi.
Во всех известных версиях Delphi действует следующая не совсем документированная фишка (разработчики в документации к одной из версий сказали, что это так, но в будущей версии может и не быть. Но пока есть): Все глобальные переменные автоматически иницилизируются (нулём или пустым значением).
А вот локальные переменные - не иницилизируются.
(можете самостоятельно проверить это утверждение).

[NoName_emaNoN]

Да, спасибо, конечно, за прописные истины)
Проверять даже не буду, поверю на слово.
У меня была немного иная ситуация, и всё равно, кстати, Assigned не сработал, так что решил просто этого не делать до лучших времён, пока это не станет проблемой.