paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use correct paths for files when demo database is created on demand (Patch from Graeme Geldenhuys, Bug ID #32360)

Browse Source 
git-svn-id: trunk@37107 -
This commit is contained in:
michael 2017-09-02 09:03:58 +00:00
parent f40c23fcc8
commit ada62f0b41
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-report/demos/rptdataset.pp
View File

@ -150,35 +150,35 @@ begin
lDataSet.FieldByName('Name').AsString := 'Kimi Raikkonen'; lDataSet.FieldByName('Name').AsString := 'Kimi Raikkonen';
lDataSet.FieldByName('Address').AsString := 'kimi@nospam.net'; lDataSet.FieldByName('Address').AsString := 'kimi@nospam.net';
lDataSet.FieldByName('Age').AsInteger := 35; lDataSet.FieldByName('Age').AsInteger := 35;
TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man01.png')); TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man01.png'));
lDataSet.Post; lDataSet.Post;
lDataSet.Insert; lDataSet.Insert;
lDataSet.FieldByName('Name').AsString := 'Michael Schumacher'; lDataSet.FieldByName('Name').AsString := 'Michael Schumacher';
lDataSet.FieldByName('Address').AsString := 'michael@schumacher.org'; lDataSet.FieldByName('Address').AsString := 'michael@schumacher.org';
lDataSet.FieldByName('Age').AsInteger := 28; lDataSet.FieldByName('Age').AsInteger := 28;
TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man02.png')); TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man02.png'));
lDataSet.Post; lDataSet.Post;
lDataSet.Insert; lDataSet.Insert;
lDataSet.FieldByName('Name').AsString := 'Alain Prost'; lDataSet.FieldByName('Name').AsString := 'Alain Prost';
lDataSet.FieldByName('Address').AsString := 'alain@prost.com'; lDataSet.FieldByName('Address').AsString := 'alain@prost.com';
lDataSet.FieldByName('Age').AsInteger := 64; lDataSet.FieldByName('Age').AsInteger := 64;
TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man03.png')); TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man03.png'));
lDataSet.Post; lDataSet.Post;
lDataSet.Insert; lDataSet.Insert;
lDataSet.FieldByName('Name').AsString := 'Jenson Button'; lDataSet.FieldByName('Name').AsString := 'Jenson Button';
lDataSet.FieldByName('Address').AsString := 'jenson@button.info'; lDataSet.FieldByName('Address').AsString := 'jenson@button.info';
lDataSet.FieldByName('Age').AsInteger := 50; lDataSet.FieldByName('Age').AsInteger := 50;
TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man04.png')); TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man04.png'));
lDataSet.Post; lDataSet.Post;
lDataSet.Insert; lDataSet.Insert;
lDataSet.FieldByName('Name').AsString := 'Fernando Allonso'; lDataSet.FieldByName('Name').AsString := 'Fernando Allonso';
lDataSet.FieldByName('Address').AsString := 'fernando@allonso-team.net'; lDataSet.FieldByName('Address').AsString := 'fernando@allonso-team.net';
lDataSet.FieldByName('Age').AsInteger := 47; lDataSet.FieldByName('Age').AsInteger := 47;
TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man05.png')); TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man05.png'));
lDataSet.Post; lDataSet.Post;
Dataset := lDataset; Dataset := lDataset;