Frage zur If-Clause

[mkinzler]

Bei einem If wird entweder ein Befehl (wie bei dir) oder ein Sequenz ausgefüht. Soll mehr als ein Befehl ausgeführt werden muß du einen Block mit [b]begin .. end;[/b] bilden.

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;