Memo

[-=<[Evklidd]>=-]

Подскажите пож как вывести одномерный массив в компонент Memo, где номер строки будет номером элемента в массиве, а строка содержит сам элемент???

[alexBlack]

procedure TForm1.FormCreate(Sender: TObject);
var A:array [1..10] of integer;
    i:integer;
    S:String;
begin
   for i:=1 to 10 do begin
      A[i] := random(255);
   end;

   S := '';
   for i:=1 to 10 do begin
      S := S+ intToStr(A[i]) + #13#10;
   end;

   memo1.text := S;
end;

[_Dmitry]

Добавляйте последовательно строки в Memo

for i:=1 to n do
  Memo1.Lines.Add(IntToStr(m[i]));

[-=<[Evklidd]>=-]

Спасибо, ребятки!!! Просто я не знал, как обратиться к массиву строк мемовскому!!!

Респект и Уважуха


From Stilet: Нечего постить несодержательными сообщениями, это при том что свои сообщения можно редактировать