Made FPC version of TStringStream compatible

Pawe1 · May 14, 2015 · be36295 · be36295
1 parent a4ce30e
commit be36295
Showing 1 changed file with 30 additions and 0 deletions.
diff --git a/Source/DelphiAST.pas b/Source/DelphiAST.pas
@@ -209,6 +209,36 @@   TPasSyntaxTreeBuilder = class(TmwSimplePasPar)
 
 implementation
 
+{$IFDEF FPC}
+  type
+
+   TStringStreamHelper = class helper for TStringStream
+      class function Create: TStringStream; overload;
+      procedure LoadFromFile(const FileName: string);
+    end;
+
+  { TStringStreamHelper }
+
+  class function TStringStreamHelper.Create: TStringStream;
+  begin
+    Result := TStringStream.Create('');
+  end;
+
+  procedure TStringStreamHelper.LoadFromFile(const FileName: string);
+  var
+    Strings: TStringList;
+  begin
+    Strings := TStringList.Create;
+    try
+      Strings.LoadFromFile(FileName);
+      Strings.SaveToStream(Self);
+    finally
+      FreeAndNil(Strings);
+    end;
+  end;
+{$ENDIF}
+
+
 { TPasSyntaxTreeBuilder }
 
 procedure TPasSyntaxTreeBuilder.AccessSpecifier;