| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка с массивом [D7]

Melifaro ©   (2006-04-23 16:46:00) 

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

---

Melifaro   (2006-04-24 10:12:00) [1]

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

---

Юрий Зотов   (2006-04-23 16:58:00) [2]

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

---

Melifaro   (2006-04-23 16:48:00) [3]

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

---

Melifaro   (2006-04-23 16:46:00) [4]

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;

---

Наверх