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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.06.2009, 22:33   #1
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
Восклицание Перенос на другую строчку

Люди добрые подскажите такую вещь: как заставить программу при добавлении строк в поле Memo после определенной записи делать перенос (типа нажатие клавиши Enter) вот мой код:

Код:
procedure TForm1.N8Click(Sender: TObject);
begin
 sMemo1.Text:='Сегодня Ваш доход составляет: ' + sDecimalSpinEdit1.Text +#13+
              'Ваши расходы на сегодня: ' + sDecimalSpinEdit2.Text +#13+
              'Остаток: ' + FloatToStr(StrToFloat(sDecimalSpinEdit1.Text) - StrToFloat(sDecimalSpinEdit2.Text));
end;
Нужно что бы три записи (доход, расход и остаток), были занесены в поле Memo каждая с новой строчки.
Заранее огромное спасибо!!!
Мой скромненький сайт
Vladya вне форума
Старый 30.06.2009, 22:47   #2
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Код:
sMemo1.Lines.Add('Бла бла бла');
Вавел из ГМТУ вне форума
Старый 30.06.2009, 22:52   #3
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
 sMemo1.Text:='Сегодня Ваш доход составляет: ' + sDecimalSpinEdit1.Text +#13#10+
              'Ваши расходы на сегодня: ' + sDecimalSpinEdit2.Text +#13#10+
              'Остаток: ' + FloatToStr(StrToFloat(sDecimalSpinEdit1.Text) - StrToFloat(sDecimalSpinEdit2.Text));
или
Код:
sMemo1.Clear
sMemo1.Items.Add('Сегодня Ваш доход составляет: ' +  sDecimalSpinEdit1.Text );
sMemo1.Items.Add('Ваши расходы на сегодня: ' + sDecimalSpinEdit2.Text )
sMemo1.Items.Add('Остаток: ' + FloatToStr(StrToFloat(sDecimalSpinEdit1.Text) - StrToFloat(sDecimalSpinEdit2.Text)));
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 30.06.2009, 23:20   #4
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
По умолчанию

Вавел из ГМТУ спасибо за попытку помочь, но если писать так как Вы предложили то пишет несовместимость типов Tstring и String, я уже так пробовал.

Пепел Феникса спасибо, первый пример помог, я просто пробовал писать +#10#13+ вместо +#13#10+ из-за этого у меня ничего не получалось

Тему можно закрывать.
Мой скромненький сайт
Vladya вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перенос столбцов из одной закладки в другую wildvad Microsoft Office Excel 19 22.05.2009 11:35
перенос на другую ПК проги sergey2501 БД в Delphi 1 26.10.2008 20:07
Перенос данных из одной книги со многих листов в другую gavrylyuk Microsoft Office Excel 34 20.07.2008 21:39
Перенос данных в из 1 таб. в другую... ivp88 БД в Delphi 12 11.01.2008 15:45
Перенос EXE на другую машину tihon_65 Общие вопросы Delphi 12 21.02.2007 15:00