[SOLVED] Concatenating text in a TMemo object

[Davo]

Is it possible to add text to an existing line in a TMemo object? I have tried a number of ways without success. The following code extract illustrates the point.

Code: Pascal  [Select][+][-]

1. [procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   memo1.lines.Clear;
4.   memo1.lines.Add('This program shows that none of the following methods concatenates '
5.     + 'supplied text to text already displayed in a TMemo object :');
6.   memo1.lines.Add('memo.lines.Add, memo.lines.Append, memo.lines.AddText, memo.Append');
7.   memo1.lines.Add('  ');
8.   memo1.lines.Add('Added first string using lines.Add');
9.   memo1.lines.Append('Appended a string using lines.Append');
10.   memo1.lines.Append('Appended another string using lines.Append');
11.   memo1.lines.AddText('Added text using lines.AddText');
12.   memo1.lines.AddText('Added more text using lines.AddText');
13.   memo1.lines.Append('Appended yet another string using lines.Append');
14.   memo1.Append('Appended text at memo level using memo.Append');
15.   memo1.Append('Appended more text at memo level using memo.Append');
16. end; ]
17.  

[jamie]

If you understand you correctly..

Code: Pascal  [Select][+][-]

1.  
2. Memo.Lines[LineIndex] := Memo.Lines[LineIndex]+'Some added Text';
3.  

You simply read the line out that you want, play with it like any other text concatening operating and put it back.

But then again, maybe I didn't understand you.

Jamie

[Davo]

Thank you Jamie. Yes I believe that you did fully understand my question. I will try your solution and report back.

[Davo]

Yes Jamie that works very well. Thank you. Your help is much appreciated.

[n7800]

Let me repeat the reminder from the message: https://forum.lazarus.freepascal.org/index.php/topic,74324.msg585717.html#msg585717

Code: Pascal  [Select][+][-]

1. Memo.Lines[LineIndex] := Memo.Lines[LineIndex]+'Some added Text';

This insertion can insert text inside a "original" line and also add an extra line break.