if (Pos('''', S) <> 0) then Tem apóstofro else Não tem apóstofro
__________________________________________________ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
if (Pos('''', S) <> 0) then Tem apóstofro else Não tem apóstofro
__________________________________________________ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/