paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add SkipValue to TReader

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-08 11:50:49 +01:00
parent d2f3426bda
commit 54d692c7d6
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/classesh.inc
View File

@ -1864,6 +1864,7 @@ type
function EndOfList: Boolean;
procedure EndReferences;
procedure FixupReferences;
procedure SkipValue;
function NextValue: TValueType;
//Please don't use read, better use ReadBinary whenever possible
//uuups, ReadBinary is protected ..

6
rtl/objpas/classes/reader.inc
View File

@ -1070,6 +1070,12 @@ begin
end;
end;
procedure TReader.SkipValue;
begin
FDriver.SkipValue;
end;
procedure TReader.ReadData(Instance: TComponent);
var
SavedOwner, SavedParent: TComponent;