Fórum procedure no delphi #185215

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

procedure apenaInput(nome:string);
procedure inputOutput(var nome:string);
function sempredaOutput(nome:string):string;

implementation

{$R *.dfm}

procedure apenaInput(nome:string);
begin
// é apenas entrada
end;

procedure inputOutput(var nome:string);
begin
// o detalhe aqui é o var, ele indica ser por referencia, ou seja, input/output
end;

function sempredaOutput(nome:string):string;
begin

end;

end.


repara no lugar onde declarei estas procedures... assim são globais a unit. Se vc não declarar elas ´em cima´ elas não serão enchergadas fora da unit nem por outra procedure q esteja declarada acima dela