Se a data é uma string, vc pode usar copy para separar as partes. Por exemplo
var dia, mes, ano : integer; datastr: string; begin datastr:='20080122'; dia:=StrToIntDef(Copy(datastr,7,2),0); mes:=StrToIntDef(Copy(datastr,5,2),0); ano:=StrToIntDef(Copy(datastr,1,4),0); end; Tendo dia, mes e ano, é só usar encodedate para obter um resultado TDateTime. Ou se for transformar para o formato desejado em string, faça diretamente datastr:=Copy(datastr,7,2)+'/'+Copy(datastr,5,2)+'/'+copy(DataStr,1,4); Em 10/02/08, Celio Bernardo <[EMAIL PROTECTED]> escreveu: > > Amigos tenho uma data no formato 'AAAAMMDD' tipo '20080122' > e quero transforma-la em 22/01/2008. > > PS: Parece ser muito simples, mas depois de horas trabalhando nao consigo > mais pensar. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com