VDOPRINT caracteres especiais

Question

EU uso o VDOPrint a um tempo, e atualmente venho enfrentando um problema um tanto complicado.. n�o consigo imprimir caracteres especiais como por exemplo o � �... sai um negocio mais ou menos assim na...

Eniorm · Answer

eu tbm j� notei isso, inclusive acentos tbm n�o deu muito certo...

a dica que eu te recomendo para que vc fa�a um teste ai � colocar mais ou menos assim

Print(01,�N�+#167);

esse 167 equivale ao c�digo ASCII para �, e 166 para �

abra�o

Ken_masters · Answer

Ent�o Enio eu consegui resolver o problema do n� mas n�o dava pra fazer do jeito q vc me passou pq nem sempre ele estava na mesma posi��o... ent�o eu fiz uma fun��ozinha

function trocaletra(L : string): string;
var
i : Integer;
caracter, nova : string;
begin
for i := 1 to Length(L) do
begin
caracter := l[i];

if caracter = �� then
begin
caracter := �?�
end;
nova := nova + caracter;
caracter := ��;
end;
Result := nova;
end;

Eniorm · Answer

Opa!Independente da posi��o do caractere, pode ser usado normalmenteVeja�Classifica��o N� 123�Eu faria assimPrint(01,�Classificacao N�+#167+� 123�);abra�os...

Ken_masters · Answer

fuciona mais ou menos assim.. tem um memo que grava uma informacao de at� 222 caracteres.. e eu n�o sei exatamente onde vai aparecer o numero... por exemplo.. hj eu posso cadastrar assim..
� o ultimo registro do dia doi o n� 33� e o meu proximo registro pode ser
� o N� do registro foi removido �
com aquela funcao eu fa�o uma varredura na string inteira e localizo o �� em qualquer parte da string e automaticamente ja substituo por �?� q � equivalente ao � na impressora.. bom funcionou!

Eniorm · Answer

sim, eu compreendi....poderiamos simplificar para que ficasse mais ou menos assimwhile (Pos(���,suastring) <> 0) do  suastring[Pos(���,suastring)] := #167;...

Eniorm · Answer

muito estranho!o resultado de Alt+167 � �, mas de #167 � ?fiz um teste aqui, e o retorno para o caractere � � o c�digo ascii 186ent�o, tente assim[code:1:30f0153ecd]while (Pos(���,suastring) <> 0) do  suastring&91;Pos(���,suastring)&93; := 167;[/code:1:30f0153ecd]...

Eniorm · Answer

eita! mania de ctrl+c ctrl+v, acabei colando errado

o correto �

while (Pos(���,suastring) <> 0) do
  suastring[Pos(���,suastring)] := 186; // corrija aqui

tenta ai quem sabe da certo, caso contr�rio, eu recomendo vc dar uma pesquisada no forum sobre VDO

[url]vdo.sourceforge.net[/url]

abra�os

Ken_masters · Answer

FUncionou perfeitamente .. e com um fonte muito mais compacto hehehe...    Vou Usar assim mesmo.. VAlew ENIO.. precisando de alguma coisa � s� chamar... VAlew mesmo...

F�rum VDOPRINT caracteres especiais #364659