Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
ALABAMA
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 72
#1

Видает ошибку исправте. - Delphi

19.09.2010, 22:02. Просмотров 997. Ответов 21
Метки нет (Все метки)

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
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label7: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var a,b,h:string;
    q,q1:real;
begin if (edit1.Text:='') or (edit2.Text:='') or (edit3.Text:='') then Showmessage('error');-тут видает ошибку!!!!!
end;
begin
if (combobox1.Text='мм') then
  begin
 q:=strtofloat(edit1.Text);
 q1:=q/1000;
 a:=floattostr(q1);
 end
else
if (combobox1.Text='см') then
  begin
 q:=strtofloat(edit1.Text);
 q1:=q/100;
 a:=floattostr(q1);
 end
else
if (combobox1.Text='м') then
 begin
 a:= edit1.Text;
 end
else
if (combobox1.Text='дц') then
 begin
 q:=strtofloat(edit1.Text);
 q1:=q*100;
 a:=floattostr(q1);
 end
else
 if (combobox1.Text='км') then
 begin
 q:=strtofloat(edit1.Text);
 q1:=q*1000;
 a:=floattostr(q1);
 end ;
 
 if (combobox2.Text='мм') then
  begin
 q:=strtofloat(edit2.Text);
 q1:=q/1000;
 h:=floattostr(q1);
 end
else
if (combobox2.Text='см') then
  begin
 q:=strtofloat(edit2.Text);
 q1:=q/100;
 h:=floattostr(q1);
 end
else
if (combobox2.Text='м') then
 begin
 h:= edit2.Text;
 end
else
if (combobox2.Text='дц') then
 begin
 q:=strtofloat(edit2.Text);
 q1:=q*100;
 h:=floattostr(q1);
 end
else
 if (combobox2.Text='км') then
 begin
 q:=strtofloat(edit2.Text);
 q1:=q*1000;
 h:=floattostr(q1);
 end ;
 
  if (combobox3.Text='мм') then
  begin
 q:=strtofloat(edit3.Text);
 q1:=q/1000;
 b:=floattostr(q1);
 end
else
if (combobox3.Text='см') then
  begin
 q:=strtofloat(edit3.Text);
 q1:=q/100;
 b:=floattostr(q1);
 end
else
if (combobox3.Text='м') then
 begin
 b:= edit3.Text;
 end
else
if (combobox3.Text='дц') then
 begin
 q:=strtofloat(edit3.Text);
 q1:=q*10;
 b:=floattostr(q1);
 end
else
 if (combobox3.Text='км') then
 begin
 q:=strtofloat(edit3.Text);
 q1:=q*1000;
 b:=floattostr(q1);
 end ;
 
 
 label7.Caption:='Площа = '+floattostr(0.5*strtofloat(h)*(strtofloat(a)+strtofloat(b)))+'(м.кв.)';
 
end;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
form1.Close;
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2010, 22:02
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Видает ошибку исправте. (Delphi):

Видает ошибку, что делать? Incompatible types: 'Integer' and 'TStrings' - Delphi
procedure TForm1.Button6Click(Sender: TObject); var i: integer; begin i:= Form1.RadioGroup1.Items; Showmessage(IntToStr(i)); ...

Ребятки исправте ошибку) - Delphi
Program Matriza; Uses Mod_var,crt; begin Bim:=max(Bim); mary2(Bim); end. Unit Mod_Var; Interface type massiv=array of...

должно видавать сообщение с последним элементом Радиогруппи, а видает количество елементом, что делать? - Delphi
procedure TForm1.Button6Click(Sender: TObject); var i: integer; begin i:= Form1.RadioGroup1.Items.Count-1; ...

Даны целые числа K и N (N > 0). Вывести N раз число K. Исправте ошибку - Delphi
Помогите исправить ошибку, у меня программа запускается, но завесает... Даны целые числа K и N (N > 0). Вывести N раз число K. unit...

Исправте код, игра змейка - Delphi
Помогити исправить код, программа останавливается в начале программы.

пишу программу где то ошибка исправте - Delphi
y=sin^3(x^2+a)6^2-(x/b)^1/2 a=1.1 b=0.004 x=0.2 procedure TForm1.Button1Click(Sender: TObject); var y,x,a,b,n,m,c,d:integer; ...

21
Андрей Утюмов
...
28 / 29 / 1
Регистрация: 18.08.2010
Сообщений: 309
20.09.2010, 00:04 #16
Вот, теперь другое дело
0
ALABAMA
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 72
20.09.2010, 00:06  [ТС] #17
на перед вам огромное спасибо если у вас получиться исправить!!
0
Андрей Утюмов
...
28 / 29 / 1
Регистрация: 18.08.2010
Сообщений: 309
20.09.2010, 00:07 #18
Смогу

Добавлено через 55 секунд
А вам как сообщение, ввиде диалогового окна?
0
Башир
207 / 207 / 1
Регистрация: 18.05.2010
Сообщений: 826
20.09.2010, 00:07 #19
ALABAMA, У вас сплошные ошибки, синтаксические. 1 iama, написал про условный оператор if. 2 У вас идет сразу end и закрывает саму процедуру, и все что после end это тоже ошибки, и как сказал Андрей Утюмов, в вашем архиве 5555.rar отсутствует файл unit1.pas, да и еще и самой формы тоже нету.
0
ALABAMA
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 72
20.09.2010, 00:12  [ТС] #20
ну типа того откроеться окно с надписью ерор нажимаем окей и оно пропадает вот и все

Добавлено через 37 секунд
скинете на почту хорошо Kozak32145@i.ua
0
Андрей Утюмов
...
28 / 29 / 1
Регистрация: 18.08.2010
Сообщений: 309
20.09.2010, 02:02 #21
понятно, ну а почему Ерроп, может например "Вы не ввели данные." или вам надо так, как вы говорите

Добавлено через 22 секунды
на почту скину

Добавлено через 1 час 9 минут
Цитата Сообщение от ALABAMA Посмотреть сообщение
if (combobox1.Text='мм') then
begin
q:=strtofloat(edit1.Text);
q1:=q/1000;
a:=floattostr(q1);
end
else
if (combobox1.Text='см') then
begin
q:=strtofloat(edit1.Text);
q1:=q/100;
a:=floattostr(q1);
end
else
if (combobox1.Text='м') then
begin
a:= edit1.Text;
end
else
if (combobox1.Text='дц') then
begin
q:=strtofloat(edit1.Text);
q1:=q*100;
a:=floattostr(q1);
end
else
if (combobox1.Text='км') then
begin
q:=strtofloat(edit1.Text);
q1:=q*1000;
a:=floattostr(q1);
end ;
if (combobox2.Text='мм') then
begin
q:=strtofloat(edit2.Text);
q1:=q/1000;
h:=floattostr(q1);
end
else
if (combobox2.Text='см') then
begin
q:=strtofloat(edit2.Text);
q1:=q/100;
h:=floattostr(q1);
end
else
if (combobox2.Text='м') then
begin
h:= edit2.Text;
end
else
if (combobox2.Text='дц') then
begin
q:=strtofloat(edit2.Text);
q1:=q*100;
h:=floattostr(q1);
end
else
if (combobox2.Text='км') then
begin
q:=strtofloat(edit2.Text);
q1:=q*1000;
h:=floattostr(q1);
end ;
if (combobox3.Text='мм') then
begin
q:=strtofloat(edit3.Text);
q1:=q/1000;
b:=floattostr(q1);
end
else
if (combobox3.Text='см') then
begin
q:=strtofloat(edit3.Text);
q1:=q/100;
b:=floattostr(q1);
end
else
if (combobox3.Text='м') then
begin
b:= edit3.Text;
end
else
if (combobox3.Text='дц') then
begin
q:=strtofloat(edit3.Text);
q1:=q*10;
b:=floattostr(q1);
end
else
if (combobox3.Text='км') then
begin
q:=strtofloat(edit3.Text);
q1:=q*1000;
b:=floattostr(q1);
end ;
Почему вы не применили вместо больших этих инструкций инструкцию case?

Добавлено через 37 минут
ну вообще то правильно, что не case - сложно селектор придумать для него
1
Андрей Утюмов
...
28 / 29 / 1
Регистрация: 18.08.2010
Сообщений: 309
20.09.2010, 18:32 #22
ALABAMA, вам пришла программа, если не пришла, то вот
0
20.09.2010, 18:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2010, 18:32
Привет! Вот еще темы с ответами:

видает ошибку - C (СИ)
#include <conio.h> #include <stdio.h> #include <stdlib.h> #include <conio.h> typedef struct gol{ int kod; double cina; }; ...

Видает ошибку! - C++ Builder
Видает ошибку. Скажите что не так. Вот код:// --------------------------------------------------------------------------- #include...

Простая программа, но видает ошибку - Python
#!/usr/bin/env python3 def reverse_and_check(text): zap_zn=(' ',',','.','!','?') nov_str= for buk in text: ...

Builder 6 при компиляции видает ошибку (Линк ошибка) - C++ Builder
Вопрос касательно настроек. Работаю в Builder 6. С нуля все нормально компилируется, работают проекты. Но когда хочу что-то изменить в...


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

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

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