Создание интерфейса, имея код Pascal

@Сашич · Регистрация: 04.12.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте! Написал код в Паскале, но хочется красивости. Делфи для этого подходит? Сам паскалевский код не надо переписывать (коды аналогичны)?
Как создать такой интерфейс: по центру вставить рисунок jpeg или png, или в каком формате удобнее. Далее два окна, куда вводятся значения, окно с результатом и кнопка выполнить.
Делфи вижу впервые.
Вот часть программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program opros;
uses crt;
var Q1,Q2,Q3,CB1,CB2,n,m,i,k,p,j,s1,s2,s3,f,g,h:byte;
    x,y,z:set of byte;
    U1,U2,U3,Y1,Y2:integer;
begin
clrscr;
writeln('Y1=');
readln(Y1);
writeln('Y2=');
readln(Y2);
if Y1>=Y2 or Y1>=380 or Y2>=380 then writeln('YSTAVKI NEKORREKTNI')
else

и т.д.
Как создать окна, куда будет вводиться значения Y1 Y2? Как в программе присвоить, что одно окно У1, а второе У2?
Как создать кнопку Выполнить?

@Сашич · 17.01.2014, 07:29 **[ТС]**

Как вставить рисунок разобрался. А вот с текстбоксами нет. Как присвоить У1 текстбокс 1?

17.01.2014, 12:11

Сообщение от Сашич

А вот с текстбоксами нет

TEdit на закладке Standard.

@pHOMM · 17.01.2014, 16:21

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procdedure Button1Click(Sender: TObject);
var Q1,Q2,Q3,CB1,CB2,n,m,i,k,p,j,s1,s2,s3,f,g,h:byte;
    x,y,z:set of byte;
    U1,U2,U3,Y1,Y2:integer;
begin
EditResult.Text := '';
// если в эдитах нецифровые данные - присвоим 0, без такого кода нецифровые данные дадут ошибку
Y1 := StrToIntDef(EditY1.Text, 0); 
Y2 := StrToIntDef(EditY2.Text, 0);
// Ваш код некорректен - нет необходимых скобок у проверок
if (Y1>=Y2) or (Y1>=380) or (Y2>=380) then ShowMessage('YSTAVKI NEKORREKTNI') 
else
...
end; // конец процедуры батонклик

В дизайнере формы кликнуть по кнопке дважды и автоматически созданный Дельфи обработчик заменить на этот. Также надо сделать соответствие названий Ваших эдитов коду и прописать весь Ваш остальной код в подобном же ключе. Возможно, у Вас не хватает выхода из процедуры при ошибке, которую Вы сопровождаете сообщением, но это уже к логике задачи относится, а если будете добавлять выход (из процедуры - Exit; ) - не забудьте обрамить в begin-end весь блок кода после then и до else.

@Сашич · 18.01.2014, 05:39 **[ТС]**

Создал интерфейс в форме. Программу переписываю с турбопаскаля. Правильно ли я это делаю? Уставки 1 и 2 вводятся вручную (цифры). Значения U1 U2 U3 задаются рандомно. Правильно ли я присваиваю текстбоксами значения для вывода? Правильно ли присваиваются текстбоксам вывод слов?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var Q1,Q2,Q3,CB1,CB2,n,m,i,k,p,j,s1,s2,s3,f,g,h:byte;
    x,y,z:set of byte;
    U1,U2,U3,Y1,Y2:integer;
begin
EditResult.Text := '';
Y1 := StrToInt(textBox1.Text); 
Y2 := StrToInt(textBox2.Text);
if (Y1>=Y2) or (Y1>=380) or (Y2>=380) then ShowMessage('YSTAVKI NEKORREKTNI') 
else
begin
randomize;
x:=[];
for i:=1 to 5 do
 begin
  repeat
   n:=random(5)+1;
  until not (n in x);
  x:=x+[n];
  case n of
  1:Q1:=random(2);
  2:Q2:=random(2);
  3:Q3:=random(2);
  4:CB1:=random(2);
  5:CB2:=random(2);
  end;
 end;
begin
 
randomize;
y:=[];
for j:=1 to 3 do
 begin
  repeat
   k:=random(3)+1;
  until not (k in y);
  y:=y+[k];
  case k of
  1:s1:=random(2);
  2:s2:=random(2);
  3:s3:=random(2);
  end;
 end;
begin
 
randomize;
z:=[];
for h:=1 to 3 do
 begin
  repeat
   f:=random(3)+1;
  until not (f in z);
  z:=z+[f];
  case f of
  1:U1:=random(381);
  2:U2:=random(381);
  3:U3:=random(381);
  end;
 end;
 U1:=strtoint(textBox15.Text);
  U2:=strtoint(textBox16.Text);
   U3:=strtoint(textBox17.Text);
 if Q1=0 then textBox3.Text:=('otkluchen')
        else textBox3.Text:=('vkluchen');
if Q2=0 then textBox4.Text:=('otkluchen')
        else textBox4.Text:=('vkluchen');
if Q3=0 then textBox5.Text:=('otkluchen')
        else textBox5.Text:=('vkluchen');
if CB1=0 then textBox6.Text:=('otkluchen')
        else textBox6.Text:=('vkluchen');
if CB2=0 then textBox7.Text:=('otkluchen')
        else textBox7.Text:=('vkluchen');
if s1=0 then textBox18.Text:=('ispraven')
        else textBox18.Text:=('neispraven');
if s2=0 then textBox19.Text:=('ispraven')
        else textBox19.Text:=('neispraven');
if s3=0 then textBox20.Text:=('ispraven')
        else textBox20.Text:=('neispraven');
 
 
end;
 
end.

@volvo · 18.01.2014, 12:21

Используешь PascalABC.NET - зачем темы создаешь в разделе Дельфи? Перенесено...

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Сашич 0 / 0 / 0 Регистрация: 04.12.2013 Сообщений: 21
	17.01.2014, 07:29 [ТС]
	Как вставить рисунок разобрался. А вот с текстбоксами нет. Как присвоить У1 текстбокс 1? 0

@volvo Супер-модератор 33402 / 21512 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	18.01.2014, 12:21
	Используешь PascalABC.NET - зачем темы создаешь в разделе Дельфи? Перенесено... 0