Fórum Passagem de Parâmetro #422503

procedure Somar(valor : integer)
begin
  valor := valor + 1;//a variável passada não é alterada nesse ponto
  ShowMessage(IntToStr(valor));
end;

procedure Somar(var valor : integer)
begin
  valor := valor + 1;//a variável passada é alterada nesse ponto
  ShowMessage(IntToStr(valor));
end;

var
numero : integer;
begin
numero := 1;
Somar(numero);
//após isso, a variável número continua com o valor 1

var
numero : integer;
begin
numero := 1;
Somar(var numero);
//após isso, a variável número contém o valor 2, pois foi alterada no método

procedure Acrescentar(a:integer); // passagem por valor
begin
a:=a+5;
showmessage(inttostr(a));
end;

var
b:integer
begin
b:=5; // variavel b recebe o valor de 5
Acrescentar(b); chamo a procedure me mostra a mensagem de 10;
showmessage('O Valor de b continua sendo ='+inttostr(b)); //continua sendo 5 pois passou-se por Valor
end;

procedure Acrescentar(var a:integer); // passagem por referencia . Perceba Diretriz VAR precedendo var a:integer
begin
a:=a+5;
showmessage(inttostr(a));
end;

var
b:integer
begin
b:=5; // variavel b recebe o valor de 5
Acrescentar(b); chamo a procedure me mostra a mensagem de 10;
showmessage('O Valor de b Agora é  ='+inttostr(b)); //Veja que o Valor de B foi alterado
end;

procedure MudarCaption (butto:Tbutton);
begin
button.caprion:='Alterar';
end;

MudarCaptio(button1);