[flips]

Сообщение от lmikle

Код:

if (N mod 2) = 0 then showmessage('четный');

С условием разобрался, но подскажите с считыванием данных для массива из строки, повторю исправленный код

Код:

procedure getArrayFromStr(var a:TArray100;var cnt:integer; const s:string);
 var wep:integer; w:string[20];s1:string;
begin
s1:=s;
cnt:=0;
while length(Trim(s1))>0 do
 begin
 s1:=Trim(s1);
 wep:=Pos('',s1);
 if wep=0 then
  wep:=length(s1)
 else
  wep:=wep-1;
 w:=copy(s1,1,wep);
 delete(s1,1,wep);
 cnt:=cnt+1;
 a[cnt]:=strtoint(w);
 end;
end;

Ошибка при выполнении выскакивает в этой строке

Код:

a[cnt]:=strtoint(w);