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.