Fehler: IF: Kein Teil eienr Menge (Bedingung)

[sx2008]

Delphi-Quellcode:

function CharIsHexDigit(c:char):Boolean;
begin
  Result := c in ['0'..'9','A'..'F','a'..'f'];
end;

function IsHexColor(const s : string):boolean;
var
  i : integer;
begin
  Result := (Length(s) >= 7{Mindestlänge}) and (s[1]='$');
  if not Result then
    exit;
  for i := 2 to length(s) do
  begin
    if not CharIsHexDigit(s[i]) then
    begin
      result := False;
      Exit;
    end;
  end;
end;