Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с Мемо! в Lines не сохраняется информация [D7, WinXP]

Воланд © (2004-06-13 10:03:00)
Имеется переменная X типа TStrings;
В событие OnExit Memo я написал:
X:=Memo1.Lines;
Но даже когда мемо не пустой, X получается пустым, почему?
Что можно сделать?

TUser (2004-06-13 11:31:00) [1]
Скорее всего cur не правильно вычисялется.

Gero (2004-06-13 11:28:00) [2]
Ну попробуй так:

Procedure TForm1.Memo1Exit(Sender: TObject); begin Q[ListBox1.ItemIndex + 1].MyMessage.Assign(Memo1.Lines); end; procedure TForm1.ListBox1Click(Sender: TObject); begin Memo1.Lines.Assign(Q[ListBox1.ItemIndex + 1].MyMessage); end;

Если не работает, то ошибка не здесь, и что-то не так с Q.

default (2004-06-13 11:26:00) [3]
прикольно...ошибка где-то в программе, а тут без кода что-то пытается объяснять...

Воланд (2004-06-13 11:21:00) [4]
To Gero:
Нет :)

В событие OnClick ListBox1 я написал

..
k:=ListBox1.ItemIndex+1;
Memo1.Lines.Assign(Q[k].mymessage);
..

Но в мемо ничего не появляется!

Gero (2004-06-13 11:18:00) [5]

> Я узнал, что он пуст потому, что после того как,
> я через некоторое время кликаю на нем

На чем ты кликаешь? На TStringList??

Воланд (2004-06-13 11:09:00) [6]
to Apocalepse: это не текстовик, это сложная программа, позволяющая составлять и затем обрабатывать психологические тесты. Также она позволяет их после этого проверять и выводить
на печать полный отчет по результату сдачи теста.

Воланд (2004-06-13 11:07:00) [7]
Я узнал, что он пуст потому, что после того как, я через некоторое время кликаю на нем, текст ассоциированный с ним оказывается пустым. Если я использую не lines а text, то
наоборот, текст присваивается, но не только этому пользователю
, но и всем остальным в списке.

TUser (2004-06-13 11:03:00) [8]
Так вот как ты узнал, чо он пустой? Если по Ctrl-F7 посмотрел на Memo1.Lines, то - см выше.

Apocalepse (2004-06-13 11:01:00) [9]
А что то собственно будет? Текстовик очередной? Я вот тоже пишу...

Воланд (2004-06-13 10:59:00) [10]
Имеется определенный массив объектов, с каждым из которых
ассоциирован некий текст, объекты находятся в Listboxе
Когда пользователь кликает на листбокс Memo должна присвоить себе
текст этого объекта, когда же текст меняется, при выходе из мемо
она присваивает новый текст тому объекту, который был выделен.
Но почему то, когда я присваиваю текст объекту, а потом выхожу
объекту присваивается пустой текст.

Gero (2004-06-13 10:55:00) [11]
Как ты узнаешь, что он пустой?

Воланд (2004-06-13 10:51:00) [12]
Собственно приводить нечего,
Procedure TForm1.Memo1Exit(Sender:TObject);
Begin
Q[Cur].mymessage.Assign(Memo1.Lines);
End;

Где Q[Cur].mymessage это или TStrings или TStringList.
И так, и так пробовал.

TUser (2004-06-13 10:47:00) [13]
3. И что ты пишешь в Ev/Mod. Если Memo1.Lines, то будет (), а надо Memo1.Lines.Text

Gero (2004-06-13 10:41:00) [14]

> Воланд © (13.06.04 10:39)

1. В моем нике только первая буква большая.
2. Приведи свой код.

Воланд (2004-06-13 10:39:00) [15]
GERO: Это не помогает, так, как проблема не в Tstrings, а в Мемо,
Когда я делаю evaluate/modify Memo.lines он показывает, что он пуст, даже если в мемо что-то написано!

Gero (2004-06-13 10:12:00) [16]
var X: TStringList;
...
X.Assign(Memo1.Lines);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »