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

← →
Воланд © (2004-06-13 10:03) [0]

Имеется переменная X типа TStrings;
В событие OnExit Memo я написал:
X:=Memo1.Lines;
Но даже когда мемо не пустой, X получается пустым, почему?
Что можно сделать?

← →
Gero © (2004-06-13 10:12) [1]

var X: TStringList;
...
X.Assign(Memo1.Lines);

← →
Воланд © (2004-06-13 10:39) [2]

GERO: Это не помогает, так, как проблема не в Tstrings, а в Мемо,
Когда я делаю evaluate/modify Memo.lines он показывает, что он пуст, даже если в мемо что-то написано!

← →
Gero © (2004-06-13 10:41) [3]

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

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

← →
TUser © (2004-06-13 10:47) [4]

3. И что ты пишешь в Ev/Mod. Если Memo1.Lines, то будет (), а надо Memo1.Lines.Text

← →
Воланд © (2004-06-13 10:51) [5]

Собственно приводить нечего,
Procedure TForm1.Memo1Exit(Sender:TObject);
Begin
Q[Cur].mymessage.Assign(Memo1.Lines);
End;

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

← →
Gero © (2004-06-13 10:55) [6]

Как ты узнаешь, что он пустой?

← →
Воланд © (2004-06-13 10:59) [7]

Имеется определенный массив объектов, с каждым из которых
ассоциирован некий текст, объекты находятся в Listboxе
Когда пользователь кликает на листбокс Memo должна присвоить себе
текст этого объекта, когда же текст меняется, при выходе из мемо
она присваивает новый текст тому объекту, который был выделен.
Но почему то, когда я присваиваю текст объекту, а потом выхожу
объекту присваивается пустой текст.

← →
Apocalepse © (2004-06-13 11:01) [8]

А что то собственно будет? Текстовик очередной? Я вот тоже пишу...

← →
TUser © (2004-06-13 11:03) [9]

Так вот как ты узнал, чо он пустой? Если по Ctrl-F7 посмотрел на Memo1.Lines, то - см выше.

← →
Воланд © (2004-06-13 11:07) [10]

Я узнал, что он пуст потому, что после того как, я через некоторое время кликаю на нем, текст ассоциированный с ним оказывается пустым. Если я использую не lines а text, то
наоборот, текст присваивается, но не только этому пользователю
, но и всем остальным в списке.

← →
Воланд © (2004-06-13 11:09) [11]

to Apocalepse: это не текстовик, это сложная программа, позволяющая составлять и затем обрабатывать психологические тесты. Также она позволяет их после этого проверять и выводить
на печать полный отчет по результату сдачи теста.

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

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

To Gero:
Нет :)

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

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

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

прикольно...ошибка где-то в программе, а тут без кода что-то пытается объяснять...

Ну попробуй так:

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.

Скорее всего cur не правильно вычисялется.

Проблема с Мемо! в Lines не сохраняется информация Найти похожие ветки