Thema: Delphi Frage zur If-Clause

Einzelnen Beitrag anzeigen

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