Frage zur If-Clause

[TeronG]

Zitat von mkinzler:

Delphi-Quellcode:

if (CScale1.Caption='C')
    then
    begin
      ek.Caption:='e|-------------------------------------------------|';
      B.Caption:='B|---------------------------------10-12-13---------|';
      G.Caption:='G|--------------------------9-10-12-----------------|';
      D.Caption:='D|-----------------9-10-12--------------------------|';
      A.Caption:='A|---------8-10-12----------------------------------|';
      E.Caption:='E|-8-10-12------------------------------------------|';
  end;
  if (CScale1.Caption='D')
    then
    begin
      ek.Caption:='e|--------------------------------------------------|';
      B.Caption:='B|----------------------------------12-14-15---------|';
      G.Caption:='G|--------------------------11-12-14-----------------|';
      D.Caption:='D|-----------------11-12-14--------------------------|';
      A.Caption:='A|---------10-12-14----------------------------------|';
      E.Caption:='E|-10-12-14------------------------------------------|';
    end;

man könnte auch noch ein else vor dem Zweiten IF einsetzen .. dann wüsste der rest nichtmehr geprüft werden sobald was gefunden wurde.