Hallo zusammen,
nun habe ich noch ein Phänomen mit dem OTAPI-Experten.
- Die Build-Nr. wird *immer* mit dem OTAPI-Experten in den Projektoptionen gesetzt! Fein!
- Bei den meisten Projekten wird die Build-Nr. auch
in die Exe übernommen. Aber eben nicht bei allen Projekten (gefühlt bei größeren Projekten nicht), obwohl die richtige Build-Nr. ja *immer* in den Projektoptionen steht!
- Erst wenn ich bei den Projektoptionen dort explizit auf den Button "Speichern" gehe, wird die Build-Nr. auch
in die Exe übernommen.
Ich habe schon einiges versucht aber nichts hatte geholfen.
Delphi-Quellcode:
PROCEDURE TBeforeCompile.BeforeCompile( CONST Project: IOTAProject; IsCodeInsight: Boolean; VAR Cancel: Boolean );
VAR
ls_my_Build_Number: STRING;
BEGIN
IF NOT IsCodeInsight THEN
BEGIN
TRY
ls_my_Build_Number := FormatDateTime( 'YY', Now ) + RightStr( '0' + IntToStr( WeekOfTheYear( Now ) ), 2 ) + IntToStr( DayOfTheWeek( Now ) );
( Project.ProjectOptions AS IOTAProjectOptionsConfigurations ).ActiveConfiguration.AsInteger[sVerInfo_Build { uses CommonOptionStrs } ] :=
StrToIntDef( ls_my_Build_Number, 99999 );
sleep( 2000 );{ TODO 2 -oJS -cwichtig : Test, muss entfernt werden }
Project.Refresh (True); { TODO 2 -oJS -cwichtig : Test, muss entfernt werden }
Project.ProjectOptions.ModifiedState := True;
sleep( 2000 );{ TODO 2 -oJS -cwichtig : Test, muss entfernt werden }
EXCEPT
ShowMessage( 'Dieser Fehler kommt aus dem OTAPI-Experten für das Erstellen der Build-Nr. in den Projektoptionen!' );
END;
END;
END;
Hat jemand hier noch einen Ansatz woran das liegen könnte?
Vielen Dank schon mal vorab!