|
#1
|
|||
|
|||
Ошибка
Код:
function IsIntWithout(Str:String):Boolean; var i:Integer; //LabeledEdit1: TLabeledEdit; //Str:String; begin Result:=false; //Str:= Form1.LabeledEdit1.Text; if Str='' then exit; for i:=1 to Length(Str) do if not (Str[i] in ['0'..'9']) then exit; Result:=true; end; function IsIntWith(Str:String):Boolean; var i:Integer; begin if Length(Str)>0 and (Str[1] in ['+', '-']) then Result:=IsIntWithout(Copy(Str,2,Length(Str)-1)) else Result:=IsIntWithout(Str); end; В строке номер 21 ругается на Str[1] in ['+', '-'] Последний раз редактировалось DayBreak, 18.04.2018 в 19:17. |
#2
|
||||
|
||||
Да нет, ругается на первый блок, перед and, скобок (..) там не хватает
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
А я уж думал,спасибо
|
#4
|
|||
|
|||
Спасибо,я затупил)
|