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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2015, 20:03   #1
manchester_alan
Форумчанин
 
Регистрация: 07.01.2015
Сообщений: 231
По умолчанию Как перенести консольную программу на форму?

Вот у меня есть программа одна, где все расчитывается в консоли.. А ее надо визуализировать... И вот как мне перенести ее на форму, чтобы вводить и выводить данные надо было на "edit","memo" , ну а все решалось нажатием на "Button" и т.д... Саму форму я могу сделать, но вот как связать все эти компоненты с кодом консольной программы...
manchester_alan вне форума Ответить с цитированием
Старый 09.04.2015, 20:19   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Сажаете на форму Button. В обработчике procedure TForm1.Button1Click все и делаете.
Если у вас что-то вводилось и выводилось в консоли, например
Код:
var x,y:Double;
begin
 ReadLn(x); 
// ...
 WriteLn(y);
.. то теперь будет так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var x,y:Double;
begin
 x:=StrToFloatDef(Edit1.Text,0);
// ...
 Edit2.Text:=FloatToStr(y);
// или так :
 Memo1.Lines.Add('Результаты расчета : ');
 Memo1.Lines.Add('y = '+FloatToStr(y));
end;
type_Oleg вне форума Ответить с цитированием
Старый 09.04.2015, 20:36   #3
manchester_alan
Форумчанин
 
Регистрация: 07.01.2015
Сообщений: 231
По умолчанию

хорошо, спасибо)) сейчас посмотрим)
manchester_alan вне форума Ответить с цитированием
Старый 09.04.2015, 21:12   #4
manchester_alan
Форумчанин
 
Регистрация: 07.01.2015
Сообщений: 231
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Сажаете на форму Button. В обработчике procedure TForm1.Button1Click все и делаете.
Если у вас что-то вводилось и выводилось в консоли, например
Код:
var x,y:Double;
begin
 ReadLn(x); 
// ...
 WriteLn(y);
.. то теперь будет так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var x,y:Double;
begin
 x:=StrToFloatDef(Edit1.Text,0);
// ...
 Edit2.Text:=FloatToStr(y);
// или так :
 Memo1.Lines.Add('Результаты расчета : ');
 Memo1.Lines.Add('y = '+FloatToStr(y));
end;
а если у меня не простое решение, там у меня через конструкторы, классы вводятся, выводятся данные в консоли..
manchester_alan вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать консольную программу krohta Помощь студентам 1 05.06.2013 21:41
Создать консольную программу mafi0zy1 Общие вопросы Delphi 4 17.10.2012 21:16
Как значки рабочего стола перенести на форму?? Dron712 Общие вопросы Delphi 0 16.01.2011 14:28
Адаптировать консольную программу под форму free6878 Помощь студентам 0 01.01.2011 14:29
ввод в консольную программу. terminadoor Помощь студентам 6 22.07.2008 12:17