Boolean in Integer umwandeln

[k-weddige]

Beides Falsch!

Delphi-Quellcode:

var
  Bool: Boolean;

const
  BoolToStr: array [Boolean] of String = ('Falsch', 'Richtig');

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bool := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Add(BoolToStr[Bool]);
 Inc(Bool);
end;

Und jetzt klick bitte 3x auf den Button.

Jetzt mit Ord(Bool):

Delphi-Quellcode:

var
  Bool: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bool := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(IntToStr(ord(Bool)));
  Inc(Bool);
end;

Ord(Bool) macht das gleiche, wie Integer(Bool).

Konstantin