|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.02.2008, 20:43 | #1 |
Форумчанин
Регистрация: 13.01.2008
Сообщений: 140
|
Как добавить в Tmemo?
Вопрос такой: Как в TMemo добавить текст, но не просто добавить (Lines.Add('xxx')), а добавить в определенную строку (например [3]).
Буду премного благодарен! |
24.02.2008, 21:04 | #2 |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
Код:
ICQ - 446037211
|
24.02.2008, 21:25 | #3 |
Форумчанин
Регистрация: 13.01.2008
Сообщений: 140
|
Такая фишка не работает:
Код:
|
24.02.2008, 21:56 | #4 |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
если у тебя в memo меньше строк чем индекс, то он не вставит. Он вставляет только а место существующей строки, а существующую сдвигает вниз!
ICQ - 446037211
|
25.02.2008, 23:20 | #5 |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
По-моему можно проще: Memo1.Lines[i] := 'ваша строка'; где i - номер вашей строки.
|
26.02.2008, 00:16 | #6 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Ничего лучше пока нет, но и это пойдёт :
Код:
|
26.02.2008, 08:21 | #7 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Все гораздо проще. Вот процедура которая вставляет текст из Эдит1 в любую позицию по номеру из Эдит2. Причем если позиция будет больше количества строк, вставляемая строка все равно станет на свое место, но перед ней будет несколько пустых строк Код:
I'm learning to live...
|
|
26.02.2008, 09:58 | #8 |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
тогда так можно:
procedure TForm1.Button1Click(Sender: TObject); var k, i: integer; for k:= 0 to i do begin Memo1.Lines.Add(' '); end; Memo1.Lines[i]:= 'строка'; i - номер вашей строки |
26.02.2008, 21:22 | #9 |
Форумчанин
Регистрация: 13.01.2008
Сообщений: 140
|
Спасибо всем, но я сделал так же как написал -=<[Evklidd]>=-
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TMemo | Valera | Помощь студентам | 14 | 04.08.2008 10:56 |
TMemo | terminadoor | Помощь студентам | 10 | 23.07.2008 19:41 |
Фон в TMemo | BlackOmen | Общие вопросы Delphi | 3 | 18.06.2008 22:34 |
Tmemo | BlackOmen | Общие вопросы Delphi | 2 | 16.03.2008 21:03 |
Transparent в TMemo | Roof | Помощь студентам | 2 | 01.08.2007 20:48 |