paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 01:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

dbexport: fixed compilation

Browse Source 
git-svn-id: trunk@20247 -
This commit is contained in:
mattias 2009-05-26 16:43:13 +00:00
parent d041398824
commit 673877bf9e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/dbexport/demo/gendata.pp
View File

@ -1,8 +1,10 @@
Unit gendata;
{$mode objfpc}{$H+}
Interface
Uses Classes,SysUtils, DB, dbf;
Uses Classes, SysUtils, DB, dbf;
Const
DefFirstNamesFile = 'firstnames.txt';
@ -124,10 +126,10 @@ begin
Randomize;
FN:=TStringList.Create;
Try
FN.LoadFromFile(UTF8ToSys(FFirstNamesFile));
FN.LoadFromFile(UTF8ToAnsi(FFirstNamesFile));
LN:=TStringList.Create;
Try
LN.LoadFromFile(UTF8ToSys(FLastNamesFile));
LN.LoadFromFile(UTF8ToAnsi(FLastNamesFile));
Assign(F,FOutputFile);
Rewrite(F);
Try