Ja, habe ich getan. Ich habe den Code auch etwas abgeändert. Trotzdem der gleiche Erfolg:
Code:
IsColor:=True;
if(TheColor1[1]<>'$') then IsColor:=False;
for Runde:=0 to Length(TheColor1) do
begin
if not(Ord(TheColor1[Runde]) in [48..57])and not(Ord(TheColor1[Runde]) in [65..70]) then IsColor:=False;
end;
Manchmal sieht man den Wald vor lauter Bäumen nicht. Ich bin mir ganz sicher, der Fehler ist sehr dumm und leicht zu beheben. Trotzdem gelingt es mir bis jetzt nicht. Brüte schon seit Stunden darüber...