<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:12pt"><div>Gracias por la aportación. Le echaré un vistazo.<br>abrazos.<br>Iván.<br></div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><font size="2" face="Tahoma"><hr size="1"><b><span style="font-weight: bold;">De:</span></b> Raistware <raistware@gmail.com><br><b><span style="font-weight: bold;">Para:</span></b> Spanish version of Lazarus List <lazarus-es@lists.lazarus.freepascal.org><br><b><span style="font-weight: bold;">Enviado:</span></b> martes, 8 de septiembre, 2009 9:22:02<br><b><span style="font-weight: bold;">Asunto:</span></b> Re: [Lazarus-es] problema con la barra de directorio "\"<br></font><br>
<title></title>
Iván Mesa escribió:
<blockquote type="cite">
<div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">
<div>Gracias por tu respuesta y por el buen camino encontrado.<br>
Se pode hacer lo mismos de tantas formas diferentes....<br>
Todo lo que me pasa se ha reducido a un pequeño descuido.<br>
Después de estar toda la noche pegándome con el tema, he descubierto
que:<br>
nombrefichero := 'X:\Origen\File.ext' no lo interpreta correctamente.<br>
<br>
La fórmula sería:<br>
const<br>
barra ='\';<br>
begin<br>
...<br>
nombrefichero := 'X:' + barra +'Origen'+barra+'File.ext';<br>
...<br>
end<br>
<br>
Con esto, puedo usar la función FileCopy tanto en windows como en
WindowsCE.<br>
<br>
A lo mejor, es ahí donde todo el mundo choca.<br>
<br>
</div>
</div>
</blockquote>
A ver, para hacer esto mismo ya existe una constante predefinida en
FreePascal : PathDelim<br>
Os recomiendo hechar un vistazo a el wiki de FreePascal :
<a rel="nofollow" class="moz-txt-link-freetext" target="_blank" href="http://wiki.freepascal.org/Multiplatform_Programming_Guide#Cross-platform_Programming">http://wiki.freepascal.org/Multiplatform_Programming_Guide#Cross-platform_Programming</a><br>
<br>
Saludos<br>
<br>
<br>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4404 (20090907) __________<br>
<br>
ESET NOD32 Antivirus ha comprobado este mensaje.<br>
<br>
<a rel="nofollow" target="_blank" href="http://www.eset.com">http://www.eset.com</a><br>
</div></div></div><br>
</body></html>