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

+ added overloaded methods TOmfRawRecords.ReadFrom and .WriteTo for reading from

Browse Source 
and writing to TDynamicArray

git-svn-id: trunk@30699 -
This commit is contained in:
nickysn 2015-04-21 20:22:30 +00:00
parent a365da0b44
commit 3fa81fa7cd
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/omfbase.pas
View File

@ -212,7 +212,9 @@ interface
property ChecksumByte: Byte read GetChecksumByte write SetChecksumByte; property ChecksumByte: Byte read GetChecksumByte write SetChecksumByte;
procedure ReadFrom(aReader: TObjectReader); procedure ReadFrom(aReader: TObjectReader);
procedure ReadFrom(aReader: TDynamicArray);
procedure WriteTo(aWriter: TObjectWriter); procedure WriteTo(aWriter: TObjectWriter);
procedure WriteTo(aWriter: TDynamicArray);
end; end;
{ TOmfParsedRecord } { TOmfParsedRecord }
@ -674,11 +676,22 @@ implementation
aReader.read(RawData[0], RecordLength); aReader.read(RawData[0], RecordLength);
end; end;
procedure TOmfRawRecord.ReadFrom(aReader: TDynamicArray);
begin
aReader.read(RawData, 3);
aReader.read(RawData[0], RecordLength);
end;
procedure TOmfRawRecord.WriteTo(aWriter: TObjectWriter); procedure TOmfRawRecord.WriteTo(aWriter: TObjectWriter);
begin begin
aWriter.write(RawData, RecordLength+3); aWriter.write(RawData, RecordLength+3);
end; end;
procedure TOmfRawRecord.WriteTo(aWriter: TDynamicArray);
begin
aWriter.write(RawData, RecordLength+3);
end;
{ TOmfRecord_THEADR } { TOmfRecord_THEADR }
procedure TOmfRecord_THEADR.DecodeFrom(RawRecord: TOmfRawRecord); procedure TOmfRecord_THEADR.DecodeFrom(RawRecord: TOmfRawRecord);