Ver Mensaje Individual
  #3  
Antiguo 30-07-2007
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Cita:
Empezado por camambrini
deseo crear un archivo binario con tipo pero me da error el codigo que utilizo es el siguiente

procedure carga_config;
var
config:registro;
archivo: file of registro;
begin
{$i-}
AssignFile(archivo,'domo.cgf');
reset(arch);
blockread(arch,sizeof(registro);
CloseFile(configa);
{$I+}

el error esta en AssignFile y es el siguiente:
[Error] domo.pas(208): There is no overloaded version of 'AssignFile' that can be called with these arguments
Hola, creo que no has copiado bien el código (o no usas Delphi 6),
porque hay varias cosas que no me cuadran...

Código Delphi [-]
procedure carga_config;
var
//  config:registro; esta variable no se usa para nada...creo.
  archivo: file of registro;
  Buffer: array[1..2048] of Char;
begin
{$i-}
  AssignFile(archivo,'domo.cgf');
  reset(archivo);
  blockread(archivo,Buffer,sizeof(registro));
  CloseFile(archivo);
{$I+}
end;

En la ayuda de Delphi 6, viene la siguente declaracion de BlockRead:
Código Delphi [-]
procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);
Y creo que por eso el compilador te da ese error, no por el assignfile, sino por el blockread...
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita