Re: [delphi-br] Duvida para fazer função

2004-09-22 Por tôpico Prisma Sistemas - Moacir
).AsString; end; finally qryAux.Free; end; end; - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 22, 2004 1:06 PM Subject: [delphi-br] Duvida para fazer função Salve galera. Galera, tenho a função

RES: [delphi-br] Duvida para fazer função

2004-09-22 Por tôpico Eduardo Silva ®
PROTECTED] Assunto: Re: [delphi-br] Duvida para fazer função Eduardo, Vc pode alterar para que a tua função verifique o parametro (valor). Se contiver o % então é String.. ex.: Descricao:=ExibeDescricao('Alias', 'Tabela', 'CampoChave', 'CampoDescricao', '%teste%', 'Tipo'); ou

Re: RES: [delphi-br] Duvida para fazer função

2004-09-22 Por tôpico Nielsen Cassiano Simões
Tente assim: function ExibeDescricao(Alias, Tabela, CampoChave, CampoDescricao, Valor, Tipo: String; Numerico: Boolean): String; var qryAux: TQuery; begin Result := ''; try if Valor '' then begin qryAux := TQuery.Create(nil); qryAux.DataBaseName := Alias;

Re: [delphi-br] Duvida para fazer função

2004-09-22 Por tôpico Vitor Luiz Redes
primeiro, implemente a função abaixo (fiz agora, portanto não testei) function IsNumber(const Value:String):Boolean var i:Integer; resultado:Boolean; function Test(const Value:Char):Boolean; begin result:=Value in ['0'..'9']; end; begin resultado:=TRUE; for