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
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...