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

* fcl-db: dbftool: cosmetic/silence warning

Browse Source 
git-svn-id: trunk@29064 -
This commit is contained in:
reiniero 2014-11-12 09:29:55 +00:00
parent 26913387cf
commit ce54992e07
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,6 +61,7 @@ type
i: integer; i: integer;
begin begin
// Get current working directory (need not be application directory): // Get current working directory (need not be application directory):
CurDir := '';
GetDir(0,CurDir); GetDir(0,CurDir);
NewDBF := TDBF.Create(nil); NewDBF := TDBF.Create(nil);
@ -228,7 +229,7 @@ type
end; end;
end; end;
// Gets list of all .dbf files in a directory and its subdirectories. // Gets list of all .dbf files in current directory and its subdirectories.
procedure GetDBFList(Results: TStringList); procedure GetDBFList(Results: TStringList);
var var
r: TSearchRec; r: TSearchRec;