![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день. есть код:
Код:
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; 2. нажимаем на кнопку2. по идее в gRequestStrings должны сохранятся данные, но их там нет. кроме того почемуто нет необходимости в создании gRequestStrings при запуске программы ВОПРОС: Что получается? ДЕЛФИ без разрешения создает-уничтожает gRequestStrings при нажатии кнопки1? З.Ы. только не надо о вреде ГлобПерем. это чиста учебный код, для изучения ДЕЛФИ |