Thema: Delphi wiederkehrende funktion

Einzelnen Beitrag anzeigen

Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#1

wiederkehrende funktion

  Alt 19. Jun 2002, 20:13
Hi naochmal
muss gleich noch einen hiterherschiessen

wie kann man wie im folgendene Code diese case schleife so verpacken das sie nur einmal geschrieben werden muss und bei "Bedarf" aufgerufen werden kann??

Code:
case zahl of
      15..24: LabelStufe.Caption := 'Das bedeutet Stufe 1';
      25..32: LabelStufe.Caption := 'Das bedeutet Stufe 2';
      33..37: LabelStufe.Caption := 'Das bedeutet Stufe 3';
      38..42: LabelStufe.Caption := 'Das bedeutet Stufe 4';
      43..50: LabelStufe.Caption := 'Das bedeutet Stufe 5';
      51..60: LabelStufe.Caption := 'Das bedeutet Stufe 6';
      end;
zahl ist, logo, eine integer

nun will ich nicht 12-16 mal diese Schleife in den Quellcode schreiben...
Ich hab die OH hin und hergewälzt, blicke aber bei function einfach nicht durch..

Hoffe auf Hilfe
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat