Pascal - inserire in un programma un file .pas

Forum - Pascal - inserire in un programma un file .pas

radio (Ex-Member)
Expert

Messaggi: 327
Iscritto: 03/03/2005

Postato alle 22:00
Mercoledì, 11/05/2005

ecco il mio problema ? questo

io ho diversi programmi che stavo riunendo in uno solo...
Per? viene una cosa assurda quindi li volevo collegare soltanto...

ESEMPIO STUPIDO BANALIZZANDO (non ? proprio il mio caso ma i concetto ? quelo)

Se io ho
-"somma.pas";
-"prodotto.pas";
-"programmaprincipale.pas";

come faccio da programma principale a far eseguire somma.pas e prodotto.pas?

tipo:
WriteLn('premi:');
WriteLn(' s per somma');
WriteLn('p per prodotto');
ReadLn(s);
case s of
's': ?!?
'p': ?!?

[sul mio libro di info nn c'?.......]

pak0 (Ex-Member)
Expert

Messaggi: 410
Iscritto: 13/02/2005

Postato alle 19:19
Giovedì, 12/05/2005

Beh, io ti consiglio di mettere i programmi come function o procedure!

radio (Ex-Member)
Expert

Messaggi: 327
Iscritto: 03/03/2005

Postato alle 20:26
Giovedì, 12/05/2005

? quello che ho fatto ma poi ? un casino (vine MOLTO lungo)...

Vabb? riporvo su google.. vi far? sapere se trovo qlc...

pak0 (Ex-Member)
Expert

Messaggi: 410
Iscritto: 13/02/2005

Postato alle 12:55
Domenica, 15/05/2005

Prova seguendo questo esempio (non l'ho provato)

Program esecuzione;
{$M $4000,0,0 }   { 16K stack, no heap }
uses Dos;
var
  ProgramName, CmdLine: string;
begin
  Write('Programma da eseguire (path completo): ');
  ReadLn(ProgramName);
  Write('Parametri da passare a ',
        ProgramName, ': ');
  ReadLn(CmdLine);
  WriteLn('Esecuzione...');
  SwapVectors;
  Exec(ProgramName, CmdLine);
  SwapVectors;
  WriteLn('...tornato dall''esecuzione!');
  if DosError <> 0 then { Errori? }
    WriteLn('Errore Dos N?', DosError)
  else
    WriteLn('Eseguito con successo. ',
            'Exit-code del processo figlio = ',
            DosExitCode);
end.

La funzione sarebbe:
procedure Exec(Path, CmdLine: String);

:k:

Ultima modifica effettuata da pak0 il 15/05/2005 alle 16:24

radio (Ex-Member)
Expert

Messaggi: 327
Iscritto: 03/03/2005

Postato alle 14:23
Domenica, 15/05/2005

Comunque s? funziona...

L'ho modificato togliendo la parte per i parametri da passare perch? se no (nn so come mai) non andava..

Se a qlc nteressa attenzione che nlla path si inserisce ovviamnte il programma gi? compilato e non i file .pas 8-|

Grazie mille....

Ora devo sistemare un po di cose...

Ultima modifica effettuata da pak0 il 15/05/2005 alle 16:24

hedo (Ex-Member)
Expert

Messaggi: 248
Iscritto: 03/12/2003

Postato alle 13:40
Sabato, 09/07/2005

Io passerei dalle unit, ? la cosa migliore secondo me