Archivo de texto

[ecfisa]

Hola KroSaver, bienvenido a Club Delphi.

El error 102 (File not assigned) se presenta en tu código por que el archivo solo es asignado en la creación debido al condicional if :

Código Delphi [-]
  ...
  if FileExists(DirLogs) then
  // Si existe ... ??
  else
  begin
    // Aquí (cuando no existe) no tendría que generar error
    AssignFile( Logs, DirLogs );
    Rewrite( Logs );
    WriteLn(Logs,'>-----< PROBANDO >-----<');
    CloseFile(Logs);
  end;
  ...
  if(VentanaA<>VentanaB)then
  begin
    Append(Logs);  // ¡¡¡ Error !!!  El archivo no está asignado
    ...

Del modo siguiente, el archivo es asignado tanto para Rewrite como para Append o Reset y no dará error.

Código Delphi [-]
...
  AssignFile(Logs, DirLogs);
  if not FileExists(DirLogs) then
  begin
    Rewrite(Logs);
    WriteLn(Logs,'>-----< PROBANDO >-----<');
    CloseFile(Logs);
  end;
...

En cuanto a la asignación de arreglos en Delphi, proba de este modo:

Código Delphi [-]
 Move(VentanaA, VentanaB, SizeOf(VentanaB));

Saludos.