v1.5.1
This commit is contained in:
parent
ee7b7164ce
commit
b617f235fa
|
|
@ -1,4 +1,4 @@
|
|||
// Version 1.5.0
|
||||
// Version 1.5.1
|
||||
|
||||
Function TOfficeObj(n);
|
||||
Begin
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
// Version 1.5.0
|
||||
// Version 1.5.1
|
||||
|
||||
Type TSDocxFile = Class
|
||||
///Version: V1.0 2022-09-20
|
||||
|
|
|
|||
|
|
@ -71,12 +71,14 @@ Type TSImage = Class
|
|||
Begin
|
||||
des1 := 0xff;
|
||||
des2 := 0xc0;
|
||||
des3 := 0xc2;
|
||||
flag := 1;
|
||||
while flag do
|
||||
begin
|
||||
stringObj_.Read(byte1, 1);
|
||||
stringObj_.Read(byte2, 1);
|
||||
if byte1 = des1 and byte2 = des2 then flag := 0;
|
||||
r1 := stringObj_.Read(byte1, 1);
|
||||
r2 := stringObj_.Read(byte2, 1);
|
||||
if r1 = 0 or r2 = 0 then break;
|
||||
if byte1 = des1 and (byte2 = des2 or byte2 = des3) then flag := 0;
|
||||
end
|
||||
if flag then return array(0, 0);
|
||||
stringObj_.Read(tmp, 3);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
// Version 1.5.0
|
||||
// Version 1.5.1
|
||||
|
||||
Type TSXlsxFile = Class
|
||||
///Version: V1.0 2022-08-08
|
||||
|
|
|
|||
Loading…
Reference in New Issue