[DELPHI] Unire due file eseguibile

[Dalton]

Salve a tutti. Ho creato due file exe ognuno con diverse funzioni ma con i nomi delle procedure e dei componenti uguali.Mi chiedevo se è possibile unirli in un unico exe senza dover rinominare tutto, si può fare??se si come? grazie a tutti ciao!

[oregon]

Non ho capito benissimo ma, prima di tutto ... vuoi operare sugli eseguibili o sui sorgenti (che sono in tuo possesso ...) ...?

[Dalton]

sui sorgenti ma se nn c'è un metodo anche sugli eseguibili ciao!

[oregon]

No ... no ... ovviamente sui sorgenti ... avevo capito che lo volevi fare sugli eseguibili ...

A questo punto, spiega meglio ...

[Dalton]

ho due applicazioni fatte da me che hanno molti componenti con i nomi in comune. Se unisco queste due porzioni di codice le azioni di un applicazione o dell'altra saltano come per dire se ho procedure butto1.click...... due volte credo che uno sovrascriva l'altro mentre se faccio due unit il button1.click o fa un azione o un altra lo so..nn mi spiego bene ma è complicato da spiegare

[Dalton]

es:
1)
procedure TForm1.Button22Click(Sender: TObject);
var
fileSource, fileDest: string;
fileSource1, fileDest1: string;
begin
dbf4.Active:=false;
dbf5.Active:=false;
dbf6.Active:=false;
fileSource := 'C:\Des\DB\'+edit4.text+'\AREliminare.dbF';
fileDest := 'C:\DB\AREliminare.dbf';
CopyFile(PChar(fileSource), PChar(fileDest), False);
fileSource1 := 'C:\Des\DB\'+edit4.text+'\ARInserire.DBF';
fileDest1 := 'C:\DB\ARInserire.dbf';
CopyFile(PChar(fileSource1), PChar(fileDest1), False);
end;

2)
procedure TForm1.Button22Click(Sender: TObject);
var
i:integer;
begin

For I :=dbf8.ExactRecordCount downto 1 do
Button35Click(Sender);
For I :=dbf9.ExactRecordCount downto 1 do
Button32Click(Sender);

end;

[alka]

Ciò che vuoi fare non è per nulla chiaro. Parlare di "fusione" di due eseguibili senza specificare in quale modo dovrebbero mescolarsi non ha alcun senso, così come non si comprende l'utilità di una simile cosa.