С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
glebkosk
1 / 1 / 0
Регистрация: 16.10.2012
Сообщений: 15
1

Пустая форма после запуска

30.11.2014, 15:25. Просмотров 637. Ответов 2
Метки нет (Все метки)

После запуска программы появляется абсолютно пустая форма.
В чем проблема? Код очень простой (хоть из-за моей неопытности и выглядит большим), вряд ли сильно напортачил. Скриншоты формы до и после запуска, а так же сам код прилагаю.

Кликните здесь для просмотра всего текста
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    D1Edit: TEdit;
    CEdit: TEdit;
    LaEdit: TEdit;
    aEdit: TEdit;
    Image1: TImage;
    Image2: TImage;
    Label5: TLabel;
    ResdEdit: TEdit;
    LEdit: TEdit;
    PEdit: TEdit;
    ResGEdit: TEdit;
    dGButton: TButton;
    ListBox1: TListBox;
    Edit1: TEdit;
    SLabel: TLabel;
    procedure dGButtonClick(Sender: TObject);
    procedure ResdEditChange(Sender: TObject);
    procedure ResGEditChange(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.dGButtonClick(Sender: TObject);
begin
procedure TForm1.Button1Click(Sender: TObject);
  var
    C,Lambda,D1,P,L,alpha,d2,d,G,S:real;
begin
  C:=StrToFloat(CEdit.Text);
  Lambda:=StrToFloat(LaEdit.Text);
  D1:=StrToFloat(D1Edit.Text);
  P:=StrToFloat(PEdit.Text);
  L:=StrToFloat(LEdit.Text);
  alpha:=StrToFloat(aEdit.Text);
  S:=StrToFloat(SEdit.Text);
  d1:=(exp((0.115*alpha*L)*log(D1)))*(exp(ln((Lambda*Lambda/(C1*P*S))/4)));
  G:=230*exp(ln(d1)*3/2)+P/2+30;
  ResGEdit.Text:=FloatToStr(G);
  ResdEdit.Text:=FloatToStr(d);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
    S:real;
begin
Begin;
If (ListBox1.Selected[0]) then
ShowMessage (‘ГЌГҐ âûáðГ*Г*Г* ñòðîêГ*’);
end;
Begin;
If (ListBox1.Selected[1]) then
S:=4;
end;
Begin;
If (ListBox1.Selected[2]) then
S:=80;
end;
Begin;
If (ListBox1.Selected[3]) then
S:=5;
end;
Begin;
If (ListBox1.Selected[4]) then
S:=13;
end;
Begin;
If (ListBox1.Selected[5]) then
S:=320;
end;
Begin;
If (ListBox1.Selected[6]) then
S:=18;
end;
Begin;
If (ListBox1.Selected[7]) then
S:=20;
end;
Begin;
If (ListBox1.Selected[8]) then
S:=600;
end;
Begin;
If (ListBox1.Selected[9]) then
S:=45;
end;
Begin;
If (ListBox1.Selected[10]) then
S:=10000;
end;
Begin;
If (ListBox1.Selected[11]) then
S:=3500;
end;
Begin;
If (ListBox1.Selected[12]) then
S:=1000;
end;
Begin;
If (ListBox1.Selected[13]) then
S:=7000;
end;
Begin;
If (ListBox1.Selected[14]) then
S:=1500;
end;
Begin;
If (ListBox1.Selected[15]) then
S:=175;
end;
Begin;
If (ListBox1.Selected[16]) then
S:=40;
end;
Begin;
If (ListBox1.Selected[17]) then
S:=10000;
end;
SEdit.Text:=FloatToStr(S);
end;
 
end.
0
Миниатюры
Пустая форма после запуска   Пустая форма после запуска  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2014, 15:25
Ответы с готовыми решениями:

Delphi при запуске сохраненных файлов после компиляции пустая форма
Сохранял форму dpr pas чтот все равно при компиляции пустая форма вылазиет

пустая форма весит 6 мегобайт
delphi XE2 пустая форма весит 6 метров. что делать? и ещё 1 вопрос- при...

Висит процесс после запуска в XE 5
В Дэлфи 7 программа закрывается нормально. Этот же проект запущенный из-под RAD...

Не заполняется таблица после запуска программы
Здравствуйте. У меня после запуска программы должны заполняться две таблицы...

Подмена сайта, открывающегося после запуска
Доброго времени суток, форумчане. Имеется программа написанная из-под Delphi 7,...

2
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
30.11.2014, 16:32 2
Проект в архиве выложи.
0
droider
Universal
Эксперт Pascal/Delphi
4405 / 2451 / 765
Регистрация: 04.10.2012
Сообщений: 8,911
30.11.2014, 16:51 3
Цитата Сообщение от glebkosk Посмотреть сообщение
Код очень простой (хоть из-за моей неопытности и выглядит большим)
можно слегка упростить
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
procedure TForm1.ListBox1Click(Sender: TObject);
var
s:Integer;
begin
Case ListBox1.ItemIndex of
1: s :=4;
2: s :=80;
3: s :=5;
4: s :=13;
5: s :=320;
6: s :=18;
7: s :=20;
8: s :=600;
9: s :=45;
10, 17: s :=10000;
11: s :=3500;
12: s :=1000;
13: s :=7000;
14: s :=1500;
15: s :=175;
16: s :=40;
end;
sEdit.Text :=IntToStr(s);
end;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2014, 16:51

Программа после запуска сразу же закрывается

После запуска программы не могу заменить число в edit
Пытаюсь сделать форму с полями для создания игральных кубиков с заданными...

Непонятные символы в строке поиска после запуска проекта
Delphi XE8, компонент ehDBGrid. В конструкторе всё нормально: После...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru