| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
aleshy
Profissional
Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627
|
 Enviada: Qua Jul 01, 2009 2:10 pm Assunto: Como listar apenas o Alias que pretendo?(Resolvido) |
 |
|
Ola pessoal!
Tenho uma duvida. Como listar apenas ALIAS que pretendo.
Tipo. Num ListBox faco:
| Código: | | Session.GetAliasNames(ComboAlias.Items); |
Mas desta forma é carregado para o ListBox TODOS os ALIAS disponiveis no BDE.
Minha intencao é listar apenas ALIAS que comecem por exemplo com CORPORE.
Entao se eu tiver ALIAS com nomes CORPORE, CORPORE1, CORPORE2 apenas estes serao listados no ListBox pois comecam com a palavra CORPORE.
Tem como fazer esse filtro?
Obrigado!
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba
Editado pela última vez por aleshy em Sex Jul 03, 2009 11:52 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Jul 01, 2009 3:07 pm Assunto: |
|
|
| só vc carregar tds e filtrar só os q vc deseja |
|
| Voltar ao Topo |
|
|
aleshy
Profissional
Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627
|
| Enviada: Qua Jul 01, 2009 3:21 pm Assunto: |
|
|
Gilsao amigo velho de Guerra 
A ideia é exatamente esta.. MAS COMO?
Abracos!
Ps: Responde Rapido que tou no panico aqui na empresa
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Jul 01, 2009 4:13 pm Assunto: |
|
|
| roda o TStrings retornado e remove o q nao deseja. |
|
| Voltar ao Topo |
|
|
aleshy
Profissional
Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627
|
| Enviada: Qua Jul 01, 2009 4:15 pm Assunto: |
|
|
Pow Gilsao,
Olha o tempo que ja perdemos nos respondendo? Nao seria mais facil voce colocar um exemplo para o leigo?
Se eu soubesse fazer isso que ta mandando eu fazer nem perguntava ne?
Clareia ai por favor
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Jul 01, 2009 4:26 pm Assunto: |
|
|
falow velho!!!
| Código: | procedure FiltraStrings(List : TStrings; Filtro : string);
var
I, L : Integer;
begin
L := Length(Filtro);
if L < 1 then
Exit;
Filtro := LowerCase(Filtro);
for I := List.Count - 1 downto 0 do
begin
if LowerCase(Copy(List[I], 1, L)) <> Filtro then
List.Delete(I);
end;
end;
|
exemplo:
| Código: | Session.GetAliasNames(ComboAlias.Items);
FiltraStrings(ComboAlias.Items, 'CORPORE');
|
|
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Jul 01, 2009 6:27 pm Assunto: |
|
|
| deu certo não? |
|
| Voltar ao Topo |
|
|
aleshy
Profissional
Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627
|
| Enviada: Sex Jul 03, 2009 11:31 am Assunto: |
|
|
Amigao Gilson,
Desculpe a demora em responder, mas a M$%&# da VELOX me deixou na mao por 3 dias.
Agora que consegui conectar digo como ficou.
Fiz apenas uma pequena alteracao de Procedure para Function pq eu uso DLL e guardo la as funcoes.
O codigo ficou assim:
| Código: | //******************************************************************************
//Funcao Filtra Conexoes do BDE
Function FiltraBDE(List : TStrings; Filtro : string): String; StdCall;
var
I, L : Integer;
begin
L := Length(Filtro);
if L < 1 then
Exit;
Filtro := LowerCase(Filtro);
for I := List.Count - 1 downto 0 do
begin
if LowerCase(Copy(List[I], 1, L)) <> Filtro then
List.Delete(I);
end;
end; |
Depois chamo no formulario de login no Show:
| Código: | Session.GetAliasNames(ComboAlias.Items);
FiltraBDE(ComboAlias.Items, 'CORPORE');
ComboAlias.ItemIndex := 0;
|
Pronto colega. Era exatamente isso que eu queria. YOU IS THE GUY!
Valeu! Como sempre salvando as almas perdidas aqui no Forum.
Abracos!
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Sex Jul 03, 2009 4:14 pm Assunto: |
|
|
blz.
mas poderia ser procedure da mesma forma na dll.
pq tem q ser function?
não entendi. |
|
| Voltar ao Topo |
|
|
aleshy
Profissional
Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627
|
| Enviada: Sex Jul 03, 2009 4:18 pm Assunto: |
|
|
Tambem nao sei. Mas como sou um programador meia-boca eu coloco assim ))))))))))
Abracos!
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
