Delphi dicas

Impressão direta convertendo acentuação do dos

function TrataAcentos(Dados : String) : String;

var

Retorno : String;

i, y : Integer;

const

Codigos: array[1..29] of String = (#160,#133,#198,#131,#181,#183,#199,

#182,#130,#136,#144,#210,#161,#214,#162,#111,#228,#229,#224,#174,#163,

#129,#233,#154,#135,#128,#167,#166,#248);

begin // Teclado 850 Multilingua

        for i := 1 to Length(Dados) do

        begin

                y := Pos(Dados[i], 'áàãâÁÀÃÂéêÉÊíÍóôõÕÓÔúüÚÜçǺª°');

                if y > 0 then

                Retorno := Retorno + Codigos[y]

                else

                Retorno := Retorno + Dados[i];

        end;

        Result := Retorno;

end;



//Para usá-la, basta fazer a chamada da seguinte maneira:



Writeln(Arqtxt, TrataAcentos(string_acentuada));

Exemplos:



Writeln(Arqtxt, TrataAcentos('Moça, lampião, pé,   pá,   lâmpada, porões, seqüência'));

Writeln(Arqtxt, TrataAcentos(AnsiUpperCase('Moça, lampião,   pé, pá, lâmpada, porões, seqüência')));

Writeln(Arqtxt, TrataAcentos('1ª, 1º, nº, pá, também, seqüência Família F°'));



{Espero ter ajudado, e se alguém tiver uma dica mais objetiva, terei o prazer de aceitá-la.



Abraços



Zucchi}

por : Lidio Zucchi