Prüfen ob String = Farbcode ist

[ichbins]

ihr habt vergessen, das clblack und so zeugs auch dazugehört. einfach mit stringtocolor probieren und mit try except absichern:

Delphi-Quellcode:

function iscolorcode(s:string):boolean;
begin
  try begin
    stringtocolor(s);
    result:=true;
  end except 
    result:=false; 
  end;
end;