[arach]

Я новичек, такой вопрос: Необходимо, чтобы при установке галочки в CheckBox, значение Label менялось (сделал), а при снятии опять менялось на другое. Вот какой у меня код (кривой, не ругайтесь):

Код:

1 2 3 4 5 6 7 8

procedure TForm1.CheckBox1Click(Sender: TObject); begin  Label4.Caption:=('Вкл.');  Label4.Font.Color:=clGreen; if CheckBox1.Checked:=false then begin  Label4.Caption:=('Выкл.');  Label4.Font.Color:=clRed; end;

Admin: Пользуемся тегами!

Программа ругается, не удается скомпилировать. Поправьте код, подалуйста.

[Rjkzy]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.CheckBox1Click(Sender: TObject); begin case CheckBox1.Checked of   False:     begin     Label4.Caption:=('Выкл.');     Label4.Font.Color:=clRed;     end;   True:     begin     Label4.Caption:=('Вкл.');     Label4.Font.Color:=clGreen;     end;   end; end;

пользуйся

[T-dayne]

Код:

1	if CheckBox1.Checked:=false then

Ключевая ошибка. Все учителя/самоучители в первые дни изучения вбивают студентам что "=" это равенство а ":=" это ПРИСВОИТЬ. Дальше поймешь?

Код:

1	Label4.Caption:=('Вкл.');

А здесь нужно было так:

Код:

1	Label4.Caption:='Вкл.';

[arach]

Спасибо большое!

[arach]

А самоучителями и учителями я не пользуюсь)

[Rjkzy]

Сообщение от T-dayne

Код:

Ключевая ошибка. Все учителя/самоучители в первые дни изучения вбивают студентам что "=" это равенство а ":=" это ПРИСВОИТЬ. Дальше поймешь?

Код:

А здесь нужно было так:

Код:

Код:

1	Label4.Caption:=('Вкл.');

и

Код:

1	Label4.Caption:='Вкл.';

тождественны

[T-dayne]

Rjkzy
Возможно, не проверял)
Просто ниразу не встречал людей пишуших так, приобщаемся к нормальному стилю.