![]() |
|
|
#1
|
|||
|
|||
|
в memo1 помещен текст, как добавить текст до уже помещенного текста?
|
|
#2
|
||||
|
||||
|
Memo1.Lines.Add('Текст или переменная');
|
|
#3
|
||||
|
||||
|
Свойство Lines (TStringList)
Уже была почти такая же тема |
|
#4
|
|||
|
|||
|
Ребят. Вы не вникли в проблему. В Memo1 текст уже сидит. А add.lines добавит текст в конец. Т.е. допишет. А мне надо перед текстом.
|
|
#5
|
||||
|
||||
|
Я уже говорил, прочитай про TStringList, там есть метод Insert
|
|
#6
|
|||
|
|||
|
Кстати в ' ' пишут только текст, а не переменные. переменные без ' '
|
|
#7
|
|||
|
|||
|
А без Tstring нельзя? Можно это сделать средствами Мемо?
|
|
#8
|
||||
|
||||
|
Вообщето свойство Lines у компонента Memo - это TStringList
|
|
#9
|
||||
|
||||
|
FreeUser, я знаю. Совет, если чего-то не знаешь поройся в исходниках. Их в нете полно и весят мало.
|
|
#10
|
|||
|
|||
|
А можно написать СЮДА код решения моей задачи? Просто вставить код.
|
|
#11
|
||||
|
||||
|
Код:
procedure TForm1.Button1Click(Sender: TObject); //Твоя процедура begin Memo1.Lines.Insert(0, Edit1.Text); //Вместо Edit1.Text ставь переменную, или что тебе надо end; |
|
#12
|
||||
|
||||
|
Блин, ну это вообще... Мне кажется я достаточно написал в предпоследнем сообщении... По названиям параметров процедуры легко догадаться что к чему...
|
|
#13
|
|||
|
|||
|
Спасибо огромное! The Shadow, не возмущайся. Я только учусь. Я экономист по образованию )
|
|
#14
|
|||
|
|||
|
Вопрос по теме: Там методом insert можно вставить вначало 1 строку как я понял, а что если надо вставить вначало несколько строк забитых в TStringList? Вставить нужно тоже в мемо. Спасибо.
|
|
#15
|
|||
|
|||
|
Код:
AList - твой TStringList for i := 0 to AList.Count-1 do Memo.Lines.Insert(i, AList.Strings[i]); |