PDA

Ver la Versión Completa : Guardar WideString en archivo TXT


TiammatMX
04-12-2014, 18:11:33
Señores, una duda de primaria (sí, a veces me pasa)

Tengo éste código:

if FileExists(Trim(wsPath)+'\'+Trim(wsNombArch)) then
DeleteFile(Trim(wsPath)+'\'+Trim(wsNombArch));

pTexto := wsCadenaSalida;
System.AssignFile(fsArchivo,Trim(wsPath)+'\'+Trim(wsNombArch));
System.ReWrite(fsArchivo);
System.Write(fsArchivo, wsCadenaSalida);
System.CloseFile(fsArchivo);

en Delphi XE2. wsCadena salida es una variable WideString, deseo guardarla en un archivo TXT y como tiene siglos que no lo hago, ya no recuerdo cómo. ¿Alguna ayudita, por favor?

TiammatMX
04-12-2014, 22:24:04
Bueno, después de mucho buscar y eliminar el ofuscamiento mental, quedó así...

if FileExists(Trim(wsPath)+'\'+Trim(wsNombArch)+'.txt') then
DeleteFile(Trim(wsPath)+'\'+Trim(wsNombArch)+'.txt');

fsArchivo := FileCreate(Trim(wsPath)+'\'+Trim(wsNombArch)+'.txt');
FileWriteLine(fsArchivo,wsCadenaSalida);
FileClose(fsArchivo);

...a veces me odio, por despistado.