[Instantobjects-cvscommit] SF.net SVN: instantobjects: [769] trunk/Source/Core

[<na...@us...>]

Revision: 769
          http://svn.sourceforge.net/instantobjects/revision/?rev=769&view=rev
Author:   nandod
Date:     2007-02-25 07:49:44 -0800 (Sun, 25 Feb 2007)

Log Message:
-----------
* fixed two warnings.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
    trunk/Source/Core/InstantPresentation.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2007-02-25 15:46:50 UTC (rev 768)
+++ trunk/Source/Core/InstantPersistence.pas	2007-02-25 15:49:44 UTC (rev 769)
@@ -1113,7 +1113,6 @@
     property Connector: TInstantConnector read GetConnector;
     // Executes the database build step.
     procedure Execute;
-  published
     property Enabled: Boolean read FEnabled write FEnabled;
   end;
   TInstantDBBuildCommandClass = class of TInstantDBBuildCommand;

Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2007-02-25 15:46:50 UTC (rev 768)
+++ trunk/Source/Core/InstantPresentation.pas	2007-02-25 15:49:44 UTC (rev 769)
@@ -367,7 +367,11 @@
   protected
     { IProviderSupport }
     procedure PSGetAttributes(List: TList); override;
+    {$IFDEF D10+}
+    function PSGetTableNameW: WideString; override;
+    {$ELSE}
     function PSGetTableName: string; override;
+    {$ENDIF}
     procedure PSReset; override;
   protected
     procedure AddClassFieldDefs(const FieldName: string; AClass: TClass); overload;
@@ -3748,7 +3752,11 @@
 begin
 end;
 
+{$IFDEF D10+}
+function TInstantCustomExposer.PSGetTableNameW: WideString;
+{$ELSE}
 function TInstantCustomExposer.PSGetTableName: string;
+{$ENDIF}
 begin
   Result := ObjectClassName;
 end;