Интересная маленькая задача на Delphi

[balambay]

Подскажите как сделать програмку что бы при нажати на кнопку ее значение капшина менялось с 0 на 1 и с 1 на 0 при следующем нажатии на эту кнопку ну вобщем переключатель типа такой

[Foreseen]

Сделать проверку на четность

[Poma][a]

Сделать проверку на четность

Значит нужно хранить некое значение переменной.. А такое нафиг надо.. Пусть будет f : Boolean; и вывод Ord(f).. а изменять f := not f; и всё прекрасно..

[Foreseen]

Значение переменной у нас будет храниться прямо в капшине кнопки

[Вадим Мошев]

В обработчике нажатия написать

Button1.Caption:=IntToStr(1 - StrToInt(Button1.Caption));

вот и всё

[Stilet]

Значение переменной у нас будет храниться прямо в капшине кнопки

А если автору захочется по другому переобзывать? Я С Романом согласен. Только в какчестве триггера предложил бы использовать свойство Tag кнопки.

[Вадим Мошев]

Сообщение от Stilet

А если автору захочется по другому переобзывать? Я С Романом согласен. Только в какчестве триггера предложил бы использовать свойство Tag кнопки.

Можно завести массив из двух элементов в индексами 0 и 1, после чего воспользоваться моим вариантом...

[uitzilopochtli]

Lazarus

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  i := StrToInt(Button1.Caption);
  if i = 1 then
    Button1.Caption := '0'
  else
    Button1.Caption := '1';
end;

[balambay]

а можно код проверки на четность ?

Сообщение от uitzilopochtli

Lazarus

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  i := StrToInt(Button1.Caption);
  if i = 1 then
    Button1.Caption := '0'
  else
    Button1.Caption := '1';
end;

это не работает сам сначала так пробовал

[kta87]

Сообщение от balambay

а можно код проверки на четность ?

var
  a: Integer;
begin
...
  if a div 2 = 0 then "тут действия когда четное"
    else "тут действия когда не четное";
end;