[musicFUZZ]

здравствуйте ребята.
дело такое:
при на жатие на кнопку1, рандомом, в мемо1, выпадает 100 цифр, от 100 до 250. А при нажатие на кнопку2, эти цифры экспартируются в эксель.
там по ним потом график строется.. но то уже может сам) до этого не имел дела, вообще, с экспортированием из делфа куда либо.. даже и не знаю как.. ну а рандом зделал:

procedure TForm1.Button1Click(Sender: TObject);
var
mas: array [1..250] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
Randomize;
mas[i]:=RandomRange(100,250);
Memo1.Lines.Add(inttostr(mas[i]));
end;
end;

жду подсказок ( :

[rdfx]

загляни сюда http://www.kornjakov.ru/stat.htm. Там много есть чего про Word и Excel. Найдешь все что хотел

[musicFUZZ]

инфа конечно расписана, почитал, попытался применить, сразу же столкнулся с созданием библиотеки Майэксел.пас просто напросто не понял )
в юзас добавил ComObj
а когда на кнопки2 обращаюсь к функциям экселя - Excel. .. после точки нет не каких функций.. а при контрл+пробел = ошибка.

[MegaPiha]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
    XL, Workbook, Range, Cell1, Cell2, ArrayData, Row  : Variant;
    BeginCol, BeginRow : integer;
    RowCount, ColCount : integer;
    i:byte;
begin
    BeginCol := 1;  
    BeginRow := 3;
    RowCount := 250; 
    ColCount:=1;
    XL := CreateOleObject('Excel.Application');  
    XL.Application.EnableEvents := false;  
    Workbook := XL.WorkBooks.Add;  
    Row:=XL.Workbooks[1].WorkSheets[1].Rows;
    Row.Cells[2,1]:='Название столбца';
    XL.Columns.Columns[1].ColumnWidth:=7;
    ArrayData := VarArrayCreate([1, RowCount+1, 1, ColCount+1], varVariant); 
    for i := 1 to RowCount do 
    begin
        ArrayData[i,1] :=mas[i];
    end;
    Cell1 := XL.Cells[BeginRow, BeginCol];     
    Cell2 := XL.Cells[BeginRow+RowCount-1, BeginCol + ColCount-1];
    Range := XL.Range[Cell1, Cell2];  
    Range.Value := ArrayData; //âûâîä äàííûõ
    XL.Range[WorkBook.WorkSheets[1].Cells[BeginRow-1, BeginCol], Cell2].Borders.LineStyle := 1;
    XL.Range[WorkBook.WorkSheets[1].Cells[BeginRow-1, BeginCol], Cell2].Borders.Weight := 2;
    XL.Range[WorkBook.WorkSheets[1].Cells[BeginRow-1, BeginCol], Cell2].Borders.ColorIndex := 1;
    XL.Visible := true;
end;

Тока mas надо сделать глобальной переменной

[musicFUZZ]

вникал минут 20 ), спасибо )

ток значений надо было 100 )
поэтому RowCount := 100;
вернусь домой, буду добивать.