Добрый день. есть код:
Код:
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?
З.Ы. только не надо о вреде ГлобПерем. это чиста учебный код, для изучения ДЕЛФИ