Проблема с массивом.

@Cooper-D · Регистрация: 21.11.2011

Author24 — интернет-сервис помощи студентам

Извените за нубский вопрос, я только начинаю изучать делфи и столкнулся с такой проблемой. Когда скажем просто выводиш массив
то выводит только первые 2 элемента.

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..4] of integer;
i:integer;
begin
for i:= 0 to 4 do
begin
a[i]:=StrToInt(Memo1.Lines[i]);
Memo2.Lines[i]:=IntToStr(a[i]);
end;
end;
end.

Скажите пожалуйста как вывести полный массив, заранее спасибо.

@dtsey · 21.12.2011, 09:19

Сообщение от Cooper-D

Извените за нубский вопрос, я только начинаю изучать делфи и столкнулся с такой проблемой. Когда скажем просто выводиш массив
то выводит только первые 2 элемента.

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..4] of integer;
i:integer;
begin
for i:= 0 to 4 do
begin
a[i]:=StrToInt(Memo1.Lines[i]);
Memo2.Lines[i]:=IntToStr(a[i]);
end;
end;
end.

Скажите пожалуйста как вывести полный массив, заранее спасибо.

Код, в принципе, написан правильно.
А вы уверены, элементы после второго вообще есть? Может там просто пустота?
Лучше напишите так:

Delphi

1	for i:=0 to 4 do Memo1.Lines.Add(IntToStr(a[i]));

@Cooper-D 0 / 0 / 0 Регистрация: 21.11.2011 Сообщений: 39
		1
	Проблема с массивом. 21.12.2011, 08:12. Показов 1020. Ответов 1 Метки нет (Все метки) Извените за нубский вопрос, я только начинаю изучать делфи и столкнулся с такой проблемой. Когда скажем просто выводиш массив то выводит только первые 2 элемента. procedure TForm1.Button1Click(Sender: TObject); var a:array[0..4] of integer; i:integer; begin for i:= 0 to 4 do begin a[i]:=StrToInt(Memo1.Lines[i]); Memo2.Lines[i]:=IntToStr(a[i]); end; end; end. Скажите пожалуйста как вывести полный массив, заранее спасибо. 0

	21.12.2011, 09:19

Проблема с массивом.

Решение