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!
Abraço!
Vispo
Curtir tópico
+ 0
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;
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:
[]´s
[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
Clique aqui para fazer login e interagir na Comunidade :)