VPF::TStrings без ссылки - Форум программистов

Budy

Дата 31.1.2005, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

:Приветствую
В начале программы есть форма, на ней Memo1. В Memo1 редактируется, редактируется....
И в определенный момент при нажатии кнопки Memo1.Lines присваивается некой подобной переменной.
Но после продолжительного редактирования Memo1, это переменная тоже изменяется. А хочу чтоб не изменялась, подскажите как быть

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Dynamic

Дата 31.1.2005, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

А как присваивается?
Если так

Код


List := Memo.Lines

, то немудрено, что оба изменяются. Если хочешь сохранить копию текста, делай так

Код


List.Assign(Memo.Lines)
// или
List.Text := Memo.Lines.Text

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

Akella

Дата 31.1.2005, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Budy @ 31.1.2005, 15:55)

Но после продолжительного редактирования Memo1, это переменная тоже изменяется

Каким образом smile

Пользователь изменяет?

Это сообщение отредактировал(а) dsergey - 31.1.2005, 16:28

Budy

Дата 31.1.2005, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Dynamic, счас так делаю (нужно сохранить начальное значение):

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  HelpStrings:=TStrings.Create;
  HelpStrings.Assign(Memo1.Lines);
  Memo1.Lines.Clear;
end;

И вылазит ошибка в OnCreate.

dsergey, да пользователь

Это сообщение отредактировал(а) Budy - 31.1.2005, 19:43

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

<Spawn>

Дата 31.1.2005, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Budy TStrings - это абсрактный класс - его экземпляр не может быть создан, используй наследника, например TStringList.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Alex

Дата 31.1.2005, 23:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  HelpStrings:=TStringList.Create;
  HelpStrings.Assign(Memo1.Lines);
  Memo1.Lines.Clear;
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Akella

Дата 1.2.2005, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Budy @ 31.1.2005, 15:55)

это переменная тоже изменяется. А хочу чтоб не изменялась,

Так убери (закоментируй) код измененияч переменной.
Мне кажется, что ты неправильно задал вопрос, а мож я его неправильно понял? smile

Budy

Дата 1.2.2005, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

<Spawn>, попробую

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »