Thema: Delphi Frage zur If-Clause

Einzelnen Beitrag anzeigen

LukeGee

Registriert seit: 20. Feb 2006
89 Beiträge
 
Delphi 2005 Personal
 
#1

Frage zur If-Clause

  Alt 10. Mär 2006, 10:52
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
  Mit Zitat antworten Zitat