Fun��o Parametro

Question

Tenho o seguinte problema com a fun��o:tenho varias tabelas e uma var do tipo integer para cada uma.Function abrirtabela(tabela:ttable; controle:?):boolean;begintabela.open;inc(controle);{aqui eu deve...

Delphi32 · Answer

kra, se n�o estou enganado, vc deveria declarar a fun��o da seguinte forma:

Function abrirtabela(tabela:ttable; var controle:integer):boolean;
begin 
tabela.open; 
inc(controle);
end;

Sistemald · Answer

Delphi32, vc n�o me entedeu(talvez eu tenha explicado mal), no segundo parametro devo passar o nome da varial(j� criada) devo trabalhar.

ex.

...
[b]private[/b]
    { Private declarations }
[b]public[/b]
x, y, z:integer;
    { Public declarations }
  end;
...

function aumenta(varnome:?):integer;
begin
inc(varnome);
end;
...

aumenta(x);

//agora deveria passar o parametro com valor X,ou seja a instru��o [b:92f11f60a6]Inc[/b:92f11f60a6] seria executado na var X,

Paulo_amorim · Answer

[quote:1f22577e81=�delphi32�]kra, se n�o estou enganado, vc deveria declarar a fun��o da seguinte forma:[code:1:1f22577e81]Function abrirtabela(tabela:ttable; var controle:integer):boolean;begin tabela.open; inc(controle);end;[/code:1:1f22577e81][/quote:1f22577e81]Ol�Eu entendi a mesma coisa que o delphi32...se vc tem na classe:[code:1:1f22577e81]function Aumenta( Tabela: TTable; controle: INTEGER) : boolean;[/code:1:1f22577e81]vc pode chamar essa fun��o assim p.ex.[code]varx,y,z: Integer;a,b,c: Boolean;begina := Aumenta(minhatabela, x);b := Aumenta(minhatabela, y);c := Aumenta(minhatabela, z);[/cod]vc n�o precisa passar um [b:1f22577e81]n�mero[/b:1f22577e81] soh porque o par�metro � Integer...vc pode passar uma vari�vel inteira tambem...At�+...

Comodelphi · Answer

Caros colegas, s� para ilustrar. Essa t�cnica de programa��o � chamada de passagem de par�metros por refer�ncia, onde a rotina chamada acessa o mesmo endere�o de mem�ria da vari�vel passada, podendo assim alter�-la.

F�rum Fun��o Parametro #231145