como verificar uma string ?

Question

como verificar se exeiste alguma caracter ap�s uma virgula ?...

Michael · Answer

Ol� colega!� simples de fazer o que vc quer. Veja o c�digo a seguir:[code:1:91e00b97ea]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;[/code:1:91e00b97ea]N�o testei o c�digo acima, mas deve estar correto.[]�s...

Fabiano G�es · Answer

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 ?

Michael · Answer

[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

Fabiano G�es · Answer

Valeu Michael , Muito obrigado !!!!!!...

F�rum como verificar uma string ? #295313