array[1..10] auf Wert prüfen?

[hoika]

Hallo,
so aus dem Stegreif

Delphi-Quellcode:

function GibMirEinenString(const AFlag: Integer): String;
begin
  Result:= '';  // ja, die Zeile ist wirklich drin 

  case AFlag of
    1: Result:= '1';
    2: Result:= '2';
  else
  begin
    if AFlag>100 then
    begin
      Result:= 'zu gross';
    end
    else
    begin
      Result:= '>2';  // hier kam die Compilerwarnung
    end;
  end;
end;

Die Methode hatte >500 Zeilen ...