помогите пожалуйста. как перекинуть матрицу в ворд из делфи???

[Ромка678]

необходимо сначало задать матрицу 2 на 2 и потом ее перекинуть в ворд. и чтоб она была в ворде в скобках

[FaTaL]

Изучайте работу с Вордом. Есть очень хорошая книжка
Василий Корняков Программирование документов и приложений MS Office в Delphi

[Ромка678]

ну дак и как это сделать из делфи?

[dr.Chas]

Сообщение от Ромка678

ну дак и как это сделать из делфи?

Правила раздела, особено 7 пункт

Вам подсказали хороший учебник. Изучайте. Возникнут с чем то проблемы спрашивайте.

[Ромка678]

try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try

      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
MSWord.Documents.Add;
randomize;
for i:=1 to 2 do
for j:=1 to 3 do 
Matr[i,j]:=Int(random*40)-20;

Вот допустим создал матрицу и документ вордовский и немогу понять что дальше сделать чтобы эту матрицу отправить в ворд. и чтобы она была в скобках

подскажите пожалуйста

[dr.Chas]

uses ComObj;

procedure RunWord;
begin
  try
    MsWord := CreateOleObject('Word.Application');
    MsWord.Visible := True;
    MsWord.Documents.add;
  except
    ShowMessage('Ошибка');
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var a: Array [1..5,1..5] of integer;
    i,j:integer;
    MyRange: variant;
    table: variant;
begin
  RunWord;
  MyRange:=MsWord.ActiveDocument.range(MsWord.ActiveDocument.range.end-1,
  MsWord.ActiveDocument.range.end-1);
  MsWord.ActiveDocument.Tables.add(Range:=MyRange, numRows:=5, NumColumns:=5);
  table:=MsWord.ActiveDocument.Tables.item(1);
  randomize;
  for i:=1 to 5 do
    for j:=1 to 5 do
      a[i,j]:=random(20);

  for i:=1 to 5 do
    for j:=1 to 5 do
    begin
      Table.Cell(i,j).Range.Text:=('('+IntToStr(a[i,j])+')  ');
    end;

end;