Foros Club Delphi - Ver Mensaje Individual

pepecharlie67 · #3 02-01-2006

No,me refiero a un archivo .txt.Para cargar un archivo utilizo

Código Delphi [-]IF Fileexists(ExtractFileDir (ParamStr(0))+NombreCargarConf.Text+'.ptd') THEN
      BEGIN
      Fichero:=NombreCargarConf.Text;
      MiFichero := TiniFile.Create(ExtractFileDir(ParamStr(0))+'/'+Fichero+'.ptd')
      {...}
      END
ELSE
      ShowMessage('El fichero solicitado no existe')

bien y para guardarlo lo mismo

IF NombGuardarConf.text<>'' THEN
   IF Fileexists(ExtractFileDir (ParamStr(0))+NombGuardarConf.Text+'.ptd') THEN
      DeseaSobrescribir.ShowModal
   ELSE
   BEGIN
     Fichero:=NombGuardarConf.Text;
    MiFichero:=TiniFile.Create(ExtractFileDir(ParamStr(0))+'/'+Fichero+'.ptd')

Pues bien,al cargar un fichero que he guardado previamente con el nombre de jose por ejemplo,me dice que al cargar el archivo jose el fichero no existe.¿Alguien sabe el porque?Gracias