Skip to content

Commit 80885a5

Browse files
committed
chore: Adding a version file
1 parent 9b368e4 commit 80885a5

File tree

2 files changed

+7
-3
lines changed

2 files changed

+7
-3
lines changed

example/forms/form.main.pas

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -57,21 +57,24 @@ TfrmMain = class(TForm)
5757
frmMain: TfrmMain;
5858

5959
resourcestring
60-
rsFormCaption = 'Object Pascal Parser Example';
60+
rsFormCaption = 'Object Pascal Parser v%s Example';
6161

6262
implementation
6363

64+
{$R *.lfm}
65+
6466
uses
6567
LCLType
6668
;
6769

68-
{$R *.lfm}
70+
const
71+
cVersion = {$I version.inc};
6972

7073
{ TfrmMain }
7174

7275
procedure TfrmMain.FormCreate(Sender: TObject);
7376
begin
74-
Caption:= rsFormCaption;
77+
Caption:= Format(rsFormCaption, [ cVersion ]) ;
7578
InitShortcuts;
7679
FParser:= nil;
7780
end;

src/version.inc

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
'0.1'

0 commit comments

Comments
 (0)