Форум: "Начинающим";
Текущий архив: 2010.11.07;
Скачать: [xml.tar.bz2];

Вниз

[Error] Unit2.pas(43): Type of expression must be BOOLEAN   Найти похожие ветки 

← →
Михаил   (2010-08-13 13:55) [0]

Помогите!
Вот текст:

procedure TForm2.Button1Click(Sender: TObject);
var RandSeed: LongInt;
begin
randomize;
RandSeed:=random(2);
label1.Caption:=(IntToStr(RandSeed));

If label1.Caption:="1"
then
begin
Label2.caption:="1"
end;
end;

А вот  ошибка:
[Error] Unit2.pas(43): Type of expression must be BOOLEAN

Помогите исправить!

---

← →
Медвежонок Пятачок ©   (2010-08-13 13:57) [1]

убери одно двоеточие

---

← →
George ©   (2010-08-13 13:59) [2]

Оператор сравнения с оператором присваивания перепутали, вот

---

← →
Amoeba_   (2010-08-13 14:02) [3]

И к какой же конкретно строке кода относится эта ошибка?

---

← →
Andy BitOff ©   (2010-08-13 14:06) [4]

Оператор сравнения у тебя только в одной строке

---

← →
Andy BitOff ©   (2010-08-13 14:07) [5]

> Amoeba_   (13.08.10 14:02) [3]

Сорри, перепутал с автором ;)

---

← →
12 ©   (2010-08-13 14:12) [6]

procedure TForm2.Button1Click(Sender: TObject);
var
 RandSeed: LongInt;
begin
 randomize;
 RandSeed:=random(2);
 label1.Caption:=(IntToStr(RandSeed));
 If RandSeed=1 then
   Label2.caption:="1";
end;

ps
как дела то? Как МИРОВИК?:)

---

← →
Михаил   (2010-08-13 14:20) [7]

Все прошло! Спасибо!

зы 12, Что?

---

← →
Игорь Шевченко ©   (2010-08-13 14:48) [8]

Amoeba_   (13.08.10 14:02) [3]


> И к какой же конкретно строке кода относится эта ошибка?


к 43-ей

---

← →
Михаил   (2010-08-13 15:27) [9]

спасибо

---

← →
12 ©   (2010-08-13 15:50) [10]

> зы 12, Что?

по стилю и мылу напомнил было..
значит, ошибся

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.11.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.004 c