pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1190 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2010-03-29 13:20:42 +00:00
parent 2b1003a58a
commit ef8088c301
3 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tparadoxdataset/lazparadox.lpk
View File

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

4
components/tparadoxdataset/paradox.pas → components/tparadoxdataset/paradoxds.pas
View File

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

4
components/tparadoxdataset/paradoxreg.pas
View File

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