We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9b368e4 commit 80885a5Copy full SHA for 80885a5
example/forms/form.main.pas
@@ -57,21 +57,24 @@ TfrmMain = class(TForm)
57
frmMain: TfrmMain;
58
59
resourcestring
60
- rsFormCaption = 'Object Pascal Parser Example';
+ rsFormCaption = 'Object Pascal Parser v%s Example';
61
62
implementation
63
64
+{$R *.lfm}
65
+
66
uses
67
LCLType
68
;
69
-{$R *.lfm}
70
+const
71
+ cVersion = {$I version.inc};
72
73
{ TfrmMain }
74
75
procedure TfrmMain.FormCreate(Sender: TObject);
76
begin
- Caption:= rsFormCaption;
77
+ Caption:= Format(rsFormCaption, [ cVersion ]) ;
78
InitShortcuts;
79
FParser:= nil;
80
end;
src/version.inc
@@ -0,0 +1 @@
1
+'0.1'
0 commit comments