passagem de parametro por referencia ?

Question

Bom galera n�o sei bem se a solu��o do meu problema seria um metodo com passagem de parametro por referencia.meu problema:tenho uma tabela que armazena dados para configura��o autom�tica do sistema, n...

Massuda · Answer

[quote:1d7971dcfd=�Fabiano G�es�]porem tentei assim e n�o deu certo, alguem teria alguma sugest�o ?[/quote:1d7971dcfd]Seu c�digo aparentemente n�o tem problemas. Pelo que voc� postou, ele est� funcionando assim...

var
  V1: string;
  V2: Integer;
...
  ConfigSystem(UmDataSet, V1, V2); 
  // V1 = valor lido do campo Campo1 do dataset
  // V2 = valor lido do campo Campo2 do dataset
...

Tem certeza que n�o est� dando erro no BD?

Fabiano G�es · Answer

Massuda realmente funciona :oops:

o problema era que na assinatura do metodo = V1: string
quando eu passava o parametro eu passava um TEdit.Text ai dava erro,
mais passando uma variavel string como parametro e depois jogando ela no TEdit funciona.

eu poderia mudar a assinatura de V1: string para V1: TEdit porem alguns se eu precisar usar o mesmo metodo para um TComboBox ?

por isso tinha assinado como string e passava TEdit.Text ou TComboBox.Tex.

como poderia fazer para poder passar tanto um TEdit.Text quanto um TComboBox.Text ?

Rogick · Answer

Sei l�, uma alternativa �, vc transformar a procedure eu uma function, passar a string no Result da function...

Ex:

function ConfigSystem(ADataSet: TClientDataSet; var AVariavel2: integer): string; 
begin 
  ADataSet.Open; 
  try 
    Result := ADataSet.FieldValues[�Campo1�]; 
    AVariavel2 := ADataSet.FieldValues[�Campo2�]; 
  finally 
    ADataSet.Close; 
  end; 
end;

Ou...

Passar este parametro como TObject ai vc passa o objeto �inteiro� e depois seta o valor na prop Text dele utilizando polimorfismo

Ex:

procedure ConfigSystem(ADataSet: TClientDataSet; var Sender: TObject; var AVariavel2: integer); 
begin 
  ADataSet.Open; 
  try 
    // Serve p/ Edit, DBEdit, MAskEdit, ect.
    if (Sender is TCustomEdit) then
      (Sender as TCustomEdit).Text := ADataSet.FieldValues[�Campo1�]; 
    if (Sender is TCombobox) then
      (Sender as TCombobox).Text := ADataSet.FieldValues[�Campo1�]; 
    ...    
    AVariavel2 := ADataSet.FieldValues[�Campo2�]; 
  finally 
    ADataSet.Close; 
  end; 
end;

Espero ter ajudado :wink:

Rodc · Answer

Voc� n�o poderia passar assim?ConfigSystem(UmDataSet, @Edit1.Text, @Edit2.Text);T� sem o delphi para testarar, mas acho que funciona....

F�rum passagem de parametro por referencia ? #341028