).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
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
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;
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
4 matches
Mail list logo