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

[Teekeks]

Ganz am Ende fehlt schon mal ein

Delphi-Quellcode:

end.

(mit Punkt)

[Prototypjack]

Moin,

Entferne die Ts von TForm1.[..], denn bei TForm1 handelt es sich um die Klasse, nicht um deren Instanz.

Edit: Beispiel: "TForm1.AmpelEinschaltenClick.Visible:=True;" sollte "Form1.AmpelEinschalten.Visible := True;" sein, wobei du dir hier das Form1 sogar sparen könntest (da du ja mit Klassenmembern hantierst). Pass auch auf, dass du die Namen nicht verwechselst! Ich sehe dort nur ein "AmpelEinschalten" Objekt, aber keines, dass "AmpelEinschaltenClick" heißt. Bei letzterem (also "AmpelEinschaltenClick") handelt es sich um die Methode, die aufgerufen wird, wenn der Button geklickt wird.

Falls du mit Methode / Routine / Klasse / Instanz wenig anfangen kannst, dann lege ich dir ans Herz ein Buch, oder ein Grundlagentutorial durchzuarbeiten. Das meine ich nicht böse! Solche Begriffe werden dir noch sehr oft begegnen und da schadet es nicht, diese gleich zu anfangs zu beherrschen ;). Viel Erfolg!

Grüße,
Max

[Timm3r]

Habe das Problem gerade gelöst. Habe einfach alles mal Schritt für Schritt neu geschrieben und jetzt funktioniert alles.

[Aphton]

Delphi-Quellcode:

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
// HIER FEHLT EIN -->
begin
  ImAmpelGelb.Visible:=False
  ImAmpelRot.Visible:=True // sonst wird diese Zeile hier immer aufgerufen...
end;