работа с Com-сервером

[Gigantis]

нужно к этому коду сделать вывод в word в Delphi

const CELLSIZE = 25;
type TMatrix = array of array of Integer;
     TArray = array of Integer;

var arr: TMatrix;
    res: TArray;


    Procedure MinElem(arr: TMatrix; N: Integer; var iMin, jMin: Integer);
    var i, j: Integer;
        min: Integer;
    Begin
        min := arr[0,0];
        iMin := 0;
        jMin := 0;
        for i := 0 to N-1 do
            for j := 0 to N-1 do
                if arr[i,j] < min then begin
                                           min := arr[i,j];
                                           iMin := i;
                                           jMin := j;
                                       end;
    End; {MinElem}



procedure TFormMain.FormCreate(Sender: TObject);
begin
    SetLength(arr, SEMatrixSize.Value, SEMatrixSize.Value);
    SetLength(res, SEMatrixSize.Value);
end;



procedure TFormMain.SEMatrixSizeChange(Sender: TObject);
begin
    SGMatrix.ColCount := SEMatrixSize.Value;
    SGMatrix.RowCount := SEMatrixSize.Value;
    SGMatrix.Width := CELLSIZE * SEMatrixSize.Value + (SEMatrixSize.Value-1) + 4;
    SGMatrix.Height := CELLSIZE * SEMatrixSize.Value + (SEMatrixSize.Value-1) + 4;

    SGResult.ColCount := SEMatrixSize.Value;
    SGResult.Width := CELLSIZE * SEMatrixSize.Value + (SEMatrixSize.Value-1) + 4;

    ButtonDo.Top := 37 + SGMatrix.Height;
    ButtonExit.Top := 37 + SGMatrix.Height;

    SGResult.Top := 77 + SGMatrix.Height;

    FormMain.Height := 144 + SGMatrix.Height;
    FormMain.Width := SGMatrix.Width + 6;

    SetLength(arr, SEMatrixSize.Value, SEMatrixSize.Value);
    SetLength(res, SEMatrixSize.Value);
end;



procedure TFormMain.ButtonDoClick(Sender: TObject);
var N: Integer;
    i, j: Integer;
    iMin, jMin: Integer;
begin

    N := SGMatrix.RowCount;
    //Считаю матрицу:
    for i := 0 to N-1 do
        for j := 0 to N-1 do
            if SGMatrix.Cells[j,i] = '' then begin
                                                 Application.MessageBox('Указаны не все элементы матрицы!', 'Ошибка');
                                                 Exit; //выход из процедуры
                                             end
            else arr[i,j] := StrToInt(SGMatrix.Cells[j,i]);

    MinElem(arr, N, iMin, jMin);  //поиск индексов минимального элемента

    //Посчитаю результирующий массив:
    for i := 0 to N-1 do
        res[i] := arr[iMin,i] + arr[i,jMin];

    for i := 0 to N-1 do
        SGResult.Cells[i,0] := IntToStr(res[i]);
end;
end.

как это сделать?

[viperrr]

http://www.google.ru/search?hl=ru&cl...A&lr=&aq=f&oq=

[stiv73]

Пиши в асю 402114052 с 19 - 20 часов по Москве. Пиши обсудим.