FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
FileWrite Delphi XE
Tengo un problema con la instrucción SysUtils.FileWrite en Delphi XE y consiste en que le envío la instrucción para que me escriba una línea en un fichero plano y escribe sólo la mitad pero con caracteres [Null] en medio de cada uno de ellos.
La instrucción sigue el ejemplo exacto del que se muestra en la ayuda: La Línea que intenta escribir es: '29/03/2011 09:42:01 PAGINADOR: PAGINADOR/INDEXADOR MODO AUTOMATICO'#$D#$A Y la línea que escribe es: 2[null]9[null]/[null]0[null]3[null]/[null]2[null]0[null]1[null]1[null] [null]0[null]9[null]:[null]4[null]2[null]:[null]0[null]1[null] [null] P[null]A[null]G[null]I[null]N[null]A[null]D[null]O[null]R[null]:[null] [null]P[null]A La función es: Function fFileWriteString(aFileHandle: Integer; aBuffer : String; aCount : LongWord): Boolean; Var bBuffer: PChar; i : Integer; Begin Result := True; Try GetMem(bBuffer, aCount); // Allocate the buffer. For i := Uno to aCount do bBuffer[i - Uno] := aBuffer[i]; i := SysUtils.FileWrite(aFileHandle, bBuffer^, aCount); If i < Cero then Result := False; Finally FreeMem(bBuffer, aCount); End; // Try end; // Funct |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Uso del SysUtils.FileWrite. ¿Cómo? | metalfox6383 | Varios | 6 | 15-10-2010 17:40:26 |
Error al intentar escribir en un archivos con BlockWrite o FileWrite | Ictiandro | Varios | 4 | 18-11-2006 01:34:11 |
Saber cual es el error cuando FileWrite retorna -1 | abracadabra | Varios | 1 | 16-11-2006 01:44:18 |
|