Показать сообщение отдельно
  #8  
Старый 13.03.2010, 18:22
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Smerch66
Проблема возникла! Вобщем как только процедура завершает свою работу, автоматически очищаются оба массива mass и DATA. Понял теперь что это один и тот же массив, то всё же, он очищается сам, без всяких команд по завершению этой процедуры
в конце процедуры добавьте этот кусок:
Код:
Pointer(mass) := nil;
и всё будет в порядке
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием