Fórum Função ExtractStrings #590749
22/01/2018
0
Bom dia , estou com uma dúvida eu queria armazenar telefones e fazer isso em um loop , estou usando a função ExtractStrings porem as vezes eu leio dois telefones e as vezes um , só que quando eu vou ler dois telefones ele da erro de list index , alguém sabe como faço para verificar se possui mais de um telefone , lembrando que tenho que guardar em variaveis diferentes.
Lucas Domiciano
Curtir tópico
+ 0
Responder
Post mais votado
22/01/2018
Veja um exemplo, usando Stringlist e ExtractStrings:
var
strLinha, tel1, tel2: String;
lista: TStringList;
begin
strLinha := '(99) 99999-99999|(88) 88888-8888';
lista := TStringList.Create;
try
lista.Clear;
ExtractStrings(['|'], [], PChar(strLinha), lista);
if lista.Count >= 1 then
tel1 := lista[0];
if lista.Count >= 2 then
tel2 := lista[1];
ShowMessage(tel1);
ShowMessage(tel2);
finally
lista.Free;
end;
end;Natanael Ferreira
Responder
Gostei + 1
Mais Posts
22/01/2018
Lucas Domiciano
OBRIGADO ! ERA ISSO QUE EU PRECISAVA!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)