Una Pregunta Teórica sobre Archivos UDT

[roman]

Bueno, no hemos dicho que delphi o el compilador esté libre de errores. Pero el de FormatMaskText no es un problema del compilador, simplemente la función al parecer tiene fallos. Y el otro caso pues ¿qué decir? La verdad dudo mucho que el problema sea tal como lo describe; yo probé ese mismo código con y sin línea en blanco y con la misma versión de Delphi, y en ambos casos funciona bien. Tu caso era posible analizarlo porque estaba todo el código; en el otro caso habría que ver qué más hay que pueda estar afectando.

Pero, aunque seguramente delphi no está libre de fallos, lo importante aquí, en mi opinión, es como muchas situaciones que podríamos jurar que se deben a bugs, resultan tener explicación y se deben a fallos nuestros.

// Saludos

[roman]

Por cierto- no lo he probado y por eso pregunto -¿no sería más sencillo si en lugar de declarar:

Código Delphi [-]
TPrnCmd = Record
   ProcPrnCmd : array [0..40] of char;
   DatePrnCmd : array [0..12] of char;
   TimePrnCmd : array [0..12] of char;
   Status : array [0..30] of char;
   CRLF : array [0..1] of char;
end;

lo hicieras así:

Código Delphi [-]
TPrnCmd = Record
   ProcPrnCmd : String[41];
   DatePrnCmd : String[13];
   TimePrnCmd : String[13];
   Status : String[31];
   CRLF : String[2];
end;

Según recuerdo, con strings de tamaño fijo no tienes problemas con los records y te permite hacer asignaciones directas en lugar de usar funciones como StrPCopy más propias de C que de Pascal.

// Saludos

[[nlsgarcia]]

Hola:

Si modifico el programa como tu me sugieres, tendria algo como esto:

Código Delphi [-]
 
program TestFile;
 {$APPTYPE CONSOLE}
uses
  SysUtils, StrUtils;
Type
TPrnCmd = Record
   ProcPrnCmd : String[41];
   DatePrnCmd : String[13];
   TimePrnCmd : String[13];
   Status : String[31];
   CRLF : String[2];
end;
var
   i : integer;
   RegPrnCmd : TPrnCmd;
function LogPrnCmd(LogFile, ProcPrnCmd, StatusProc : String) : Boolean;
var
   i : integer;
   f: File of TPrnCmd;
   DateProc : String;
   AuxStr : String;
   CRLF : String;
begin
   LogFile := GetCurrentDir + '\' + LogFile;
   AssignFile(f, LogFile);
   FileMode := fmOpenWrite ;
   if FileExists(LogFile) then
      Reset(f)
   else
      Rewrite(f);
   DateProc := FormatDateTime('dd/mm/yyyy',Date);
   CRLF := Chr(13) + Chr(10);
   RegPrnCmd.ProcPrnCmd := ProcPrnCmd;
   RegPrnCmd.DatePrnCmd := MidStr(DateProc,7,4) + '-' + MidStr(DateProc,4,2) + '-' + MidStr(DateProc,1,2);
   RegPrnCmd.TimePrnCmd := FormatDateTime('hh:mm:ss',Time);
   RegPrnCmd.Status := StatusProc;
   RegPrnCmd.CRLF :=CRLF;
   Seek(f, FileSize(f));
   Write(f,RegPrnCmd);
   CloseFile(f);
end;
begin
   for i := 1 to 10 do
      LogPrnCmd('TestFile.txt','Proc'+IntToStr(i),'Status'+IntToStr(i));
end.

Y la salida obtenida seria esta:

Proc1 2007-02-24 19:50:11 Status1 
Proc2 2007-02-24 19:50:11 Status2 
Proc3 2007-02-24 19:50:11 Status3 
Proc4 2007-02-24 19:50:11 Status4 
Proc5 2007-02-24 19:50:11 Status5 
Proc6 2007-02-24 19:50:11 Status6 
Proc7 2007-02-24 19:50:11 Status7 
Proc8 2007-02-24 19:50:11 Status8 
Proc9 2007-02-24 19:50:11 Status9 
Proc10 2007-02-24 19:50:11 Status10 

Es por el caracter , que no use el tipo String.

Gracias nuevamente por tus comentarios.