Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.08.2008, 14:51
FreeUser FreeUser вне форума
Начинающий
 
Регистрация: 13.08.2008
Сообщения: 119
Репутация: 10
По умолчанию Компанент Memo

в memo1 помещен текст, как добавить текст до уже помещенного текста?
Ответить с цитированием
  #2  
Старый 16.08.2008, 14:53
Аватар для }{ОТТ@БЫЧ
}{ОТТ@БЫЧ }{ОТТ@БЫЧ вне форума
Прохожий
 
Регистрация: 07.05.2008
Сообщения: 41
Репутация: 10
По умолчанию

Memo1.Lines.Add('Текст или переменная');
Ответить с цитированием
  #3  
Старый 16.08.2008, 14:55
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Свойство Lines (TStringList)
Уже была почти такая же тема
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #4  
Старый 16.08.2008, 15:14
FreeUser FreeUser вне форума
Начинающий
 
Регистрация: 13.08.2008
Сообщения: 119
Репутация: 10
По умолчанию

Ребят. Вы не вникли в проблему. В Memo1 текст уже сидит. А add.lines добавит текст в конец. Т.е. допишет. А мне надо перед текстом.
Ответить с цитированием
  #5  
Старый 16.08.2008, 15:38
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Я уже говорил, прочитай про TStringList, там есть метод Insert
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #6  
Старый 16.08.2008, 15:39
FreeUser FreeUser вне форума
Начинающий
 
Регистрация: 13.08.2008
Сообщения: 119
Репутация: 10
По умолчанию

Кстати в ' ' пишут только текст, а не переменные. переменные без ' '
Ответить с цитированием
  #7  
Старый 16.08.2008, 15:40
FreeUser FreeUser вне форума
Начинающий
 
Регистрация: 13.08.2008
Сообщения: 119
Репутация: 10
По умолчанию

А без Tstring нельзя? Можно это сделать средствами Мемо?
Ответить с цитированием
  #8  
Старый 16.08.2008, 15:43
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Вообщето свойство Lines у компонента Memo - это TStringList
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #9  
Старый 16.08.2008, 16:10
Аватар для }{ОТТ@БЫЧ
}{ОТТ@БЫЧ }{ОТТ@БЫЧ вне форума
Прохожий
 
Регистрация: 07.05.2008
Сообщения: 41
Репутация: 10
По умолчанию

FreeUser, я знаю. Совет, если чего-то не знаешь поройся в исходниках. Их в нете полно и весят мало.
Ответить с цитированием
  #10  
Старый 16.08.2008, 16:13
FreeUser FreeUser вне форума
Начинающий
 
Регистрация: 13.08.2008
Сообщения: 119
Репутация: 10
По умолчанию

А можно написать СЮДА код решения моей задачи? Просто вставить код.
Ответить с цитированием
  #11  
Старый 16.08.2008, 16:18
Аватар для }{ОТТ@БЫЧ
}{ОТТ@БЫЧ }{ОТТ@БЫЧ вне форума
Прохожий
 
Регистрация: 07.05.2008
Сообщения: 41
Репутация: 10
Радость

Код:
procedure TForm1.Button1Click(Sender: TObject); //Твоя процедура
begin
Memo1.Lines.Insert(0, Edit1.Text); //Вместо Edit1.Text ставь переменную, или что тебе надо
end;
Ответить с цитированием
  #12  
Старый 16.08.2008, 16:19
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Блин, ну это вообще... Мне кажется я достаточно написал в предпоследнем сообщении... По названиям параметров процедуры легко догадаться что к чему...
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #13  
Старый 16.08.2008, 18:04
FreeUser FreeUser вне форума
Начинающий
 
Регистрация: 13.08.2008
Сообщения: 119
Репутация: 10
По умолчанию

Спасибо огромное! The Shadow, не возмущайся. Я только учусь. Я экономист по образованию )
Ответить с цитированием
  #14  
Старый 13.09.2008, 20:31
Qwed86 Qwed86 вне форума
Новичок
 
Регистрация: 12.09.2008
Сообщения: 66
Репутация: 10
По умолчанию

Вопрос по теме: Там методом insert можно вставить вначало 1 строку как я понял, а что если надо вставить вначало несколько строк забитых в TStringList? Вставить нужно тоже в мемо. Спасибо.
Ответить с цитированием
  #15  
Старый 13.09.2008, 21:43
Drozh Drozh вне форума
Активный
 
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
По умолчанию

Код:
AList - твой TStringList

 for i := 0 to AList.Count-1 do
   Memo.Lines.Insert(i, AList.Strings[i]);
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:39.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025