Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ламерский вопросик

дямак © (2006-05-06 20:27:00)
Подскажите, что я неправильно делаю
при нажатии на кнопку я хочу чтобы появился массив, он появляется, но там только один столбец!
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
Num_el:=StrToInt(Edit1.Text);
if Num_el>20 then
begin
Application.MessageBox('слишком много элелентов','Ошибка',MB_OK);
Num_el:=0;
exit;
end;
RandomArray(Arr,Num_El);
OutArray(Arr,Num_El,Memo1.Lines);
end;

ЛшдлуттнСфе (2006-05-06 20:43:00) [1]
Несмотря на то, что теперь неизвестно, что такое MyArray, и благодаря врожденной телепатии, я понял, что массив одномерный.
Возник вопрос, чем не нравится один столбец?
или имелось ввиду, что табуляция не работает?
Lines.Add(IntToStr(i)+':' +#09+IntToStr(A[i]));

дямак (2006-05-06 20:34:00) [2]
Процедура вывода значений элементов одномерного массива в список строк:
procedure OutArray(var
A:MyArray;n:integer;Lines:TStrings);
var i:integer;
begin
Lines.Clear;
for i:=0 to n-1 do
Lines.Add(IntToStr(i)+':'#9+IntToStr(A[i]));
end;

Процедура инициализации массива случайными целыми числами в диапазоне [-10..10]:

procedure RandomArray(var A:MyArray;n:integer);
var i:integer;
begin
for i:=0 to n-1 do
A[i]:=random(21)-10;
end;

ток не смейся, мож я чё туплю, но я блин тока 1 неделю в delphi, а научиться уж очень хочется

ЛшдлуттнСфе (2006-05-06 20:30:00) [3]
RandomArray и OutArray - ето чего?

Наверх

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