Thema: Delphi Mehrere If-Abfragen

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#13

AW: Mehrere If-Abfragen

  Alt 10. Dez 2010, 12:17
Wie Markus bereits sagte, hast Du keine Toleranz eingebaut, die Abfrage wird also nicht wahr, wenn die aktuelle Y-Position nicht aufs Pixel genau stimmt. Und nochmal zur Namensgebung: wir kennen Deine Oberfläche nicht, können also mit Panel3 oder so nichts anfangen. Jetzt sag Du mir doch, was besser lesbar ist:
Delphi-Quellcode:
procedure TForm1.Image23Click(Sender: TObject);
begin
  Label34.Caption := Edit12.Text + ':' + Label42.Caption;
end;
oder
Delphi-Quellcode:
procedure TFormMain.imgFigurClick(Sender: TObject);
begin
  lblSpielstand.Caption := edtPunkte.Text + ':' + lblZeit.Caption;
end;
(Das ist zwar immer noch schlechter Stil, aber man kann anhand der Bezeichner zumindest erahnen, was die Komponenten darstellen sollen).
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat