Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
1

Не работает на разных компьютрах

26.11.2013, 16:34. Показов 586. Ответов 13
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Добрый день. На моем компьютере запускается, проверил на других, запускается не на всех.
Операционка на всех одна и в чем причина не понимаю.
ОС- Windows 7

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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Button3: TButton;
    Edit3: TEdit;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label17: TLabel;
    Edit4: TEdit;
    Label18: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    N5: TMenuItem;
    NH31: TMenuItem;
    SiH2Cl21: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure NH31Click(Sender: TObject);
    procedure SiH2Cl21Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Z,M,PGP,B,CCT,DP,VG,massa,VSB,mz,VSBPGP,mzVSBPGP,DCCT,HSB,HSBp:Double;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N3Click(Sender: TObject);   
begin
label3.Caption:='Произведен выбор газа - Водород';
label19.Caption:='Произведен выбор газа - Водород';
Z:=1;              
M:=2;              
PGP:=(M)/(22.413*(1+(0.00367*20)));    
B:=0.5;                           
CCT:=100/(1+(4.84*B));             
label4.Caption:='Предварительные расчеты произведены - Водород';
label20.Caption:='Предварительные расчеты произведены - Водород';
Button1.Enabled:= True;                
Button3.Enabled:= True;                 
end;
 
procedure TForm1.N4Click(Sender: TObject);   
begin
label3.Caption:='Произведен выбор газа - Моносилан';
label19.Caption:='Произведен выбор газа - Моносилан';
Z:=0.5;                 
M:=232.118;                 
PGP:=(M)/(22.413*(1+(0.00367*20)));   
B:=1;                           
CCT:=100/(1+(4.84*B));      
label4.Caption:='Предварительные расчеты произведены - Моносилан';
label20.Caption:='Предварительные расчеты произведены - Моносилан';
Button1.Enabled:= True;               
Button3.Enabled:= True;               
end;
procedure TForm1.NH31Click(Sender: TObject);  
begin
label3.Caption:='Произведен выбор газа - Аммиаку';
label19.Caption:='Произведен выбор газа - Аммиаку';
Z:=0.5;                  
M:=17.031;                     
PGP:=(M)/(22.413*(1+(0.00367*20)));   
B:=0.75;                         
CCT:=100/(1+(4.84*B));          
label4.Caption:='Предварительные расчеты произведены - Аммиак';
label20.Caption:='Предварительные расчеты произведены - Аммиак';
Button1.Enabled:= True;                  
Button3.Enabled:= True;            
end;
 
procedure TForm1.SiH2Cl21Click(Sender: TObject);    
begin
label3.Caption:='Произведен выбор газа - Дихлорсилан';
label19.Caption:='Произведен выбор газа - Дихлорсилан';
Z:=0.5;                     
M:=101.008;                    
PGP:=(M)/(22.413*(1+(0.00367*20)));   
B:=0;                           
CCT:=100/(1+(4.84*B));     
label4.Caption:='Предварительные расчеты произведены - Дихлорсилан';
label20.Caption:='Предварительные расчеты произведены - Дихлорсилан';
Button1.Enabled:= True;           
Button3.Enabled:= True;                  
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
VG:=Strtofloat(Edit2.Text);
VSB:=Strtofloat(Edit1.Text);
massa:=PGP*VG; 
mz:=massa*z;                                
VSBPGP:=VSB*PGP;                     
mzVSBPGP:=mz/VSBPGP;                   
DCCT:=100/CCT;                  
DP:=(799*mzVSBPGP*DCCT)/3;
label6.Caption:=FloattoStrF(DP, ffFixed,4,4)+' кПа';
label9.Caption:=FloattoStr(massa); 
label10.Caption:=FloattoStr(PGP); 
label12.Caption:=FloattoStr(CCT);  
label14.Caption:=FloattoStr(DCCT); 
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
HSB:=Strtofloat(Edit3.Text);         
HSBp:=HSB*1.2;                         
label31.Caption:=FloattoStr(HSBp)+' л/минуту';  
VG:=(HSBp*5)/1000;                           
label35.Caption:=FloattoStr(VG)+' m3'; 
VSB:=Strtofloat(Edit4.Text)*0.8;
label18.Caption:=FloattoStr(VSB)+' m3'; 
massa:=PGP*VG;
mz:=massa*z;                  
VSBPGP:=VSB*PGP;                         
mzVSBPGP:=mz/VSBPGP;                 
DCCT:=100/CCT;                    
DP:=(799*mzVSBPGP*DCCT)/3; 
label16.Caption:=FloattoStrF(DP, ffFixed,4,4)+' кПа';
label22.Caption:=FloattoStr(massa); 
label24.Caption:=FloattoStr(PGP);   
label26.Caption:=FloattoStr(CCT);   
label28.Caption:=FloattoStr(DCCT);  
end;
end.
Добавлено через 8 минут
Написана в Delphi 7
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 26.11.2013, 16:34
Ответы с готовыми решениями:

Не работает поиск разных значений на разных листах
Доброго времени суток, дан код, он из учебника, по поиску разных значений на разных листах, но он...

Консольный чат работает на одном компьютере, на разных - не работает. WinSock
Доброго времени суток. Собственно вот как дело обстоит: Если запустить на одном компьютере клиент и...

AcroPdf не работает на разных версиях
Друзья, подскажите можно ли чем-то тут помочь. Имеется программа, в которой есть компонент...

Приложение по разному работает на разных пк
Всем доброго времени суток, нужна ваша помощь. Написал программу в которой одна из функций по...

13
Эксперт Pascal/Delphi
4912 / 2781 / 853
Регистрация: 04.10.2012
Сообщений: 10,121
26.11.2013, 16:53 2
vajtek, скиньте исполняемый файл программы
0
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
26.11.2013, 17:02  [ТС] 3
Цитата Сообщение от droider Посмотреть сообщение
vajtek, скиньте исполняемый файл программы
Не нашел как прикрепить файл, загрузил на файлобменник.
http://rusfolder.com/38936841
0
Эксперт Pascal/Delphi
4912 / 2781 / 853
Регистрация: 04.10.2012
Сообщений: 10,121
26.11.2013, 17:09 4
vajtek, окно программы постоянно свернуто, но она запускается. Проветьте опции минимизации окна в проекте
0
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
26.11.2013, 17:13  [ТС] 5
Цитата Сообщение от droider Посмотреть сообщение
vajtek, окно программы постоянно свернуто, но она запускается. Проветьте опции минимизации окна в проекте
А где это можно проверить?
0
Эксперт Pascal/Delphi
4912 / 2781 / 853
Регистрация: 04.10.2012
Сообщений: 10,121
26.11.2013, 17:27 6
Без проекта, трудно сказать, что Вы там делали. Запустил ее на Windows 8 и окно программы свернуто.
0
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
27.11.2013, 09:41  [ТС] 7
Цитата Сообщение от droider Посмотреть сообщение
Без проекта, трудно сказать, что Вы там делали. Запустил ее на Windows 8 и окно программы свернуто.
Загрузил весь проект.
http://rusfolder.com/38937209

Добавлено через 16 часов 12 минут
droider, если выставить разворачивание на весь экран, то открывается на всех компьютерах, но при попытке выставить первоначальный размер, возвращается в свернутый вид и не разворачивается.
0
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
28.11.2013, 22:43 8
а как от этого избавиться нормально?
0
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
29.11.2013, 08:25  [ТС] 9
Ни у кого не появилось решить эту проблему?
0
Модератор
3490 / 2613 / 741
Регистрация: 19.09.2012
Сообщений: 7,974
29.11.2013, 08:36 10
Св-во Left у формы выстави в 0 (или другое приемлемое значение).
1
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
29.11.2013, 08:45  [ТС] 11
Цитата Сообщение от FIL Посмотреть сообщение
Св-во Left у формы выстави в 0 (или другое приемлемое значение).
Да помогло, не думал, что второй экран даст такой эффект.
0
462 / 265 / 55
Регистрация: 22.08.2010
Сообщений: 1,204
Записей в блоге: 4
29.11.2013, 08:59 12
Цитата Сообщение от vajtek Посмотреть сообщение
Ни у кого не появилось решить эту проблему?
А че ты в свойствах формы запретил отображение?

Добавлено через 12 минут
Вот твои ошибки:
Position установлено в poDesigned, поэтому работает свойство Left, если поставить poDefault, то форма не смещается за экран. Не пойму только, как ты видел форму в среде Делфи при таком смещении?
1
0 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 7
29.11.2013, 09:04  [ТС] 13
Цитата Сообщение от esculap_ra Посмотреть сообщение
А че ты в свойствах формы запретил отображение?

Добавлено через 12 минут
Вот твои ошибки:
Position установлено в poDesigned, поэтому работает свойство Left, если поставить poDefault, то форма не смещается за экран. Не пойму только, как ты видел форму в среде Делфи при таком смещении?

У меня два монитора.
0
462 / 265 / 55
Регистрация: 22.08.2010
Сообщений: 1,204
Записей в блоге: 4
29.11.2013, 09:09 14
Понятно теперь, почему форма улетала вправо.
0
29.11.2013, 09:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 29.11.2013, 09:09
Помогаю со студенческими работами здесь

Не работает сортировка разных массивов
Надо отсортировать массивы, по убыванию возраста. Я их отсортировал, но почему они не...

Не работает плагин .so из-за разных библиотек?
Скомпилировал плагин на Ubuntu (ubuntu-16.04.1-desktop-i386), судя по терминалу компиляция прошла...

QTcpServer не работает на разных компьютерах
Доброго времени суток. Сейчас пытаюсь вникнуть в сетевое программирование на Qt. Для тренировки...

Сервис не работает на разных компьютерах
есть дуплексный клиент-сервер. типа чатик. проблема в том, что на localhost всё прекрасно работает,...


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru