Valor Retorno ListBox

Delphi

19/01/2005

Bom dia pessoal...

tenho um listbox de multipla seleção da qual eu carrego de uma tabela de filiais do banco de dados:

CodFilial + ´ - ´ + Sigla

Resultado:
1 - Matriz
2 - São Paulo
100 - Rio de Janeiro

Quando eu faço a varredura no listbox através de um for, gostaria de obter como retorno o CodFilial, ou seja, 1, 2 ou 100.

Alguém saberia como?







[/b]


Fabboca

Fabboca

Curtidas 0

Respostas

Massuda

Massuda

19/01/2005

Não sei se entendi direito, mas acho que você precisa de uma função mais ou menos assim (não testado):
function ObtemCodigoSelecionado(LB: TListBox): Integer;
var
  S: string;
  N: Integer;
begin
  Result := 0;
  if LB.ItemIndex >= 0 then begin
    S := LB.Items[LB.ItemIndex];
    N := Pos(´ - ´, S); // busca pelo espaço-traço-espaço
    S := Copy(S, 1, N-1);
    Result := StrToInt(S);
  end;
end;



GOSTEI 0
Fabboca

Fabboca

19/01/2005

Blz cara, funcionou perfeitamente...

Obrigado.


GOSTEI 0
POSTAR