|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| 10/06/2009 at 06:17AM PDT, ID: 24788689 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: |
PROCEDURE XlsWriteCellLabel(XlsStream: TStream; CONST ACol, ARow: Word; CONST AValue: string);
VAR
L: Word;
CONST
{$J+}
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
{$J-}
BEGIN
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := ARow;
CXlsLabel[3] := ACol;
CXlsLabel[5] := L;
XlsStream.WriteBuffer (CXlsLabel, SizeOf(CXlsLabel));
XlsStream.WriteBuffer (Pointer(AValue)^, L);
END;
|
Advertisement