Código Delphi [-] WriteLN(Fich, '1'); fechacadena:= oArchivo.ReadString('FECHA', 'UltFecha', '31/12/1999'); WriteLN(Fich, '2'); fecha:= StrtoDateTime(fechacadena); WriteLN(Fich, '3');
WriteLN(Fich, '1'); fechacadena:= oArchivo.ReadString('FECHA', 'UltFecha', '31/12/1999'); WriteLN(Fich, '2'); fecha:= StrtoDateTime(fechacadena); WriteLN(Fich, '3');