richiamre procedura

[naderit]

Buongiorno, sono nuovo e da vero principiante vorrei chiedere se è possibile richiamare una procedura da altra procedura?


 

Codice: [Seleziona]

procedure TForm1.Button2Click(Sender: TObject);
begin
    MiaProcedura();
end;

procedure MiaProcedura();

begin

end;               

   

Grazie mille

[Avogadro]

Adesso non ricordo tutti i dettagli, ma occore rispolverare le regole di visibilità di variabili, procedure  e funzioni.

Rispetto al pascal standard le versioni attuali hanno diversi approcci per gestire la riusabilità del codice.

Il caso piu' semplice in lazarus è dichiarare la procedura prima della procedura chiamante  all' interno della unit, dopo la clausa "implementation"

se si vogliono usare procedure  di altre unit occorre usare la clausa "uses"

Cut & paste da un mio software:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, TADbSource, TAStyles,
  PrintersDlgs, Forms, Controls, Graphics, Dialogs, Menus, ActnList, ComCtrls,
  DBGrids, DbCtrls, StdActns, ExtDlgs, StdCtrls, RLReport, RLPDFFilter,
  ZConnection, ZDataset, db, strutils, math, fpexprpars, Clipbrd, LCLIntf,
  LCLType, unit2, unit3, unit4, UNIT5, LR_Class, LR_DBSet;

type

  { TForm1 }

  TForm1 = class(TForm)
    CalendarDialog1: TCalendarDialog;
    Chart1: TChart; 
....

implementation

uses
    OSPrinters,  Printers;
{$R *.lfm}

{ TForm1 }
function t95(n:integer): real;
// t student at 95 %
var t: real;
begin
  t:=2.0;
  if n<1 then
     t:=0;
  case n of
       1:t:=   12.71;
       2:t:=   4.3 ;
       3:t:=   3.18;
       4:t:=   2.78;
       5:t:=   2.57;
       6:t:=   2.45;
       7:t:=   2.36;
       8:t:=   2.31;
       9:t:=   2.26;
       10:t:=   2.23;
       11:t:=   2.2;
       12:t:=   2.18;
       13:t:=   2.16;
       14:t:=   2.14;
       15:t:=   2.13;
       16:t:=   2.12;
       17:t:=   2.11;
       18:t:=   2.1;
       19:t:=   2.093;
       20:t:=   2.086;
       end;
  t95:=t;
end;
     
...

procedure TForm1.MenuItem10Click(Sender: TObject);
// references
//  1. http://www.itl.nist.gov/div898/handbook/pmc/section3/pmc321.htm#Factors%20for%20Calculating%20Limits
//     
....

 memo1.Lines.Add(format('Limite di ripetibilità= sxb*s^1/2*t= %8.4f %s',[sxb*sqrt(2)*t95(nd-1),ztable3LBLY.AsString]));
 
...

end;

[supercim]

Io faccio in questo semplice modo:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);

  private
    { private declarations }
    procedure videata1;

  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
     videata1;
end;



procedure TForm1.videata1;
begin
     Label1.Caption:='Intestazione';
end;

end.
                   


Inserisco in: private
le mie procedure personali ( videata1 )
 e poi le chiamo, nel corso del programma. 
In questo caso in: procedure TForm1.FormCreate(Sender: TObject);

[xinyiman]

Assolutamente si, ho scritto degli articoli al riguardo:

Per procedure e funzioni vedere:
http://www.lazaruspascal.it/index.php?page=29

Mentre per le funzioni ricorsive vedere:
http://www.lazaruspascal.it/index.php?page=32

[naderit]

Benissimo
grazie mille per le risposte