VPF::Export 2-х мер массива данных в Excel ??

Mepcuk

Дата 1.11.2006, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет

Как передать двумерный массив из Делфи в Ексель?

Код


        Excel:=CreateOleObject('Excel.Application');
         Excel.Visible:=true;
         Excel.Workbooks.Open('c:\network.xls');
        Excel.Worksheets.add;
        RangeMatrix:=Excel.Range['A1','B100'].Value;


for previous_layer_neiro:=1 to input_neiro_q do
begin
    for next_layer_neiro:=1 to neiro_q do
    begin
    value_for_random:=random(9800)*0.0001+0.01;
    input_weight[previous_layer_neiro,next_layer_neiro,network_n]:=value_for_random;              //value_for_random/1000+0.01;
    RangeMatrix[previous_layer_neiro,next_layer_neiro]:=FLoatToStr(value_for_random);   ---<<<<<<<< NE RABOTAET :(((
    //Excel.Range['A'+IntToStr(next_layer_neiro)].Value:=value_for_random;
     end;
//Write_in_memo1();
end;

Albinos_x

Дата 1.11.2006, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

в чём это выражается?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Mepcuk

Дата 2.11.2006, 09:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет

1) Мне необходимо создат массив[k,m] случайных чисел с 0-1 в Delph, (Сделано)
2) Экспортировать массив[k,m] в ексель в где к- кол-во столбцов, м -кол-во строк

Export необходим для проверки сложных расчетов Delphi.

Mepcuk

Дата 2.11.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет

Массив типа Сингл ! хотя передаем всё равно как стринг переменную !

Albinos_x

Дата 2.11.2006, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

а вот таке не пробовал:

Код


...
var MyRange,V:OleVariant;
...
MyRange:=ExcelWorksheet1.Range['A2','C4'];
V:=VarArrayCreate([0,2,0,2], varVariant);
V[0,0]:=4;
V[0,1]:=6;
V[0,2]:=1;
V[1,0]:=8;
V[1,1]:=9;
V[1,2]:=0;
V[2,0]:=5;
V[2,1]:=7;
V[2,2]:=3;
MyRange.Value:=V;

пример этот есть в моей статье...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »