Fehler: IF: Kein Teil eienr Menge (Bedingung)

[SvenLittkowski]

"Runde:=2 to ..."?

Ich denke auch, "0" war falsch. Ich habe jetzt Runde bei "1! anfangen lassen. Nein, warte! Du hast Recht! Denn [1] ist ja das "$"-Zeichen, also geht es erst bei [2] los! Danke!

Aber es handelt sich um einen Fehler, der beim Compilieren entsteht, nicht zur Laufzeit. Da muß also etwas anderes, Gravierendes nicht stimmen.

Hier erneut die Fehlermeldungen:

Zitat von Delphi 7:

[Error] Box1.pas(351): Incompatible types: 'TObject' and 'Char'
[Error] Box1.pas(351): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'Integer'

Und hier der Quelltext, wie er jetzt ist:

Code:

   IsColor:=True;
   if(TheColor1[1]<>'$') then IsColor:=False
   else
   begin
    for Runde:=2 to Length(TheColor1) do
    begin
     if (not Ord(TheColor1[Runde]) in [48..57]) and (not Ord(TheColor1[Runde]) in [65..70]) then IsColor:=False;   // LINE 351, Fehler-Cursor zwischen "[Runde])" und " in [48"
    end;
   end;