"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;