FiveTech Software tech support forums

... nRows );

// Copiar y escalar los datos
for( i = 0; i < nRows; i++ )
{
PHB_ITEM pRow = hb_arrayGetItemPtr( pMatrix, i + 1 );
HB_SIZE nCols = hb_arrayLen( pRow );

PHB_ITEM pRowResult = hb_itemArrayNew( nCols );

for( j = 0; j < nCols; j++ )
{
double value = hb_arrayGetND( pRow, j ...

... nRows );

// Copiar y escalar los datos
for( i = 0; i < nRows; i++ )
{
PHB_ITEM pRow = hb_arrayGetItemPtr( pMatrix, i + 1 );
HB_SIZE nCols = hb_arrayLen( pRow );

PHB_ITEM pRowResult = hb_itemArrayNew( nCols );

for( j = 0; j < nCols; j++ )
{
double value = hb_arrayGetND( pRow, j ...

... nRows );

// Copiar y escalar los datos
for( i = 0; i < nRows; i++ )
{
PHB_ITEM pRow = hb_arrayGetItemPtr( pMatrix, i + 1 );
HB_SIZE nCols = hb_arrayLen( pRow );

PHB_ITEM pRowResult = hb_itemArrayNew( nCols );

for( j = 0; j < nCols; j++ )
{
double value = hb_arrayGetND( pRow, j ...

Using InsertTable( nRows, nCols )method of Trichedit
How insert data info on each cells?

For a sample I have an array aschema is 3 rows with 10 columns
How create a table on Rtf with this array ?

... Nueva clase FW_Matrix (para cálculos matriciales)

CLASS FW_Matrix:

DATAs de sólo lectura y métodos de acceso:

DATA aMatrix READONLY
DATA nRows, nCols READONLY
ACCESS lSquare INLINE ( ::nRows == ::nCols )
ACCESS Determinant INLINE If( ::nRows == ::nCols, m_determinant( ::aMatrix ), 0 )
ACCESS ...

... 39736
* New CLASS FW_Matrix (for matrix calculations)
CLASS FW_Matrix:

READ ONLY DATAS AND ACCESS METHODS:

DATA aMatrix READONLY
DATA nRows, nCols READONLY
ACCESS lSquare INLINE ( ::nRows == ::nCols )
ACCESS Determinant INLINE If( ::nRows == ::nCols, m_determinant( ::aMatrix ), 0 )
ACCESS ...

CLASS FW_Matrix:


READ ONLY DATAS AND ACCESS METHODS:

DATA aMatrix READONLY
DATA nRows, nCols READONLY
ACCESS lSquare INLINE ( ::nRows == ::nCols )
ACCESS Determinant INLINE If( ::nRows == ::nCols, m_determinant( ::aMatrix ), 0 )
ACCESS IsIdentity

CONSTRUCTOR METHODS:

METHOD New( aArray ...

... tienes tu objeto de Excel, puedes usar estar instrucciones de Excel:

nFils := oXls:oSheet:UsedRange:Rows:Count() //<--- No de Filas o registros
nCols := oXls:oSheet:UsedRange:Columns:Count() //<--- No de Columas

Yo lo utilizo, usando la clase TExcelScrip()
cFile := "C:\doctos\excel\doctoexcel ...

... tienes tu objeto de Excel, puedes usar estar instrucciones de Excel:

nFils := oXls:oSheet:UsedRange:Rows:Count() //<--- No de Filas o registros
nCols := oXls:oSheet:UsedRange:Columns:Count() //<--- No de Columas

Yo lo utilizo, usando la clase TExcelScrip()
&nbsp; &nbsp;cFile := "C:\doctos ...

... objeto de conexión Dolphin, sin proporcionar información
al servidor de nuevo.
Por ejemplo: oCn := maria_Connect( oServer )
- El método SetTree( nCols, [aBmps] ) de XBrowse, ahora funciona con "RowSets - Conjunto de filas" también.
- Corrección: Error raro en el método CreateTable() cuando se usan ...

... from dolphin connection
object, without providing server information again
Eg: oCn := maria_Connect( oServer )

- XBrowse method SetTree( nCols, [aBmps] ) now works with RowSets also.

- Fix: Rare bug in method CreateTable() when some collations are used for
individual columns.

- method ...

Noe:

Muchas gracias, parece que las líneas

nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()

Son las que me sacarán del problema.

Saludos

... bNewCodeblock>],[<bCondition>])->bOldCodeblock
SetLastError(<nNewErrorCode>)->nOldErrorCode
SetLastKey(<nKey>)->cNullString
SetMode(<nRows>,<nCols>)->lSuccess
SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible
SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess
SetNewTime(<nHour>,<nMinute ...

... bNewCodeblock>],[<bCondition>])->bOldCodeblock
SetLastError(<nNewErrorCode>)->nOldErrorCode
SetLastKey(<nKey>)->cNullString
SetMode(<nRows>,<nCols>)->lSuccess
SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible
SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess
SetNewTime(<nHour>,<nMinute ...

yes of course !!!

BUT I not Know the value of nRows and nCols
if at init I made
aVal:={ }

then not run because the procedure understood the array is simply and not multiple as

aVal:={ { } ,;
{ },;
{ } }

I insert 3 records for make a sample