Code:
for Runde:=0 to Length(TheColor1) do
if(TheColor1[1]<>'$')and(Ord(TheColor1[Runde])<>[48..57])and(Ord(TheColor1[Runde])<>[65..70]) then ...
Dieser Code erzeugt bei mir die folgende Fehlermeldung:
Zitat von
Delphi 7:
[Error] Box1.pas(350): Incompatible types: 'TObject' and 'Char'
[Error] Box1.pas(350): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'Integer'
Ich will mit diesem Code testen, ob ein String ("TheColor1") als Farbe (z.B. "$00004F4F") interpretiert werden kann. Was mache ich falsch (kann die Fehlermeldungen leider nicht ausarbeiten)?