[arach]

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

Код:

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]

Код:

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]

Код:

if CheckBox1.Checked:=false then

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

Код:

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

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

Код:

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

[Rjkzy]

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

Код:

if CheckBox1.Checked:=false then

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

Код:

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

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

Код:

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

Код:

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

и

Код:

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

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

[T-dayne]

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

[arach]

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

[arach]

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