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

[Foreseen]

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

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

Можно так

begin
if odd(strtoint(Button1.Caption))=false then
Button1.Caption:='1' else
Button1.Caption:='0';
end;

Или так

begin
Button2.Tag:=Button2.Tag+1;
if odd((Button2.Tag))=false then
Button2.Caption:='1' else
Button2.Caption:='0';
end;

Выбирай любой

[Poma][a]

А на кой нам сравнивать с false?

[DIONISKA]

Предложу чуть более извращённый вариант:

type
  TButton = class(Vcl.StdCtrls.tbutton)
  private
   ischeked:boolean;
   procedure check(const value:boolean);
  public
   property checked read ischeked write cheсk;
  end;

TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
...
implementation
...
procedure TButton.check(const value: boolean);
 begin
  if value <>ischeked then
  ischeked:=value;
 end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  Button1.checked:=not(Button1.checked);
  Button1.Caption:=inttostr(ord(button1.checked));
 end;

По мне такой вариант кажется удобней)

[puporev]

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
inc(i);
Button1.Caption:=inttostr(i mod 2)
end;

[Poma][a]

i:integer;

Ну на кой? Вдруг найдется любитель тыкать на кнопку 2147483648 раз..
И занимает это 4 байта.. тот же Boolean займет 1..

[balambay]

ок. всем спасибо за помощь.