como verificar uma string ?

Delphi

13/09/2005

como verificar se exeiste alguma caracter após uma virgula ?


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Michael

Michael

13/09/2005

Olá colega!

É simples de fazer o que vc quer. Veja o código a seguir:

var S1, S2 : string;
    I : Integer;
begin

  S1 := ´Michael, programador Delphi´;

  I := Pos(´,´, S1);

  if I > 0 then
  begin
    S2 := Copy(S1, I + 1, Length(S1);
    if Length(S2) > 0 then
      // Existe caracteres além da vírgula
    else
      // Não existem caracteres depois dela
  end;

end;


Não testei o código acima, mas deve estar correto.

[]´s


GOSTEI 0
Fabiano Góes

Fabiano Góes

13/09/2005

Michael valeu pela ajuda, o testei o codigo e funcionou apenas faltou fechar ´)´ do copy: 
S2 := Copy(S1, I + 1, Length(S1) ;

se alguem quizer aproveitar o codigo, corrigido ..: 
S2 := Copy(S1, I + 1, Length(S1));


sem querer abusar da sua boa vontade (já abusando)

como faço pra saber se existe uma ´,´ em uma string ?


GOSTEI 0
Michael

Michael

13/09/2005

[quote:ce2cff06fe=´Fabiano Góes´]como faço pra saber se existe uma ´,´ em uma string ?[/quote:ce2cff06fe]

Ué? Leia o código que eu postei. [b:ce2cff06fe](...) I := Pos(´,´, S1);... [/b:ce2cff06fe];-)

A função Pos retorna a posição de uma string dentro de outra. Se ela retorna 0, é porque não existe a string.

[]´s


GOSTEI 0
Fabiano Góes

Fabiano Góes

13/09/2005

Valeu Michael , Muito obrigado !!!!!!


GOSTEI 0
POSTAR