Vereinfachung/Verkürzen

[GTA-Place]

Unbedingt noch case of verwenden, z.B. anstatt

Delphi-Quellcode:

if image1.top=120 then 
   Label1.caption:=inttostr(4); 

  if image1.top=0 then 
   Label1.caption:=inttostr(5);        

  if image1.top=240 then

nimmst du:

Delphi-Quellcode:

case Image1.Top of
  120: Label1.Caption := '4';
    0: Label1.Caption := '5';
  240: Label1.Caption := '?';
end;

Wie du siehst, brauchst du auch kein IntToStr, wenn du die Zahl direkt in Apostrophe packst.

Noch was: Verwende für jeden Button die selbe Klick-Prozedur. Schreibe in den Tag des Buttons (per Objektinspektor) die Zahl Z und greife dann auf (Sender as TButton).Tag darauf zu.