Localizar texto em um array

31/01/2006

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

Respostas

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 Citar

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 Citar

31/01/2006

Vispo

Value pelas dicas ae galera, resolveu meu problema!

Abraço!


Responder Citar