Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2012, 12:16   #1
jazzzeek
Новичок
Джуниор
 
Аватар для jazzzeek
 
Регистрация: 16.03.2012
Сообщений: 7
Смущение label.caption в memo

вопрос заключается в том, чтона форме есть лэйблы, которые необходимо поместить в мемо в несколько строк.

или проще говоря, подскажите где ошибка

memo1.Lines[0]:=label1.caption+' '+label2.caption+' '+label3.caption;
memo1.Lines[1]:=label4.caption;
jazzzeek вне форума Ответить с цитированием
Старый 18.03.2012, 12:19   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Код:
memo1.Lines.strings[0]:=label1.caption+' '+label2.caption+' '+label3.caption;
memo1.Lines.strings[1]:=label4.caption;
Кольша вне форума Ответить с цитированием
Старый 18.03.2012, 12:20   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Если строк с индексами 0 и 1 еще нет в Memo, то и будет ошибка.
Используйте memo1.Lines.Add

Кольша, memo1.Lines.strings[0]:= и memo1.Lines[0]:= это одно и тоже
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 18.03.2012 в 12:23.
Аватар вне форума Ответить с цитированием
Старый 18.03.2012, 12:25   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

неверно. если мемо будет пустое, получите банальный Access Violation.
тогда уже лучше так:
Код:
if memo1.Lines.Count > 0 then
  memo1.Lines[0]:=label1.caption+' '+label2.caption+' '+label3.caption
else
  memo1.Lines.Append(label1.caption+' '+label2.caption+' '+label3.caption);
if memo1.Lines.Count > 1 then
   memo1.Lines[1]:=label4.caption
else
   memo1.Lines.Append(label4.caption);
p.s. ну вот, пока писал пример кода, Аватар опередил...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.03.2012, 12:28   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Кольша
Код:
memo1.Lines.strings[0]
Свойство strings является свойством по умолчанию, посему запись
Код:
memo1.Lines[0]
эквивалентна
Код:
memo1.Lines.strings[0]
А вот Аватар прав. Можно еще по крестьянски:
Код:
memo1.Lines.Text:=label1.caption+' '+label2.caption+' '+label3.caption+
#13#10+label4.caption;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.03.2012, 12:32   #6
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Sorry был не вкурсе!
Кольша вне форума Ответить с цитированием
Старый 18.03.2012, 13:33   #7
jazzzeek
Новичок
Джуниор
 
Аватар для jazzzeek
 
Регистрация: 16.03.2012
Сообщений: 7
По умолчанию

всем спасибо, работает, радует))

и еще вопрос не по теме. как в будущем вставить делфи-код в тему так же красиво и аккуратно?)
jazzzeek вне форума Ответить с цитированием
Старый 18.03.2012, 13:37   #8
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Вutton c решеткой
_SERGEYX_ вне форума Ответить с цитированием
Старый 18.03.2012, 13:41   #9
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

[ CODE ][ /CODE ] без пробелов или нажмите решетку #
Кольша вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выполнения кода из label.Caption Giku Помощь студентам 7 04.11.2011 13:10
Менять Caption у Label при соединении с РОР L11L Помощь студентам 1 21.03.2011 15:33
Многострочный Caption в Label Talemir Компоненты Delphi 11 18.09.2009 01:13
Можно ли добавить ентер в Label? Или запретить копировать текст из memo? TwiX Общие вопросы Delphi 5 07.08.2009 14:00
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23