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