AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Frage zur If-Clause

Ein Thema von LukeGee · begonnen am 10. Mär 2006 · letzter Beitrag vom 10. Mär 2006
Antwort Antwort
LukeGee

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

Frage zur If-Clause

  Alt 10. Mär 2006, 11: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
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Funktion will nicht gehen...

  Alt 10. Mär 2006, 11:57
Schlag mal in der Hilfe unter Delphi-Referenz durchsuchenif nach und was da über mehrere Zeilen nach einer if-Abfrage steht. das wäre das erste, wa smir dazu einfällt.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.693 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: Funktion will nicht gehen...

  Alt 10. Mär 2006, 12:00
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;
Markus Kinzler
  Mit Zitat antworten Zitat
LukeGee

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

Re: Funktion will nicht gehen...

  Alt 10. Mär 2006, 12:03
ahso, na dann danke. werds gleich mal probieren.

...

edit: danke, es geht!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Funktion will nicht gehen...

  Alt 10. Mär 2006, 12:26
Und jetzt noch einen aussagekräftigeren Titel für deinen Thread bitte.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von TeronG
TeronG

Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Funktion will nicht gehen...

  Alt 10. Mär 2006, 13:15
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.
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf