Скачать: CL | DM;

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

← →
дямак ©   (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]));

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c