.exemple pour améliorer mon prog.   Com control  (delphi4)
.....
procedure  flash(line:  ...???
.....

if   var = 1  then 
          flash(TXD)  //   autres line ex. DTR,RTS .....
....
....
procedure  flash(line  ....???
begin
 line(1) ;      //   line  TXD  on
delay(100);
line(0);       // line TXD  off
end;

FredyLaPoc47

salut,
il est possible sous delphi de faire des procedures imbriquées sous condition que la procedure appelée soit déclarée avant son appel et placé en dehors du corps de la procedure appelante

procedure principale;
var:.....//déclaration des variables
    procedure appelée(.....) //à mettre au début
    begin
        //corps de procedure appelée

    end;
begin   //debut de procedure principale
    // corps de procédure principale

    appelée(.....)

end;

@+
jlen

Juste une petite précision sur l'utilisation d'une procedure dans une autre... Dans le cas où celle qui est dans l'autre est utilisée récursivement, il arrive beaucoup plus vite un EStackOverflow (bon il faut vraiment en abuser quand même) qu'en la mettant en dehors.
Voilà, c'était juste une précision comme ca en passant ^^

Tout problème a sa solution... Mais en général, c'est jamais la bonne...

{$R *.DFM}     // ------------  je  reformuler ma question --------------
// inport externe in rscom.dll
procedure TXD(d:WORD); stdcall; external 'RSCOM.DLL';

procedure flashTXD;
begin
  TXD(1);    // out pin 3
  DELAY(vtd);
  TXD(0);    // reset pin 3
  DELAY(vtd);
end;
procedure flashRTS;
begin
  RTS(1);    // out pin 7
  DELAY(vtd);
  RTS(0);    // reset pin 7
  DELAY(vtd);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin   // timer.interval set 1  by user
   if vTXD = 1 then flashTXD      
   if vRTS = 1 then flashRTS     //   pour s'implifier je veux remplacer par

  ex ..      if  vRTS = 1 then  flash(RTS)  //  choix RST ou TXD
                                              // et avoir une seule procedure flash ???
FredyLaPoc47

je vois ton problème mais je ne pense pas que tu puisses passer une procedure externe en parametre par contre tu peux faire comme cela (ça ne gagne pas grand chose )
procedure flash(TR:Boolean);
begin
    if TR then
    begin
      TXD(1);    // out pin 3
      sleep(vtd);
      TXD(0);    // reset pin 3
      sleep(vtd);
    end else
    begin
      RTS(1);    // out pin 7
      sleep(vtd);
      RTS(0);    // reset pin 7
      sleep(vtd);
    end;
end;


@+
jlen

avec ajout d'autre type :




type
   TFlashMode = (fmTXD,fmRTS,fmDTR);

function Flash(const DC : byte; const Mode : TFlashMode) : boolean;
begin
  if DC = 1 then begin
    case Mode of
        0 : begin TXD(1); Delay(vtd); TXD(0); Delay(vtd); end;
        1 : begin RTS(1); Delay(vtd); RTS(0); Delay(vtd); end;
        2 : begin DTR(1); Delay(vtd); DTR(0); Delay(vtd); end;
    end;
    result := true;
  end else
    result := false;
end;

...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Flash(vTXD,fmTXD) then label1.caption := '>> TXD';
  if Flash(vRTS,fmRTS) then label1.caption := '>> RTS';
  if Flash(vDTR,fmDTR) then label1.caption := '>> DTR';
end;

---

La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

---

//  bravo    voici la version finale
type
   TFlashLine = (LTXD,LDTR,LRTS); // lines

procedure Flash(const line : TFlashLine); 
begin
  case line of
    LTXD : begin TXD(1); Delay(vtd); TXD(0); Delay(vtd); end;
    LDTR : begin DTR(1); Delay(vtd); DTR(0); Delay(vtd); end;
    LRTS : begin RTS(1); Delay(vtd); RTS(0); Delay(vtd); end;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject); 
begin   // timer.interval set 1  by user
  if vBT + vTXD = 2 then Flash(LTXD) // flash line TXD
 ....  ect..

encore merci