Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.08.2009, 20:50   #1
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию Переход на новую строку в Memo

Народ подскажите, как в мemo перейти на новую строку, если предыдущая ещё не заполнена полностью? Было кажется свойство такое, но не помню, хоть убейте(((
Лонли-Локли вне форума Ответить с цитированием
Старый 26.08.2009, 21:03   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Перейти на новую строку когда? При ручном вводе или программном?
Не это?
Код:
Memo1.Text := Memo1.Text + 'djafljkdfsldkfjalks';
Memo1.Text := Memo1.Text + #13#10;  // на новую строку
Memo1.Text := Memo1.Text + 'eradfasdfsaf';
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 26.08.2009, 21:06   #3
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию

Вотк код:

begin
Money:=StrToFloat(Edit1.Text);
Namber.Lines.Text:=IntToStr(i);
Summa.Lines.Text:=Edit1.Text + ' р.';
If Money<2000 then Kod.Lines.Text:=IntToStr(i+1000)
else if (Money>2000)and (Money<5000) then Kod.Lines.Text:=IntToStr(i+1010)
else if (Money>5000)then Kod.Lines.Text:=IntToStr(i+2020);
end;

что сюда надо прилепить, что быкурсор после програмного ввода курсор перешёл на следующую строку?
Лонли-Локли вне форума Ответить с цитированием
Старый 26.08.2009, 21:09   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Так что-ли?
Код:
If Money<2000 then Kod.Lines.Text:=IntToStr(i+1000)+#13#10
else if (Money>2000)and (Money<5000) then Kod.Lines.Text:=IntToStr(i+1010)+#13#10
else if (Money>5000)then Kod.Lines.Text:=IntToStr(i+2020)+#13#10;
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 26.08.2009, 21:09   #5
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию

Сори, всё, сделал, спасибо за помощь!
Лонли-Локли вне форума Ответить с цитированием
Старый 26.08.2009, 22:02   #6
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию

А теперь ещё один тупой вопрос, а как продолжить ввод? Не получается, как заполнить вторую строку?((
Лонли-Локли вне форума Ответить с цитированием
Старый 26.08.2009, 22:06   #7
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
Kod.Lines.Text := Kod.Lines.Text + <всякий текст>
Вообще, если вы работаете именно с отдельными строками, то можно добавлять их с помощью метода Add:

Код:
Kod.Lines.Add('одна строка');
Kod.Lines.Add('еще строка');
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 26.08.2009, 22:11   #8
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию

То есть, дополнить код вот так:

begin
w:=1;
For i:=0 to w do
begin
Money:=StrToFloat(Edit1.Text);
Namber.Lines.Text:=Kod.Lines.Text + (IntToStr(i)+ #13#10);
Summa.Lines.Text:=Kod.Lines.Text + (Edit1.Text + ' р.'+ #13#10);
If Money<2000 then Kod.Lines.Text:=Kod.Lines.Text +(IntToStr(i+1000)+ #13#10)
else if (Money>2000)and (Money<5000) then Kod.Lines.Text:=Kod.Lines.Text +(IntToStr(i+1010)+ #13#10)
else if (Money>5000)then Kod.Lines.Text:=Kod.Lines.Text +(IntToStr(i+2020)+ #13#10);
end;
end;
Лонли-Локли вне форума Ответить с цитированием
Старый 26.08.2009, 22:12   #9
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию

Namber.Lines.Text:=Namber.Lines.Tex t + (IntToStr(i)+ #13#10);
Summa.Lines.Text:=Summa.Lines.Text + (Edit1.Text + ' р.'+ #13#10);
Лонли-Локли вне форума Ответить с цитированием
Старый 26.08.2009, 22:17   #10
Лонли-Локли
Пользователь
 
Регистрация: 26.08.2009
Сообщений: 16
По умолчанию

begin
For i:=0 to w do
begin
Money:=StrToFloat(Edit1.Text);
Namber.Lines.Text:=Namber.Lines.Tex t + (IntToStr(i)+ #13#10);
Summa.Lines.Text:=Summa.Lines.Text + (Edit1.Text + ' р.'+ #13#10);
If Money<2000 then Kod.Lines.Text:=Kod.Lines.Text +(IntToStr(i+1000)+ #13#10)
else if (Money>2000)and (Money<5000) then Kod.Lines.Text:=Kod.Lines.Text +(IntToStr(i+1010)+ #13#10)
else if (Money>5000)then Kod.Lines.Text:=Kod.Lines.Text +(IntToStr(i+2020)+ #13#10);
end;
end;
Лонли-Локли вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переход на новую строку delphin100 Общие вопросы Delphi 9 31.05.2012 04:52
Переход на новую строку в Memo1 )Игнат( Общие вопросы Delphi 2 07.07.2009 20:31
Переход на новую строку код13 Ecosasha Общие вопросы C/C++ 12 11.06.2009 18:31
Перевод на новую строку после нужного слова Лёшка228 Общие вопросы Delphi 2 09.06.2009 20:32
Работа с файлом(переход на новую строку) Rifler Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 06.12.2008 23:51