ajuda no componente listbox

Delphi

11/02/2009

Boa tarde..

preciso resolver este problema na listbox

tenho uma list box com os seguintes dados:
data e codigo do diagnostico
data posicao 1 a 10
codigo posicao 12 a 21


01/01/2009 1000020203
10/01/2009 1345678924
20/01/2009 3456789234
25/01/2009 2345678901


ESTOU COM DIFICULDADE EM SELECIONAR NA LSIT BOX A DATA E O CODIGO DA LISTA BOX QUE O USUARIO SELECIONOU.
EXEMPLO

PRECISO PASSAR PARA UMA VARIAVEL DE MEMORIA A DATA E O CODIGO

EXMPLO O CLIENTE SELECIONOU A DATA 20/01/2009 E O CODIGO 3456789234

DEFINI DUAS VARIAVERIS

VAR
MDATA : STRING;
MCODIGO : STRING;

A MINHA DIFICULADADE ESTA AQUI

MDATA := LISTBOX.????
MCODIGO := LISTBOX.?????

SE POSSIVEL FAZER O EXEMPLO DA SOLUÇÃO


Grato

Placido


Placido

Placido

Curtidas 0

Respostas

Woinch

Woinch

11/02/2009

Você pode utilizar o delimitador ´espaço´ para dividir a String com a data e o código:

  ShowMessage(ListBox1.Items[0]); //Mostra a primeira linha do ListBox
  ShowMessage(Copy(ListBox1.Items[0], 1, Pos(´ ´, ListBox1.Items[0]) -1)); //Mostra a data
  ShowMessage(Copy(ListBox1.Items[0], Pos(´ ´, ListBox1.Items[0]) +1, Length(ListBox1.Items[0]))); //Mostra o código


Espero ter ajudado.


GOSTEI 0
Placido

Placido

11/02/2009

Meu amigo obrigado pela dica mas o minha dificuldade continua

o exemplo que vc fez esta mostrando sempre o item 0

a minha dificuldade e saber qual o item da listbox que o client selecionou

exemplo se o client dar um clique duplo no item numero 3,
como eu faço para saber que e o item 3 que ele selecionou da listbox.


01/01/2009 1234567890
10/01/2009 2346789012
12/01/2009 3672456789 (item selecionado)
13/01/2009 4567832333



Grato

Placido


GOSTEI 0
Woinch

Woinch

11/02/2009

Use a propriedade ListBox1.ItemIndex no lugar do Zero.


GOSTEI 0
Placido

Placido

11/02/2009

Boa tarde..

Meu amigo nao tem esta propriedade(ListBox1.ItemIndex ) que vc citou

Por gentilieza nao seria possivel vc fazer o exmplo para mim.

Obrigado

Placido


GOSTEI 0
Walter Faria

Walter Faria

11/02/2009

var
Data, Codigo, Texto: String;
PosBarra: Integer;
begin
//Separa o conteudo
Texto:= lbxMinuta.Items[0];
PosBarra:=Pos(´ ´,Texto);

//Pega OS
Data:= Copy(texto,1,PosBarra-1);
Delete(Texto,1,PosBarra);

Codigo:= Texto;

Label5.Caption:= data;
Label6.Caption:= Codigo;


GOSTEI 0
POSTAR