Se for útil, uma função para retirar acentos que utilizo a muito
tempo sem problemas.
function RemoveAcentos(DadosAcentos : String) : String;
var C_k, i : Integer; C_y, ComAcentos, SomAcentos : String;
begin
C_y := '';
ComAcentos := 'ÃÁÀÄÂÉÈÊËÍÌÎÏÓÒÔÕÖÚÙÜÛãáàäâéèêëíìîïóòôõöúùüû';
SomAcentos
Olá pessoal,
Guionardo, você não é brincadeira não, matou a dúvida e mostrou a função,
rsrsrsrsrsrsrs.
Desse jeito os 2 demos que coloquei na 4shared vão virar sarcófagos,
rsrsrsrsrsrsrs.
Você é fera, isso não é um elogio, é a realidade.
Funções úteis para strings (as que iniciam com 'sc' for
ECTED]
MSN (Hotmail): [EMAIL PROTECTED]
BlogSpot: http://silvioclecio.blogspot.com/
- Mensagem original
De: Silvio Clécio <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 7 de Outubro de 2008 23:51:08
Assunto: Res: [delphi-br] Similaridade entre duas Strin
Olá pessoal,
Bem, eu utilizo o Auto-Complete, no link
(http://www.4shared.com/dir/5679510/48848609/Uploads.html) tem o arquivo
"(Auto-Complete texto) AutoComplete.zip" que mostra como faço isso, é tipo no
Google, cada texto digitado é gravado, servindo de sugestão para
auto-completar um texto
4 matches
Mail list logo