Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#11

AW: Nach bestimmer Variable bestimme Aktion ausführen

  Alt 22. Apr 2014, 15:21
Kleiner Tip am Rand:

Pack den Code in eine eigene Methode und nicht direkt in das Event.
Meistens stellt man fest, dass man diesen Teil von anderen Stellen auch noch aufrufen muss/möchte und dann ist copy/paste immer ein schlechter Berater.
Delphi-Quellcode:
procedure TErgebnisse.FormActivate(Sender: TObject);
begin
   PresentRatePictures;
end;

procedure TErgebnisse.PresentRatePictures;
begin
   Schlecht.Visible := n < 4;
   Ok.Visible := (n > 3) and (n < 7);
   Gut.Visible := (n > 6) and (n < 10);
   Perfekt.visible := n = 10;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat