Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Memo1.Lines.Add ... 
:(
    Опции темы
Y}|{
Дата 4.9.2004, 11:03 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Опытный
**


Профиль
Группа: Участник
Сообщений: 446
Регистрация: 9.5.2004

Репутация: 1
Всего: 5
1)
Код
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

Это сообщение отредактировал(а) Chyslyvchyk - 4.9.2004, 11:20


--------------------
Простота - сестра таланта!
PM MAIL   Вверх
Pakshin A. S.
Дата 4.9.2004, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Ещё способ, гарантирующий, что в Memo, кроме этой стоки ничего не будет:
Код

Memo1.Lines.Text:='1 2 3 4 5 6 7 8 9';
PM   Вверх
DonPager
Дата 4.9.2004, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
Chyslyvchyk ,Pakshin A. S.
человек же сказал про ЦИКЛ smile.gif
Код
var S:string;i:Byte;
....
s := ''
for i := 1 to 9 do S:= S+IntToStr(i)+' ';
memo1.lines.add(S);




--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
-=::BlackCat::=-
Дата 4.9.2004, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1456
Регистрация: 12.7.2003
Где: растёт анаша?

Репутация: 1
Всего: 6
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);



--------------------
-=::BlackCat::=-user posted image

такой дуратцкий аватар потому как мой 100х100, а такие подгрузить нелзя, движок форума чо сам не может его переделать??  гррр, админ, форум косячит  
PM MAIL ICQ   Вверх
DonPager
Дата 4.9.2004, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
-=::BlackCat::=- что касается наших примеров, то они идентичны вот еслибы
Код
var i:Byte;
....

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

smile.gif


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
Pakshin A. S.
Дата 4.9.2004, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Код

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);
smile.gif
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0651 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.