Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.14;
Скачать: CL | DM;

Вниз

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

 
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.


 
Melifaro ©   (2006-04-24 10:12) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2006.05.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.104 c
2-1146167624
Alecs
2006-04-27 23:53
2006.05.14
Excel Delphi работа с уже открытым файлом


2-1146109378
_Hawk_
2006-04-27 07:42
2006.05.14
Подскажите пожалуйста!


1-1144137303
aleshap
2006-04-04 11:55
2006.05.14
Как определить место в программе?


2-1146083600
chai
2006-04-27 00:33
2006.05.14
Работа с поинтерами: корректен ли этот код?


2-1145887691
Интересующийся
2006-04-24 18:08
2006.05.14
Временная задержка между событиями