rodrigo é o seguinte,, vc tem que fazer uma função para que na hora de imprimir
ele retire a pontuação;
function LimpaAcentos(S: string): string;
var
Acentos1, Acentos2: string;
i, Aux: Integer;
begin
Acentos1 := 'ÁÍÓÚÉ ÄÏÖÜË ÀÌÒÙÈ ÃÕ ÂÎÔÛÊ áíóúé äïöüë àìòùè ãõ âîôûê Ççº';
Acentos2 := 'AIOUE AIOUE AIOUE AO AIOUE aioue aioue aioue ao aioue Cco';
for i := 0 to Length(S) - 1 do begin
Aux := Pos(S[i], Acentos1);
if (aux > 0) then S[i] := Acentos2[Aux];
end;
Result := S;
end;
ai pra vc usar ela é o seguinte,, é so chamar a funcao, e passar o que vc quer
exemplo
aqui eu utilizo o componente say..
LimpaAcentos(EmpNOMEFANTASIA.AsString)); say(li, 79, '|'); inc(li);
espero ter ajudado
Atenciosamente
Cleyton Heusser
Programador
(49) 9992-3478
Plasoft - Desenv. e Planj. de Sistemas
(49) 224-9034
msn [EMAIL PROTECTED]
----- Original Message -----
From: Rodrigo ®¿®
To: delphi-br@yahoogrupos.com.br
Sent: Monday, December 27, 2004 8:39 AM
Subject: [delphi-br] OFF - FR impressão matricial
Bom Dia Colegas
Utilizo o FR 2.4X em um impressora matricial OKI DATA 320 ML Emulando a
EPSON, utilizo a fonte Draft 10cpi ! , S.o. Win9x e WinXp , só que os acento e
ceçedilhas saem como caracteres ASCII (quadradinho, bolinha, ....) ! Alguem tem
alguma idéia do que posso fazer passa arrumar isso?
-- FB1W98D6IBX6IBEXPERT2.5 --
Muito Obrigado
®¿® rodrigo®--Rodrigo B Marcondes--Curitiba - PR--
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.298 / Virus Database: 265.6.5 - Release Date: 26/12/04
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
