Excel - Export ohne Excel - Problem beim erzeugen

[Chemiker]

Hallo fs999,

Du kannst bei der Function auch direkt den Wert mitgeben:

Delphi-Quellcode:

// FS999 Änderung 
  TXLS_NUMBERRec= packed record    // Number-Record von Excel 
    RecCode: Word;                // $203 Bei Biff 8 
    RecLaenge: Word;              // Record Länge // muss zuvor berechnet werden 
    Row: Word;                    // Zeilen-Nr. beginnt bei 0 
    Col: Word;                    // Spalten-Nr. beginnt bei 0 
    IndexXFRec: Word;             // noch nicht ganz verstanden // erstmal=0
    Zahl: double;                 // Zahl double  
  end; 
// Ende

Aufruf dann:

Delphi-Quellcode:

// FS999 Änderung 
{------------------------------------------------------------------------------} 
function XLS_FloatFuellen(const Zeile,Spalte: Word; aWert: double):TXLS_NUMBERRec; 
begin 
  with Result do 
  begin 
    RecCode:= $203; 
    RecLaenge:= 14; 
    Row:= Zeile; 
    Col:= Spalte; 
    IndexXFRec:= 0;
    Zahl:= aWert;
  end; 
end; 
// Ende

Bis bald Chemiker