From f6021a93ba6d2b6b0fdf08111eae960e29b07c8e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 22 Oct 2001 21:19:33 +0000
Subject: [PATCH]   * LoadResString, PResStringRec, TResStringRec compatibility
 added

---
 rtl/objpas/objpas.pp | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index b15236bfd1..cf4e355af9 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -54,8 +54,12 @@ unit objpas;
      { ParamStr should return also an ansistring }
      Function ParamStr(Param : Integer) : Ansistring;
 
-Type
-   TResourceIterator = Function (Name,Value : AnsiString; Hash : Longint) : AnsiString;
+{****************************************************************************
+                             Resource strings.
+****************************************************************************}
+
+   type
+     TResourceIterator = Function (Name,Value : AnsiString; Hash : Longint) : AnsiString;
 
    Function Hash(S : AnsiString) : longint;
    Procedure ResetResourceTables;
@@ -68,6 +72,11 @@ Type
    Function GetResourceStringCurrentValue(TableIndex,StringIndex : Longint) : AnsiString;
    Function SetResourceStringValue(TableIndex,StringIndex : longint; Value : Ansistring) : Boolean;
 
+   { Delphi compatibility }
+   type
+     PResStringRec=^AnsiString;
+     TResStringRec=AnsiString;
+   Function LoadResString(p:PResStringRec):AnsiString;
 
 
   implementation
@@ -342,6 +351,13 @@ begin
    ResourceStringTable.Tables[TableIndex]^.ResRec[StringIndex].CurrentValue:=Value;
 end;
 
+Function LoadResString(p:PResStringRec):AnsiString;
+
+begin
+  Result:=p^;
+end;
+
+
 Initialization
   ResetResourceTables;
 finalization
@@ -350,7 +366,10 @@ end.
 
 {
   $Log$
-  Revision 1.7  2001-08-19 21:02:02  florian
+  Revision 1.8  2001-10-22 21:19:33  peter
+    * LoadResString, PResStringRec, TResStringRec compatibility added
+
+  Revision 1.7  2001/08/19 21:02:02  florian
     * fixed and added a lot of stuff to get the Jedi DX( headers
       compiled