CONVERSO DE ARQUIVOS EM TABELAS DBF.
Ol pessoal!
Possuo uma tabela Dbase chamada MATERIAL.DBF de um programa antigo em Clipper e gostaria de convert-la para Interbase e criei um programinha para isto.
Porm quando eu abro esta tabela antiga em um Dbgrid para eu acompanhar o andamento do processo os caracteres acentuados aparecem desformatados e so gravados assim na tabela Interbase, vejam:
COMO APARECECOMO DEVERIA APARECER
CONSULTRIO MDICOCONSULTRIO MDICO
HORTNCIAHORTNCIA
FLVIOFLVIO
GRA€ASGRAAS
PUN&8364;OPUNO
SECRE&8364;OSECREO
Como fao para mostrar os dados desta tabela Dbase agora no Windows como eles aparecem no bom e velho DOS?
Obrigado,
Possuo uma tabela Dbase chamada MATERIAL.DBF de um programa antigo em Clipper e gostaria de convert-la para Interbase e criei um programinha para isto.
Porm quando eu abro esta tabela antiga em um Dbgrid para eu acompanhar o andamento do processo os caracteres acentuados aparecem desformatados e so gravados assim na tabela Interbase, vejam:
COMO APARECECOMO DEVERIA APARECER
CONSULTRIO MDICOCONSULTRIO MDICO
HORTNCIAHORTNCIA
FLVIOFLVIO
GRA€ASGRAAS
PUN&8364;OPUNO
SECRE&8364;OSECREO
Como fao para mostrar os dados desta tabela Dbase agora no Windows como eles aparecem no bom e velho DOS?
Obrigado,
Weliton Oliveira
Curtidas 0
Respostas
Crash
08/05/2003
Kra eu criei uma funcao que faz o contrario, retira os acentos nas frases. Da pra voce mudar essa funcao e utilizar no que voce precisa. ai vai:
Function TiraAcento(Frase:String):String;
Var ComAcento : String;
SemAcento : String;
posicao,I : Integer;
Letra : String;
FraseCerta: String;
Begin
ComAcento := ºǴ;
SemAcento := aAaAaAaAaA eEeEeEeEiIiIiIiIoOoOoOoOoOuUuUuUuUcC;
FraseCerta := ;
For I:=1 To Length(Frase) Do
Begin
Letra := Copy(Frase,I,1);
Posicao := Pos(Letra,ComAcento);
If posicao <> 0 Then
FraseCerta := FraseCerta + Copy(SemAcento,Posicao,1)
Else FraseCerta := FraseCerta + Letra;
End;
TiraAcento := FraseCerta;
End;
Voce pode usar a mesma rotina desta funcao para criar textos encriptados.
flws
Function TiraAcento(Frase:String):String;
Var ComAcento : String;
SemAcento : String;
posicao,I : Integer;
Letra : String;
FraseCerta: String;
Begin
ComAcento := ºǴ;
SemAcento := aAaAaAaAaA eEeEeEeEiIiIiIiIoOoOoOoOoOuUuUuUuUcC;
FraseCerta := ;
For I:=1 To Length(Frase) Do
Begin
Letra := Copy(Frase,I,1);
Posicao := Pos(Letra,ComAcento);
If posicao <> 0 Then
FraseCerta := FraseCerta + Copy(SemAcento,Posicao,1)
Else FraseCerta := FraseCerta + Letra;
End;
TiraAcento := FraseCerta;
End;
Voce pode usar a mesma rotina desta funcao para criar textos encriptados.
flws
GOSTEI 0