AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Delphi-Anfänger - Was mache ich mit diesem if-Satz falsch?
Thema durchsuchen
Ansicht
Themen-Optionen

Delphi-Anfänger - Was mache ich mit diesem if-Satz falsch?

Ein Thema von Timm3r · begonnen am 10. Sep 2010 · letzter Beitrag vom 11. Sep 2010
 
youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#2

AW: Delphi-Anfänger - Was mache ich mit diesem if-Satz falsch?

  Alt 10. Sep 2010, 17:42
Was bekommst du denn als Fehler?

Kleiner Tipp nebenbei

Delphi-Quellcode:
if
imAmpelRot.Visible=True

then
teste niemals auf True oder False wie du es machst sondern so

Delphi-Quellcode:
if imAmpelRot.Visible then
Begin
  ...
end
SieheHier

Edit: ebenso vergisst du ";" zu setzen zwischen deinen Begin und End's

Delphi-Quellcode:
then begin
ImAmpelGruen.Visible:=False; <<< besser
ImAmpelGelb.Visible:=True;
end

[DELPHI]

Delphi-Quellcode:
procedure TForm1.AmpelUmschaltenClick(Sender: TObject);
begin
  if imAmpelRot.Visible then
  begin
    imAmpelRot.Visible:= False;
    imAmpelRotGelb.Visible:= True;
  end
  else if imAmpelRotGelb.Visible then
  begin
    imAmpelRotGelb.Visible:=False;
    imAmpelGruen.Visible:=True;
  end
  else if ImAmpelGruen.Visible then
  begin
    ImAmpelGruen.Visible:=False;
    ImAmpelGelb.Visible:=True;
  end
  else
  Begin
    ImAmpelGelb.Visible:=False;
    ImAmpelRot.Visible:=True;
  end;
end;
Steven

Geändert von youuu (10. Sep 2010 um 17:50 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz