[DayBreak]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 ['+', '-']

[Alegun]

Да нет, ругается на первый блок, перед and, скобок (..) там не хватает

[DayBreak]

А я уж думал,спасибо

[DayBreak]

Спасибо,я затупил)