Função ExtractStrings
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
Curtidas 0
Melhor post
Natanael Ferreira
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;GOSTEI 1
Mais Respostas
Lucas Domiciano
22/01/2018
OBRIGADO ! ERA ISSO QUE EU PRECISAVA!
GOSTEI 0