wiederkehrende funktion

[Daniel]

Du könntest beispielsweise eine Funktion daraus machen, welche einen String zurückliefert:

Code:

Function Auswertung( zahl : Integer ) : String;
Begin
  case zahl of 
      15..24: Result := 'Das bedeutet Stufe 1'; 
      25..32: Result := 'Das bedeutet Stufe 2'; 
      33..37: Result := 'Das bedeutet Stufe 3'; 
      38..42: Result := 'Das bedeutet Stufe 4'; 
      43..50: Result := 'Das bedeutet Stufe 5'; 
      51..60: Result := 'Das bedeutet Stufe 6'; 
      else
        Result:= 'unbekannte Stufe bei Wert '+IntToStr(zahl);
      end; 
End;

Aufruf über:

Code:

LabelStufe.Caption:= Auswertung( Zahl );

War es das?

/edit: 2 Leute - 1 Gedanke

Grüße,
Daniel