(Delphi 7) Suggerimenti codice

[camaleonteplus]

Originariamente inviato da franzauker2.0
Puoi usare un case o una sequenza di else if o un vettore di costanti

tipo cosi?

begin
// Ottiene il valore numerico
Val1.Value := StrToInt(Val1.Text);
// Determina il colore associato
case StrToInt(Val1.Text) of
  0: F1.Color := clBlack;
  1: F1.Color := clMaroon;
  2: F1.Color := clRed;
  3: F1.Color := $00A5FF; //Colore Arancione
  4: F1.Color := clYellow;
  5: F1.Color := clGreen;
  6: F1.Color := clBlue;
  7: F1.Color := clFuchsia;
  8: F1.Color := clGray;
  9: F1.Color := clWhite;
end;
end;