Как перенести переменную типа TStringList в другой модуль

@valeriy_zf · Регистрация: 22.01.2010

Author24 — интернет-сервис помощи студентам

Как перенести глобальную переменную типа TStringList в другой модуль (Unit2 например), чтобы она при этом сохранила свое значение?

Применение extern, static, включение модуля #include "Unit1.h" - не помогает.
Переменная остается объявленной, а свое значение теряет, т.е. полностью опустошается при обращении к ней из другого модуля.

Переменные других типов (float, int AnsiString) вызываются нормально, т.е. сохраняют значения.
TStringList - все теряет

Спасибо!

P.S. ПО: С++ Builder 6

@Зоти Сергей · 23.01.2010, 02:41

Да нэ может такого быть!
Unit1.cpp:
на форме кнопка при ее нажатии:

C++

#include "Unit2.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringList * ThisList = new TStringList;
        ThisList->Add("Hallo world");
        Form2->Lst=ThisList;    // Вот тут присваиваем указателю второй формы на адрес ThisList
        Form2->ShowModal();
}

Unit2.h:

C++

class TForm2 : public TForm
{
 
__published:    // Von der IDE verwaltete Komponenten
    TMemo *Memo1;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // Anwender-Deklarationen
public:
TStringList * Lst;
    __fastcall TForm2(TComponent* Owner);
};

Unit2.cpp на форме кнопка и Memo1. При ее нажатии:

C++

1	Memo1->Lines->Add(Lst->Strings[0]);

При нажатии на кнопку во второй форме, данные из lst(указателя на TStringList из первой формы)
появляются в Memo1

@valeriy_zf · 23.01.2010, 04:10 **[ТС]**

Сергей, спасибо огромное! Так попробовал - отлично работает.
Вот только у меня нет 2-й формы. Есть одна форма и два модуля. А так не получается настроить, т.к. во 2-м модуле нет объявления класса Form2...

Подскажите пожалуйста, в идеале такой же примерчик, только с Form1, Unit1 и Unit2.

Еще раз спасибо!

Добавлено через 18 минут
Короче говоря, у меня изначально была одна форма и модуль. Здесь я работал с переменной типа TStringList. Затем, чтобы не нагромождать один юнит процедурами, я создал Unit2. Но без еще одной формы. Всеми переменные благополучно туда переехали. А вот со TStringList как-то не выходить.
Вот и ваш пример я тоже кручу. С двумя формами все отлично работает. Когда одну форму удаляешь - не выходит...

@Зоти Сергей · 23.01.2010, 04:11

Конечно! Те же яйца, тока в профиль.
Во вложенном вайл проекта.
Если что не понятно - спрашивайте.

@Зоти Сергей · 23.01.2010, 04:21

Вот.. с двумя юнитами:

@valeriy_zf · 23.01.2010, 04:36 **[ТС]**

Ой, спасибо огромное, все отлично работает.
Сейчас буду пробовать все сделать по аналогии в своей программе..
Еще раз спасибо!

@valeriy_zf · 23.01.2010, 05:16 **[ТС]**

Вы знаете, стыдно признаться, но опять не получается так, как хотелось бы.

В последнем примере (с тремя модулями) несмотря на то, что используется Dummy класс модуля 2, текст на форму_1 все равно выводится из модуля_1. А мне нужно текст, заданный в модуле_1, вытащить в любую процедуру модуля_2 или 3 (через переменную TStringList).

Во вложенном файлике я добавил пару кнопок и две пустые процедурки: Показать тот же текст (заданый в модуле_1), только выводя его из Unita2, а также из Unita3.

Еще надеюсь на ваш спортивный интерес

Спасибо!

@valeriy_zf · 23.01.2010, 15:07 **[ТС]**

Вдохновленный вашим примером с двумя формами, я вчера до 4.00 утра пытался применить вашу идею с классом-пустышкой Dummy, но так желаемого и не получилось. Уже сделал так, что программа компилируется и запускается без ошибок, но когда нажимаю [Button1], выдает ошибку при вызове переменной TStringList в Unit2 из Unit1.

Видимо, класс TForm имеет какое-то уникальное свойство, которого не хватает классу Dummy...

@Зоти Сергей · 23.01.2010, 17:22

Скиньте Ваш пример, пожалуйста, потому, как тот пример, что Вы послали - это тот же пример, что я Вам послал в моем втором сообщении. Видимо, вы не сохранив проект и при открытом билдере заархивировали содержимое папки Вашего проекта и выложили его.

@Зоти Сергей · 23.01.2010, 17:52

Вот еще один пример.
В классе TDummy объявленны 2 ф-ции и один указатель на TStringList.
Одна ф-ция устанавливает указатель, другая возвращает его.
Указатель на класс TDummy * Dummy объявлен сейчас глобально. Память под него выделяется при создании главной формы. И сразу же используется ф-ция установки указателя на TStringList из главной формы. После этого можно использовать ф-цию получения указателя на TStringList из TDummy в любом модуле. Пример этого использования происходит при нажатии на кнопку в Form1 и Form2.

Если у Вас что-либо не будет получаться, пишите, или еще лучше, если есть скайп дайте свое скайп имя я свяжусь.

@valeriy_zf · 23.01.2010, 20:09 **[ТС]**

Вот теперь все получилось на 100%

Проблема довольно очевидна: Проэкт состоял из Form1, Unit1. По мере роста программного кода появилась потребность в создании еще одного модуля Unit2, а заодно и перетащить все используемые в Unit1 переменные, классы, массивы и т.д. Так вот проблема возникла только с указателями типа TStringList.

Из полученного результата видно, что такие переменные переносятся в другой модуль довольно таки не тривиальным способом (требуется новый класс, множество дополнительных указателей и т.д). В отличие от обычных переменных и массивов, где просто достаточно добавить ключевое слово extern.

Но, как говориться, опыт - великое дело!

В приложении я сделал то, что хотел с самого начала.
Еще раз спасибо!

--------------------------
P.S. Был бы благодарен, если бы вы черкнули пару строк своих мыслей в след. теме:
Создание базы данных (ошибка)

@valeriy_zf · 23.01.2010, 21:59 **[ТС]**

Кстати, как временное решение, сохранил переменную типа TStringList в виде массива AnsiString, который, в свою очередь, благополучно переехал во 2-й модуль..

@valeriy_zf 5 / 5 / 0 Регистрация: 22.01.2010 Сообщений: 48
	23.01.2010, 21:59 [ТС]	12
	Кстати, как временное решение, сохранил переменную типа TStringList в виде массива AnsiString, который, в свою очередь, благополучно переехал во 2-й модуль.. 0

@valeriy_zf 5 / 5 / 0 Регистрация: 22.01.2010 Сообщений: 48
	23.01.2010, 04:10 [ТС]	3
	Сергей, спасибо огромное! Так попробовал - отлично работает. Вот только у меня нет 2-й формы. Есть одна форма и два модуля. А так не получается настроить, т.к. во 2-м модуле нет объявления класса Form2... Подскажите пожалуйста, в идеале такой же примерчик, только с Form1, Unit1 и Unit2. Еще раз спасибо! Добавлено через 18 минут Короче говоря, у меня изначально была одна форма и модуль. Здесь я работал с переменной типа TStringList. Затем, чтобы не нагромождать один юнит процедурами, я создал Unit2. Но без еще одной формы. Всеми переменные благополучно туда переехали. А вот со TStringList как-то не выходить. Вот и ваш пример я тоже кручу. С двумя формами все отлично работает. Когда одну форму удаляешь - не выходит... 0

@valeriy_zf 5 / 5 / 0 Регистрация: 22.01.2010 Сообщений: 48
	23.01.2010, 04:36 [ТС]	6
	Ой, спасибо огромное, все отлично работает. Сейчас буду пробовать все сделать по аналогии в своей программе.. Еще раз спасибо! 0

@valeriy_zf 5 / 5 / 0 Регистрация: 22.01.2010 Сообщений: 48
	23.01.2010, 15:07 [ТС]	8
	Вдохновленный вашим примером с двумя формами, я вчера до 4.00 утра пытался применить вашу идею с классом-пустышкой Dummy, но так желаемого и не получилось. Уже сделал так, что программа компилируется и запускается без ошибок, но когда нажимаю [Button1], выдает ошибку при вызове переменной TStringList в Unit2 из Unit1. Видимо, класс TForm имеет какое-то уникальное свойство, которого не хватает классу Dummy... 0

@Зоти Сергей 230 / 227 / 65 Регистрация: 18.12.2009 Сообщений: 316
	23.01.2010, 17:22	9
	Скиньте Ваш пример, пожалуйста, потому, как тот пример, что Вы послали - это тот же пример, что я Вам послал в моем втором сообщении. Видимо, вы не сохранив проект и при открытом билдере заархивировали содержимое папки Вашего проекта и выложили его. 1