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