Vê se te ajuda:
procedure TForm1.Button1Click(Sender: TObject);
var
vTexto: String;
begin
vTexto := 'Tromba d''água';
if (Pos(Chr(39),vTexto) > 0) then
ShowMessage('O texto [' + vTexto + '] possui apóstrofo')
else
ShowMessage('O texto [' + vTexto + '] NÃO possui apóstrofo');
end;
2009/4/16 Fellipe Henrique <felli...@gmail.com>
>
>
> Amigos, como faço pra saber se uma string tem um apostrofo?
>
> estou tentando if s[i] = '''' then
>
> porem, esse: '''' gera 2 apostrofos... e nao somente um... se eu fizer '''
> dá erro de compilação...
>
> como proceder?
>
> Att.
> --
> _________________________________
> T.·.F.·.A.·.
> Fellipe Henrique
> Blog: www.digitumsoft.com.br/blogs/fellipeh
> ----------------------------------------------------------
> CAMPANHA POR UMA INTERNET SEGURA
> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
> mensagens use SEMPRE o "Cco" (cópia oculta).
> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
> um e-mail, delete todas as informações que apareçam no corpo do e-mail e
> que
> possam ser usadas por hackers.
> #######################################
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
