Forum: Sonstige Fragen zu Delphi
Delphi
by Sunlight7,
16. Okt 2006
Dies Beispiel ist nicht schlecht, denn:
Function GibSchadensFarbe(Farbnr:Integer):Integer;
begin
case Farbnr of
0: Result := 'clBlue';
1: Result := 'clRed';
2: Result := 'clWhite';
250: Result := 'clNone';
else Result := 'clNone'; // <- Das hast Du vergessen, damit sicher ein gültiger Wert zurück gegeben wird.
Forum: Sonstige Fragen zu Delphi
Delphi
by Sunlight7,
16. Okt 2006
Oder als procedure schreiben, wenn es keinen Rückgabewert braucht.
Ein häufiger Fehler, Beispiel:
function Test(Value:Byte):Boolean;
var temp:Byte;
begin
try
temp:=128 div Value;
Result:=(temp>64);
except