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

@ALABAMA · Регистрация: 25.05.2010

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

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.

@Андрей Утюмов · 20.09.2010, 02:02

понятно, ну а почему Ерроп, может например "Вы не ввели данные." или вам надо так, как вы говорите

Добавлено через 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 - сложно селектор придумать для него

@Андрей Утюмов · 20.09.2010, 18:32

ALABAMA, вам пришла программа, если не пришла, то вот

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ По ссылке 403. Не очень информативно такую ссылку постить. Запись от Usaga размещена Сегодня в 06:46 . . .
сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .