![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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? З.Ы. только не надо о вреде ГлобПерем. это чиста учебный код, для изучения ДЕЛФИ |