Retornar valor nulo em uma fun��o

Question

Criei uma fun��o que abre um form e lista o conte�do de uma tabela para que usu�rio escolha uma informa��o, at� a� tudo beleza mas no form tem um bot�o para cancelar, caso o usu�rio desista de procura...

Rjun · Answer

Qual � sua d�vida?...

Rogerio_amorim · Answer

veja a fun��o:function pesquisa(qry: TIBQuery; titulo,campo: string): string;begin      frmbrowse.DataSource1.DataSet := qry;      frmbrowse.Caption := titulo;      frmbrowse.ShowModal;      if grava = 1 then         result := qry[campo]      else if grava = 2 then         result := 0;end;---------E a chamo dessa forma:dmprincipal.IBQuery1.FieldByName(�cod_usuario�).AsInteger := strtoint(pesquisa(dmprincipal.IBQuery4,�Localizar Usu�rio�,�cod_usuario�));Mas a pergunta �, se o usu�rio cancelar a opera��o ele retornar� o valor zero, mas preciso que nesse caso a fun��o seja cancelada e como ela est�, � necess�rio que seja retornado um valor. Algu�m tem alguma id�ia ?Rogerio Amorim...

Rjun · Answer

Sua fun��o retorna uma string, mas voc� colocou result := 0. Isso n�o deu erro? O que � essa vari�vel grava? Ja que o form � modal voc� pode fazer a verifica��o com mrOK. Sempre coloque no inicio de sua fun��o um valor default para a vari�vel de retorno.

function pesquisa(qry: TIBQuery; titulo,campo: string): string; 
begin 
  result := ��;

  frmbrowse.DataSource1.DataSet := qry; 
  frmbrowse.Caption := titulo; 

  if (frmbrowse.ShowModal = mrOK) then
    result := qry[campo] 

end;

Beppe · Answer

Use o tipo Variant como resultado que aceitar� Null ou uma string. Ou passe um par�metro out na fun��o para retornar se houve cancelamento....

Sistemald · Answer

Fale mais sobre parametro Out...

Beppe · Answer

[code:1:654cd0c60e]function Teste(out S: String): Boolean;begin  Result := Foo;  if Result then    S := Bar;end;if Teste(S) then  ShowMessage(S);[/code:1:654cd0c60e]O out � semelhante ao var, mas ignora o valor inicial do argumento passado, � s� para sa�da mesmo....

F�rum Retornar valor nulo em uma fun��o #292356