manipular string ?
galera é o seguinte tenho um txt com varios e-mails separados por ; so q tenho que carregar um listbox com os e-mail tipo assim
no txt ta assim
tes1@uol.com.br;tes2@uol.com.br
i no listbox tem q ficar assim
tes1@uol.com.br
tes2@uol.com.br
valew
no txt ta assim
tes1@uol.com.br;tes2@uol.com.br
i no listbox tem q ficar assim
tes1@uol.com.br
tes2@uol.com.br
valew
Guilherme
Curtidas 0
Respostas
Rjun
01/08/2005
Dá uma olhada em TStringList. Tem uma propriedade em que você define o caracter separador.
GOSTEI 0
Guilherme
01/08/2005
como q usa isso pq coloquei la tstringlist(memo1.text) da erro :? :?
GOSTEI 0
Massuda
01/08/2005
Pelo que entendi, sua lista de emails está num memo... use StringReplace para trocar o ponto-e-vírgula por CR/LF e carregue no Items do Listbox. Ficaria algo assim...
ListBox.TExt := StringReplace(Memo1.Text, ´;´, #1310, [rfReplaceAll]);
GOSTEI 0
Guilherme
01/08/2005
no lugar do ; substituiu por || :? :?
GOSTEI 0
Massuda
01/08/2005
Desculpe... onde está......coloque...
ListBox.TExt := ...
ListBox.Items.Text := ...
GOSTEI 0
Guilherme
01/08/2005
vlw massuda deu certo !!!!!
GOSTEI 0