pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Identify some unknown formula tags in DEFINEDNAME records.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4500 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-02-14 14:16:28 +00:00
parent 1f55bbd8b7
commit 42e34dc695
1 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas
View File

@ -1722,6 +1722,36 @@ begin
token := FBuffer[FBufferIndex]; token := FBuffer[FBufferIndex];
numBytes := 1; numBytes := 1;
case token of case token of
$10:
begin
numBytes := 1;
ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
'Token tList (List operator)');
end;
$29, $39, $49:
begin
case token of
$29: s := 'Token tMemFuncR';
$39: s := 'Token tMemFuncV';
$49: s := 'Token tMemFuncV';
end;
ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]), s);
if FFormat = sfExcel2 then
begin
numbytes := 1;
b := FBuffer[FBufferIndex];
w := b;
end else
begin
numbytes := 2;
Move(FBuffer[FBufferIndex], w, numbytes);
w := WordLEToN(w);
end;
ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
'Size of following subexpression (ends after offset ' + IntToStr(FBufferIndex+w-1+numbytes) + ')');
end;
$3A, $3B, $5A, $5B, $7A, $7B: $3A, $3B, $5A, $5B, $7A, $7B:
begin begin
case token of case token of