fixed compiling, changed paradox.pas to paradoxds.pas for compatibility reasons

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1190 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tparadoxdataset/lazparadox.lpk

@@ -1,18 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
-  <Package Version="2">
+  <Package Version="3">
     <PathDelim Value="\"/>
     <Name Value="lazparadox"/>
     <Author Value="Christian Ulrich"/>
     <CompilerOptions>
-      <Version Value="5"/>
+      <Version Value="8"/>
       <PathDelim Value="\"/>
       <SearchPaths>
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
-      <CodeGeneration>
-        <Generate Value="Faster"/>
-      </CodeGeneration>
       <Other>
         <CompilerPath Value="$(CompPath)"/>
       </Other>
@@ -27,7 +24,8 @@
         <UnitName Value="paradoxreg"/>
       </Item1>
       <Item2>
-        <Filename Value="paradox.pas"/>
+        <Filename Value="paradoxds.pas"/>
+        <UnitName Value="paradoxds"/>
       </Item2>
     </Files>
     <Type Value="RunAndDesignTime"/>

components/tparadoxdataset/paradoxds.pas

@@ -1,4 +1,4 @@
-unit paradox;
+unit paradoxds;
 
 { TParadoxdataSet
   Christian Ulrich christian@ullihome.de
@@ -356,7 +356,7 @@ begin
     begin
       case F^.fType of
       pxfAlpha:    Fielddefs.Add(StrPas(FNamesStart),ftString,F^.fSize);
-      pxfDate:     Fielddefs.Add(StrPas(FNamesStart),ftDate,F^.fSize);
+      pxfDate:     Fielddefs.Add(StrPas(FNamesStart),ftDate,0);
       pxfShort:    Fielddefs.Add(StrPas(FNamesStart),ftSmallInt,F^.fSize);
       pxfLong:     Fielddefs.Add(StrPas(FNamesStart),ftInteger,F^.fSize);
       pxfCurrency: Fielddefs.Add(StrPas(FNamesStart),ftFloat,F^.fSize);

components/tparadoxdataset/paradoxreg.pas

@@ -5,7 +5,7 @@ unit paradoxreg;
 interface
 
 uses
-  Classes, SysUtils, LResources, Paradox, LazarusPackageIntf, PropEdits;
+  Classes, SysUtils, LResources, Paradoxds, LazarusPackageIntf, PropEdits;
 
 resourcestring
   dbfsAllparadoxfiles = 'Paradox Files';
@@ -35,7 +35,7 @@ end;
 
 procedure Register;
 begin
-  RegisterUnit('paradox',@RegisterUnitParadox);
+  RegisterUnit('paradoxds',@RegisterUnitParadox);
 end;
 
 initialization