| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TStrings.Assign

00110011 ©   (2010-02-17 13:24:00) 

в конструктор класса в качестве параметра передается TStrings (может быть nil). Как правильно организовать проверку и присвоение параметра конструктора полю класса.

пока что сделал так:


constructor TESyntaxItem.Create(ATypeID: Integer; AName, AMsg: string;
 ADetailed: TStrings);
begin
 with FESyntaxInfo do
 begin
   TypeID := ATypeID;
   Name := AName;
   Msg := AMsg;
   Detailed := TStringList.Create;
   if ADetailed <> nil then
     Detailed.Assign(ADetailed);
 end;
end;


может сначала надо проверить не является ли параметр ADetailed - nil, а потом уже делать Create и Assign?

---

Игорь Шевченко   (2010-02-17 14:29:00) [1]

> может сначала надо проверить не является ли параметр ADetailed
> - nil, а потом уже делать Create и Assign?


Не надо. Если параметр nil, то присваивать нечего, а создавать все равно надо, Detailed в созданном объекте будет пустой - ну и что ? Точнее, от задачи зависит, тут телепатор бессилен.

---

Ega23   (2010-02-17 14:06:00) [2]

> NIL уже ТОЧНО не будет.


С чего это????

constructor TESyntaxItem.Create(ATypeID: Integer; AName, AMsg: string;
ADetailed: TStrings);
begin
with FESyntaxInfo do
begin
  TypeID := ATypeID;
  Name := AName;
  Msg := AMsg;
  Detailed := TStringList.Create;
  if ADetailed <> nil then
    Detailed.Assign(ADetailed);
end;
end;

var
 List : TStringList;
begin
 List := nil;
 with TESyntaxItem.Create(0, '', List) do
   Free;
end;


---

Юрий Зотов   (2010-02-17 13:42:00) [3]

> может сначала надо проверить


Естественно. Потому что после Create проверка уже не имеет никакого смысла - NIL уже ТОЧНО не будет.

Но надо подумать о логике. Если передача NIL по логике работы программы недопустима, то надо не создавать, а возбуждать ошибку.

---

Наверх