Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Memo1.Lines.Add ...

Автор: Y}|{ 4.9.2004, 11:03

Мне надо, чтобы на объекте Memo1 после выполнения цикла высветились числа от 1 до 9 В СТРОЧКУ, для этого я использую клманду Memo1.Lines.Add (), но числа печатаются в столбик. Помогите.Заранее спасибо!

Автор: Chyslyvchyk 4.9.2004, 11:14

Код

Memo1.Lines.Add ('1'+'2'+'3'+'4'+'5'+'6'+'7'+'8'+'9')

Результат: 123456789
2)

Код

Memo1.Lines.Add ('1 '+'2 '+'3 '+'4 '+'5 '+'6 '+'7 '+'8 '+'9')

Результат: 1 2 3 4 5 6 7 8 9
3)

Код


var a,b,c,d,e,f,g,h,i:integer;
... 
a:=1;
b:=2;
c:=3;
d:=4;
e:=5;
f:=6;
g:=7;
h:=8;
i:=9;
Memo1.Lines.Add (IntToStr(a)+IntToStr(b)+IntToStr(c)+IntToStr(d)+IntToStr(e)+IntToStr(f)+IntToStr(g)+IntToStr(h)+IntToStr(i))

Результат: 123456789
4)

Код


var a,b,c,d,e,f,g,h,i:integer;
... 
a:=1;
b:=2;
c:=3;
...
i:=9;
Memo1.Lines.Add (IntToStr(a)+' '+IntToStr(b)+' '+IntToStr(c)+...+' '+IntToStr(i))

+' '+ ---> должен быть пробел, то есть не просто "кавычка-кавычка", а "кавычка-пробел-кавычка"
Результат: 1 2 3 4 5 6 7 8 9

Автор: Pakshin A. S. 4.9.2004, 11:52

Ещё способ, гарантирующий, что в Memo, кроме этой стоки ничего не будет:

Код


Memo1.Lines.Text:='1 2 3 4 5 6 7 8 9';

Автор: DonPager 4.9.2004, 15:27

Chyslyvchyk ,Pakshin A. S.
человек же сказал про ЦИКЛ

Код

var S:string;i:Byte;
....
s := ''
for i := 1 to 9 do S:= S+IntToStr(i)+' ';
memo1.lines.add(S);

Автор: -=::BlackCat::=- 4.9.2004, 15:44

DonPager
i on skozal chto ne w stolbik nado potomu:

Код


var S:string;i:Byte;
....
s := ''
for i := 1 to 9 do S:= S+IntToStr(i)+' ';
memo1.lines.Text(S);

Автор: DonPager 4.9.2004, 16:10

-=::BlackCat::=- что касается наших примеров, то они идентичны вот еслибы

Код

var i:Byte;
....

for i := 1 to 9 do
   memo1.lines[0].Text := memo1.lines[0].Text+ IntToStr(i)+' ';

Автор: Pakshin A. S. 4.9.2004, 16:34

Код


const 
col=9;
var
 i:integer;
...
for i:=1 to Col-1 do
 Memo1.Lines.Text:=Memo1.Lines.Text + IntToStr(i) + ' ';
Memo1.Lines.Text:=Memo1.Lines.Text + IntToStr(col);