[r3]: / testproject-prj,testproject,code / Project Information_1 / GetVersionProperty / svnobj  Maximize  Restore  History

Download this file

12 lines (11 with data), 2.6 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
IF stKey = "Version" THEN
	GetVersionProperty.uiMajor := 3;
	GetVersionProperty.uiMinor := 1;
	GetVersionProperty.uiServicePack := 5;
	GetVersionProperty.uiPatch := 1;
ELSE
	GetVersionProperty.uiMajor := 0;
	GetVersionProperty.uiMinor := 0;
	GetVersionProperty.uiServicePack := 0;
	GetVersionProperty.uiPatch := 0;
END_IF