Array
(
)

Localizar texto em um array

Vispo
   - 31 jan 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!


Netosdr
   - 31 jan 2006

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;


Michael
   - 31 jan 2006

A Delphi Language oferece a função Pos, 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:


Citação:
function Pos(Substr: string; S: string): Integer;


#Código

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


Vispo
   - 31 jan 2006

Value pelas dicas ae galera, resolveu meu problema!

Abraço!