Ошибка с массивом

← →
Melifaro © (2006-04-23 16:46) [0]

в массив заносится только одно значение

← →
Melifaro © (2006-04-23 16:46) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,z:integer;
St,St1:string;
begin
n:=strtoint(EN.Text);
St:=EMassA1.Text;
SetLength(A,n);
for i:=0 to high(A) do
begin
z:=pos(" ",St);
St1:=copy(St,0,z-1);
A[i]:=strtoint(St1);
delete(St,0,z);
end;
for i:=0 to high(A) do EAB.Text:=EAB.Text+inttostr(A[i])+" ";
end;

← →
Melifaro © (2006-04-23 16:48) [2]

т.е. ввожу n=3 потом 1 2 3 ,а на выходе 1 1 1

← →
Юрий Зотов © (2006-04-23 16:58) [3]

Индексация символов в строках начинается с 1, а не с 0.

Точно! спасибо)

Ошибка с массивом Найти похожие ветки