[Notes2-team] =?iso-8859-1?B?RnVu5+NvIGlzX3V0Zjg=?=

[Maxwel L. <ma...@on...>]

Pessoal, terminei a conversão para o Delphi da função como havia discutido no Fórum do Notes (http://notes.codigolivre.org.br/forum/read.php?f=1&i=10&t=10). A função está em anexo.

Um simples teste:

	str := 'ação mamãe inconsistência';
	str := Utf8Encode(str); // converte para utf-8, é lógico :o)

	if ( is_utf8(str) ) then
		showmessage('é utf8')
	else
		showmessage('não é utf8');
	
	showmessage(str);


Agora é com vcs! OK?!


t++


[Tagline]
"Só existem dois dias no ano que nada pode ser feito. Um se chama ontem 
e o outro se chama amanhã, portanto, hoje é o dia certo para amar, 
acreditar, fazer e principalmente viver"
(Dalai Lama)

--
Maxwel Leite
http://maxwelleite.com
ma...@on...
ICQ# : 76465083
2004-06-24