массивы(паскаль)

[Dannymad]

Решил задачу через визуалку,посути должна работать,
когда запускаю, вбиваю элементы массива и жму выполнить
выскакивает ошибка

"is not a valid integer value"


не пойму в чем дело помогите пожалуйста

вот условие если нужно http://cs10643.userapi.com/v10643260...yeXVyRNS1s.jpg

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:array[1..20] of integer;
j,i,n:integer;
begin
n:=strtoint(Edit1.Text);
for j:=1 to n do
x[j]:=strtoint(Memo1.Lines[i-1]);
i:=1;
for j:=n downto 1 do
begin
y[i]:=x[j];
y[i+1]:=j;
i:=i+2;
end;
for i:=1 to 2*n do
Memo2.Lines.Add(inttostr(y[i]));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

end.

[Stilet]

n:=strtoint(Edit1.Text);

и

x[j]:=strtoint(Memo1.Lines[i-1]);

Замени на:

x[j]:=strtointdef(Memo1.Lines[i-1],0);

и

n:=strtointdef(Edit1.Text,0);

И посмотри будет ли ошибка. Если нет - значит ты что-то не то вводишь в Мемо или Эдит

Кстати: Ты уверен что тут:

for j:=1 to n do
x[j]:=strtoint(Memo1.Lines[i-1]);

i-1 а не j-1 нужно писать? i у тебя еще не инициализировано, а ты уже пытаешься по нему обратится куда-то.

[Dannymad]

заработало =)
спасибо))

x[j]:=strtointdef(Memo1.Lines[i-1],0)

а что означает добавление def и параметра 0?

[Stilet]

Означает что... нужно открыть хелп, вбить в него имя этой функции и внимательно почитать о том что этот параметр будет подставляться в случае неудачной конвертации.