Показать сообщение отдельно
  #1  
Старый 01.07.2012, 11:09
Pcrepair
 
Сообщения: n/a
По умолчанию ПОчему ДЕЛФИ без спроса создает-уничтожает TStringList?

Добрый день. есть код:

Код:
uses uTransformText, uGlobalVariables; (*внешние модули*)

procedure TForm1.Button1Click(Sender: TObject);
var DataIn,DataOut : TStringList;
begin
    DataIn := TStringList.Create;
    DataOut := TStringList.Create;
    DataIn.Text := Memo1.Text; (*просто ввод строк из МЕМО в ПЕРЕМ*)
       TransformText(DataIn, DataOut); (*вызов основной ПРОЦ обработки текста*)
    gRequestStrings := DataOut; (*Перенос строк запроса в ГлобПерем*)
    //ShowMessage(gRequestStrings.Text); (*вот тут строки есть*)
    Memo1.Text := DataOut.Text; (*контрольное отображение результата*)
    DataIn.Free;
    DataOut.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   //gRequestStrings := TStringList.Create; (*и без инициализации ГлобПЕрем работает*)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(gRequestStrings.Text); (*вот тут ничего нет*)
end;
1. нажимает на кнопку1, строки копируются из МЕМО1 в ПЕРЕМ, обрабатываются и возвращаются. тут все нормально. в ГлобПЕрем gRequestStrings строки есть
2. нажимаем на кнопку2. по идее в gRequestStrings должны сохранятся данные, но их там нет. кроме того почемуто нет необходимости в создании gRequestStrings при запуске программы

ВОПРОС:
Что получается? ДЕЛФИ без разрешения создает-уничтожает gRequestStrings при нажатии кнопки1?
З.Ы. только не надо о вреде ГлобПерем. это чиста учебный код, для изучения ДЕЛФИ
Ответить с цитированием