wiederkehrende funktion

[MrSpock]

Hallo Privateer3000,

Code:

function TForm1.GetLevel(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';
      end; 
end;

Der Aufruf lautet dann:

Code:

    LabelLevel.Caption := GetLevel(zahl);

Natürlich könntest du auch einen Integer zurückgeben, der nur den Level zurückgibt.