Об игре
Новости
Войти
Регистрация
Рейтинг
Форум
6:02
1537
 online
Требуется авторизация
Вы не авторизованы
   Форумы-->Форум для внеигровых тем-->

АвторПомощь по Дельфи
Mangecu
 1  2011-12-04 12:33:07
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=strtofloat(edit4.Text);

If a>c and b>d then Label5.caption:='Áåðåì íà ðàáîòó' else
If a<c and b>d then Label5.caption:='&#205;&#229; &#225;&#229;&#240;&#229;&#236; &#237;&#224; &#240;&#224;&#225;&#238;&#242;&#243;' else
If a>c and b<d then Label5.caption:='&#205;&#229; &#225;&#229;&#240;&#229;&#236; &#237;&#224; &#240;&#224;&#225;&#238;&#242;&#243;' else
If a<c and b<d then Label5.caption:='&#205;&#229; &#225;&#229;&#240;&#229;&#236; &#237;&#224; &#240;&#224;&#225;&#238;&#242;&#243;' else


end;

end.

Пишет [Error] Unit1.pas(45): Operator not applicable to this operand type

Что за беда?
BLOOD-UFA
 2  2011-12-04 13:50:20
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=strtofloat(edit4.Text);
На форме ячейки для ввода данных а, в,с, strtofloat преобразование сисволов типа строки в тип данных float, в не целый числовой тип данных
Асанион
 3  2011-12-04 13:51:25
Эти ссылки не работают, помогите человеку!
BLOOD-UFA
 4  2011-12-04 13:53:57
Если выполняется a>c and b>d это условие то на форме будет выведена вот лта хрень - &#193;&#229;&#240;&#229;&#236; &#237;&#224; &#240;&#224;&#225;&#238;&#242;&#243
Если выполняется a<c and b>d это условие то на форме будет выведена другая хрень -&#205;&#229; &#225;&#229;&#240;&#229;&#236; &#237;&#224; &#240;&#224;&#225;&#238;&#242;&#243;
и так далее
BLOOD-UFA
 5  2011-12-04 13:55:59
а блин ты об ошибке [Error] Unit1.pas(45): Operator not applicable to this operand type, библиотеки какието не добавлены
KOWTCHEG
 6  2011-12-04 14:08:04
Пишет [Error] Unit1.pas(45): Operator not applicable to this operand type
Какая строка подсвечивается-то?
KOWTCHEG
 7  2011-12-04 14:11:11
If a>c and b>d
Если ошибка в этой строке, нужно писать так:
If (a<c) and (b>d)
Mangecu
 8  2011-12-04 15:11:27
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=strtofloat(edit4.Text);

If (a>=c) and (b>=d) then Label5.caption:='Берем на работу' else
If (a<=c) and (b>=d) then Label5.caption:='не Берем на работу' else
If (a>=c) and (b<=d) then Label5.caption:='не Берем на работу' else
If (a<=c) and (b<=d) then Label5.caption:='не Берем на работу' else
end;
end.

Все пашет кроме того что три последние иф на пашут. то бишь сообщение не выходит...
Mangecu
 9  2011-12-04 15:12:54
Пардон тут будет
If (a>=c) and (b>=d) then Label5.caption:='Берем на работу' else
If (a<c) and (b>d) then Label5.caption:='не Берем на работу' else
If (a>c) and (b<d) then Label5.caption:='не Берем на работу' else
If (a<c) and (b<d) then Label5.caption:='не Берем на работу' else
AlkisTer
 10  2011-12-04 15:43:36
попробуй без елсев, они у меня постоянно глючали
AlkisTer
 11  2011-12-04 15:45:03
смысла в них никакого, и последний елсе для чего?
AlkisTer
 12  2011-12-04 15:46:19
If (a>=c) and (b>=d) then Label5.caption:='Берем на работу' ;
If (a<c) and (b>d) then Label5.caption:='не Берем на работу';
If (a>c) and (b<d) then Label5.caption:='не Берем на работу';
If (a<c) and (b<d) then Label5.caption:='не Берем на работу';

так попробуй
К списку тем
2007-2025, онлайн игры HeroesWM