paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Re-applied patch from Laco./src/sqldb/sqldb.pp

Browse Source 
git-svn-id: trunk@26770 -
This commit is contained in:
michael 2014-02-14 13:37:32 +00:00
parent a0f9e3fefd
commit 8c5e1550a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/examples/dbftool.lpr
View File

@ -64,7 +64,7 @@ type
else else
NewDBF.TableLevel := TableLevel; NewDBF.TableLevel := TableLevel;
NewDBF.TableName := 'CUSTOMER.DBF'; NewDBF.TableName := 'customer.dbf';
writeln('Creating ', NewDBF.TableName, ' with table level ', NewDBF.TableLevel); writeln('Creating ', NewDBF.TableName, ' with table level ', NewDBF.TableLevel);
if TableLevel >= 30 then if TableLevel >= 30 then
begin begin
@ -133,7 +133,7 @@ type
else else
NewDBF.TableLevel := TableLevel; NewDBF.TableLevel := TableLevel;
NewDBF.TableName := 'EMPLOYEE.DBF'; NewDBF.TableName := 'employee.dbf';
writeln('Creating ', NewDBF.TableName, ' with table level ', NewDBF.TableLevel); writeln('Creating ', NewDBF.TableName, ' with table level ', NewDBF.TableLevel);
if TableLevel >= 30 then if TableLevel >= 30 then
begin begin