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

  and writing to TDynamicArray

git-svn-id: trunk@30699 -

compiler/omfbase.pas

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