Effective code writing

[tomino]

memo1.lines.append('text1');
memo1.lines.append('text2');
memo1.lines.append('text3');
memo1.lines.append('text4');
memo1.lines.append('text5');
you can see in my opinion uneffective programming how could i write this efectliveli ? i mean can i write something like this ?

for memo1.lines.append do
begin
('text1');
('text2');
('text3');
('text4');
('text5');
end;

or how could i do it in inteligent way ?

[Blaazen]

Hi,

Code: [Select]

with Memo1.Lines do
  begin
    Append('rtzui');
    Append('ertgh');
  end;or

Code: [Select]

const cText: array[0..3] of string = ('wer', 'wert', 'edf', 'wesd');
....
var i: Integer;
....
for i:=0 to high(cText) do
  Memo1.Lines.Append(cText[i]);

[dpremus]

you can write code like this:

const LF = #10;

memo1.lines.add('abc' + LF + 'bce' + LF  + 'dde');     

[engkin]

Two things worth mentioning:
1-If you already know the text you want to add to Memo1 during program design time, then you could use Object Inspector and add these lines using Strings Editor Dialog.

2-If the number of lines (words in your example) is big, you should consider storing them in a text file and using:

Code: [Select]

  Memo1.Lines.LoadFromFile('path-to-your-txt-file');


[Mando]

Hello:


Try this

Code: [Select]

  Memo1.Lines.commaText:='text1,text2,text3,text4';


And If you want to preserve the old content:

Code: [Select]

  Memo1.Lines.commaText:=Memo1.lines.commaText+',text1,text2,text3,text4';




regards