Entwickler-Ecke

Sonstiges (Delphi) - Boolean Fehler 2x

Zlatan - Do 03.02.11 11:33
Titel: Boolean Fehler 2x

Könnte jemand folgenden quelltext korrigieren?

Delphi-Quelltext

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Button2.Hide
then
begin
Button1.Hide;
Button2.Show;
end else if Button1.Hide
then
begin
Button2.Hide;
Button1.Show;
end
end;

end.

elundril - Do 03.02.11 11:36

Hallo,

1) Deine Quelltextformatierung macht es eher zum Quältext
2) ButtonX.Hide gibt keinen Boolean-Wert zurück, was du abfragen könntest wäre ButtonX.Visible. Mit der Methode Hide versteckst du den Button nur. ;)
3) Da anscheinend eh immer nur 1 Button von 2 sichtbar ist brauchst du die zweite If-Abfrage nicht, sondern kannst gleich nach dem else das begin schreiben. ;)

lg elundril

Bergmann89 - Do 03.02.11 11:44

Hey,

den 3. Punkt muss er sogar machen, sonst passiert gar nix:

Quelltext

1:
2:
3:
4:
5:

wenn Button1 sichtbar, dann..
  blende Button1 aus
  mache Button2 sichtbar
ansonsten: wenn Button2 sichtbar --> wird immer True 
...

MfG Bergmann

BenBE - Do 03.02.11 11:45

Also ganz ohne If ;-)

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Button1.Visible := not Button1.Visible;
    Button2.Visible := not Button1.Visible;
end.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!