Kennt jemand einen Weg wie unterschiedliche Units für das Release und Debug zu händeln ist?
Zur erklärung:
Ich habe einen Updater geschrieben in dem eine
Unit vorkommt die unterschiedliche Werte (bsp.pfadangaben) zum auslesen hat.
Dieses Projekt wird in das jeweilige Hauptprojekt(app), der upzudatenden Application, neu erstellt. (updater für proj X)
Beide Projecte sind bis auf eine
Unit identisch. -> variable_datas.pas
Jedes Hauptprojekt(app) erhält somit seinen eigenen (updater für proj X) mit nur unterschiedlicher variable_datas.pas.
Per Knöpfchen im Updater werden die Quellcodedateien, ausser die variable_datas.pas, vom Updater zu (updater für proj X) überschrieben, schreibgeschützt und das (updater für proj X) Projekt mit eigener variable_datas.pas compiliert.
Struktur:
Updater
-- (updater für proj X) mit eigener variable_datas.pas
-- (updater für proj Y) mit eigener variable_datas.pas
-- (updater für proj Z) mit eigener variable_datas.pas
Hauptprojekt(app X )
-- -- (updater für proj X) mit eigener variable_datas.pas
Hauptprojekt(app Y )
-- -- (updater für proj Y) mit eigener variable_datas.pas
Hauptprojekt(app Z )
-- -- (updater für proj Z) mit eigener variable_datas.pas
Ausschnitt Updater variable_datas.pas
Delphi-Quellcode:
unit variable_datas;
interface
function give_DATA( s1, s2 :
string; i1, i2 :integer ):
string;
//umgelenkte proceduren und functionen -- diese codes sind nur für den HAUPTUPDATER verfügbar
procedure refresh_UPDATERcodes_Link( func, selected_entry, sender_button_number :
string);
implementation
uses unit1;
function give_DATA( s1, s2 :
string; i1, i2 :integer ):
string;
begin
reult := '
hier mein wert nur für updater'
end;
refresh_UPDATERcodes( func, selected_entry, sender_button_number );
begin
dateien vergleichen, schreibschutz raus, dateien kopieren, schreibschutz rein, projektdatei suchen, compilieren
end;
procedure refresh_UPDATERcodes_Link( func, selected_entry, sender_button_number :
string);
begin
refresh_UPDATERcodes( func, selected_entry, sender_button_number );
end;
end.
Ausschnitt updater für proj Y variable_datas.pas
Delphi-Quellcode:
unit variable_datas;
interface
function give_DATA( s1, s2 :
string; i1, i2 :integer ):
string;
//umgelenkte proceduren und functionen -- diese codes sind nur für den HAUPTUPDATER verfügbar
procedure refresh_UPDATERcodes_Link( func, selected_entry, sender_button_number :
string);
implementation
uses unit1;
function give_DATA( s1, s2 :
string; i1, i2 :integer ):
string;
begin
reult := '
hier mein wert nur für updater für proj Y'
end;
procedure refresh_UPDATERcodes_Link( func, selected_entry, sender_button_number :
string);
begin
//nix
end;
end.
Etwas ähnliches schwebt mir nun für die Debugversion und Releaseversion vor.
Codes die ich im Debugmodus brauche möchte ich im Releasemodus ins leere laufen lassen.