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

← →
дямак © (2006-05-06 20:27) [0]

Подскажите, что я неправильно делаю
при нажатии на кнопку я хочу чтобы появился массив, он появляется, но там только один столбец!
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:30) [1]

RandomArray и OutArray - ето чего?

← →
дямак © (2006-05-06 20:34) [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:43) [3]

Несмотря на то, что теперь неизвестно, что такое MyArray, и благодаря врожденной телепатии, я понял, что массив одномерный.
Возник вопрос, чем не нравится один столбец?
или имелось ввиду, что табуляция не работает?
Lines.Add(IntToStr(i)+":" + #09+IntToStr(A[i]));

ламерский вопросик Найти похожие ветки