Frage zur If-Clause

[LukeGee]

Hallo,

ich bin ein Programm am programmieren, dass die Tabs für die Gitarre für die ganzen Tonleitern anzeigt. man klickt auf ne skale, dann gibt das ding in nem label ne skale aus, diezu der ersten passt und wenn man auf des label klickt soll es den tab ausgeben. einmal funktionierts auch, aber wenn ne andre skale drin steht zeigts das an, was bei der anderen kommen sollte.

hier der code:

Delphi-Quellcode:

  if (CScale1.Caption='C')
    then
      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------------------------------------------|';

  if (CScale1.Caption='D')
    then
      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------------------------------------------|';

also wenn ich CScale1 n 'C' steht soll der das unten ausgeben. wenn n 'D' steht das was da drunter steht, aberwenn n D drin ist und ich klicke kommt das, was bei 'C' kommen sollte. was mach ich falsch und gibts da auch noch andre möglichkeiten das eventuell einfacher zu prograjmmieren?

MfG Lukas

[Luckie]

Schlag mal in der Hilfe unter if nach und was da über mehrere Zeilen nach einer if-Abfrage steht. das wäre das erste, wa smir dazu einfällt.

[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

Delphi-Quellcode:

[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;

[LukeGee]

ahso, na dann danke. werds gleich mal probieren.

...

edit: danke, es geht!

[Luckie]

Und jetzt noch einen aussagekräftigeren Titel für deinen Thread bitte.

[TeronG]

Zitat:

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.