Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

Проблема с Мемо! в 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: это не текстовик, это сложная программа, позволяющая составлять и затем обрабатывать психологические тесты. Также она позволяет их после этого проверять и выводить
на печать полный отчет по результату сдачи теста.


 
Gero ©   (2004-06-13 11:18) [12]


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

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


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

To Gero:
Нет :)

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

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

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


 
default ©   (2004-06-13 11:26) [14]

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


 
Gero ©   (2004-06-13 11:28) [15]

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

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.


 
TUser ©   (2004-06-13 11:31) [16]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.032 c
6-1083673896
mocm
2004-05-04 16:31
2004.06.27
TWebBrowser s encoding


3-1086253917
galexis
2004-06-03 13:11
2004.06.27
Медленно работает поиск по полю VARCHAR


14-1086837005
Pro
2004-06-10 07:10
2004.06.27
Delphi


14-1086895803
Knight
2004-06-10 23:30
2004.06.27
Люди есть ли где-то статистика по пользователям ICQ?


1-1086844690
EXE
2004-06-10 09:18
2004.06.27
Мастера и помошники, Есть ли в природе компонент для изменения ра





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский