Eine Procedure auf 22 Buttons...

[hoika]

Hallo,

dafür gibt es Asserts.

OK, der Compiler meldet sich dann erst zur Laufzeit


Heiko

[himitsu]

if sender = BtnMachwas sowas ist auch noch OK, aber die Werte jedesmal über Stringoperationen aus dem Objektnamen zu extrahieren ist a) unergonomisch und b) bringt da der Compiler auch keine Fehlermeldungen.

[bernau]

Ne. Den Namen zu extrahieren um dann auf eine ID zu kommen, ist schon Käse.

Ich bin im Laufe der Zeit dazzu übergegangen so wenig wie möglich im Objektinspektor zu definieren. Da ich keine Übersicht über die Einstellung mehrerer Elemente habe.

Ich mache dann lieber eine Function die mir die Id zurückgibt.

Delphi-Quellcode:

procedure IdFromButton( Sender : TObject ):integer;
begin
  if sender = BtnDies then result:=1 else
  if sender = BtnUnd then result:=2 else
  if sender = BtnDas then result:=3 else
    begin
       result:=-1;
      // Hier eine Exception oder sonst was
    end;
end;

Diese Function ist genau so schnell geschrieben, als wenn ich die Tags über den Objectinspector setze. Das ergebnis kann dann auch irgend ein selbst definierter Aufzählungstyp sein.

Aber auch dies: Geschmackssache.

[hoika]

Hallo,

OK.
Deine Methode hat den Vorteil,
dass man von Button1, Button2 wegkommt.
Due Buttons sollten einen aussagekräftigen Namen bekommen.

BTW:
Kann ein Moderator den Thread mal nach VCL verschieben ?


Heiko