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

TParadoxDataset: Extend demo to accept filename as commandline parameter.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6899 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-09 20:57:27 +00:00
parent cc2171f8cf
commit d891eb2fa1
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tparadoxdataset/demo/main.lfm
View File

@ -6,6 +6,7 @@ object MainForm: TMainForm
Caption = 'Paradox demo' Caption = 'Paradox demo'
ClientHeight = 413 ClientHeight = 413
ClientWidth = 734 ClientWidth = 734
OnCreate = FormCreate
OnShow = btnOpenClick OnShow = btnOpenClick
LCLVersion = '2.1.0.0' LCLVersion = '2.1.0.0'
object edFileName: TFileNameEdit object edFileName: TFileNameEdit
@ -93,7 +94,6 @@ object MainForm: TMainForm
TabOrder = 3 TabOrder = 3
end end
object Paradox: TParadoxDataSet object Paradox: TParadoxDataSet
TableName = 'D:\Prog_Lazarus\tests\_database\paradox_samplefiles\examples\CUSTOMER.DB'
FieldDefs = < FieldDefs = <
item item
Name = 'CustNo' Name = 'CustNo'

7
components/tparadoxdataset/demo/main.pas
View File

@ -20,6 +20,7 @@ type
edFileName: TFileNameEdit; edFileName: TFileNameEdit;
Paradox: TParadoxDataSet; Paradox: TParadoxDataSet;
procedure btnOpenClick(Sender: TObject); procedure btnOpenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
public public
@ -42,5 +43,11 @@ begin
Paradox.Open; Paradox.Open;
end; end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
if ParamCount > 0 then
edFileName.FileName := ParamStr(1);
end;
end. end.