Localizar texto em um array

31/01/2006

0

Digamos que eu tenha uma string dessa forma ´02 - 34 - 05 - 14´, tem alguma função que eu possa usar para localizar um determidado texto dentro dessa string? Por exemplo, verficiar se ela contém o número 14 etc..

Abraço!


Vispo

Vispo

Responder

Posts

31/01/2006

Netosdr

Segue função retirada do DTDelphi:


Obtendo o nº de ocorrências de uma string ´T´ dentro de outra ´S´

Function Occurs(T, S : ShortString) : Byte;
Var
P : Byte;
Begin
Result := 0;
P := Pos (T, S);
while P > 0 do
begin
Inc (Result);
S := Copy (S, P + Length (T), 255);
P := Pos (T, S);
end;
End;


Responder

31/01/2006

Michael

A Delphi Language oferece a função [b:3996909e07]Pos[/b:3996909e07], que retorna o índice de uma string dentro de outra. Vc pode usá-la para fazer o que quer. Apenas lembre-se de informar algum caractere que defina a separação das informações. Veja:

[b:3996909e07]function[/b:3996909e07] Pos(Substr: [b:3996909e07]string[/b:3996909e07]; S: [b:3996909e07]string[/b:3996909e07]): Integer;


var
  I: Integer;
begin
  I := Pos(´Delphi´, ´Michael Benford - Desenvolvedor Delphi´);
  // I é igual a 33
  I := Pos(´14´, ´12-35-144-14-344-32´);
  // I é igual a 7 -> ERRO, pois 144 não é 14
  I := Pos(´-14-´, ´12-35-144-14-344-32´);
  // I é igual a 10 -> Certo
  I := Pos(´VB´, ´No mundo perfeito´);
  // I é igual a 0
end;


[]´s


Responder

31/01/2006

Vispo

Value pelas dicas ae galera, resolveu meu problema!

Abraço!


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar