• R/O
  • SSH
  • HTTPS

dzprepbuild: Commit


Commit MetaInfo

Révision80 (tree)
l'heure2019-11-02 23:55:18
Auteurdummzeuch

Message de Log

added placeholder {Release}

Change Summary

Modification

--- trunk/src/u_VersionInfo.pas (revision 79)
+++ trunk/src/u_VersionInfo.pas (revision 80)
@@ -188,9 +188,9 @@
188188 finally
189189 IniFile.Free;
190190 end;
191- end else if SameText('thisyear', _s) then begin
191+ end else if SameText('ThisYear', _s) then begin
192192 Result := IntToStr(YearOf(Date));
193- end else if SameText('today', _s) then begin
193+ end else if SameText('Today', _s) then begin
194194 Result := DateTime2Iso(Date, False);
195195 end else if SameText('now', _s) then begin
196196 Result := DateTime2Iso(Date, True);
@@ -198,6 +198,8 @@
198198 Result := IntToStr(FMajorVer);
199199 end else if SameText('MinorVer', _s) then begin
200200 Result := IntToStr(FMinorVer);
201+ end else if SameText('Release', _s) then begin
202+ Result := IntToStr(FRelease);
201203 end else if SameText('ProjectName', _s) then begin
202204 Result := ExtractFileName(FProjectName);
203205 end else
Afficher sur ancien navigateur de dépôt.