jupp, so einfach ^^
PS: wenn du Delphi die Wahl überläßt, in welcher Reinfolge es verarbeiten soll, dann kommt sowas bei raus
Code:
[b]if[/b] ([color=#008000]([/color]length(s1) > [color=#ff0000]([/color]0 [b]and[/b] s1[1][color=#ff0000])[/color][color=#008000])[/color] <> '#') [b]then[/b]
und das erklärt dan auch noch ganz einfach den Fehler:
0 and s1[1]
Integer AND Char