Hola a todos... abro este thread para ver si alguien me puede dar una mano con este error que me aparece cuando ejecuto en el freepascal.
A continuacion copypasteo el procedimiento donde esta el error:
Procedure Acttexto (var indice:tv_indiceencargados);
Var
emptxt:text;
regaux:t_Encargados;
conv:string;
dato:string;
empbin :t_archivoEncargados;
i:byte;
posicion:integer;
Begin
dato:='';
assign (empbin,'empleados.dat');
assign (emptxt,'empleados.txt');
rewrite (emptxt);
append (emptxt);
reset (empbin);
for i:=1 to maxencargados do
begin
if (indice[i].pos>0) then
begin
dato:='';
posicion:=indice[i].pos;
seek (empbin,posicion);
read (empbin,regaux);
str (regaux.dni,conv);
dato:=conv+sep;
str (regaux.NroEncargado,conv);
dato:=dato+conv+sep;
dato:=dato+regaux.NombreEncargado+sep+regaux.ApellidoEncargado+sep;
str (regaux.edad,conv);
dato:=dato+conv+sep;
str (regaux.sueldo,conv);
dato:=dato+conv+sep;
str (regaux.EdifAsignado,conv);
dato:=dato+conv;
append (emptxt);
write (emptxt,dato);
end;
end;
close (emptxt);
close (empbin);
End;
Basicamente lo que hace es pasar de un archivo binario a un archivo de texto del tipo CSV pero el muy hdp del programa me tira error de ejecucion y me patea con el exitcode 100
Aclaraciones de las variable y tipos
t_encargados es un registro con los campos que aparecen en el programa
el indice es generado en un procedimiento anterior y contiene dos campos: uno con el numero de empleado y otro con la ubicacion en el archivo binario
si alguno sabe a respuesta de este error por favor avisenme que me estoy volviendo loko.
desde ya gracias a todos
PD: tengo el error exitcode 100 en otras partes del programa pero si me solucionan esta por ahi arreglo las otras
A continuacion copypasteo el procedimiento donde esta el error:
Procedure Acttexto (var indice:tv_indiceencargados);
Var
emptxt:text;
regaux:t_Encargados;
conv:string;
dato:string;
empbin :t_archivoEncargados;
i:byte;
posicion:integer;
Begin
dato:='';
assign (empbin,'empleados.dat');
assign (emptxt,'empleados.txt');
rewrite (emptxt);
append (emptxt);
reset (empbin);
for i:=1 to maxencargados do
begin
if (indice[i].pos>0) then
begin
dato:='';
posicion:=indice[i].pos;
seek (empbin,posicion);
read (empbin,regaux);
str (regaux.dni,conv);
dato:=conv+sep;
str (regaux.NroEncargado,conv);
dato:=dato+conv+sep;
dato:=dato+regaux.NombreEncargado+sep+regaux.ApellidoEncargado+sep;
str (regaux.edad,conv);
dato:=dato+conv+sep;
str (regaux.sueldo,conv);
dato:=dato+conv+sep;
str (regaux.EdifAsignado,conv);
dato:=dato+conv;
append (emptxt);
write (emptxt,dato);
end;
end;
close (emptxt);
close (empbin);
End;
Basicamente lo que hace es pasar de un archivo binario a un archivo de texto del tipo CSV pero el muy hdp del programa me tira error de ejecucion y me patea con el exitcode 100
Aclaraciones de las variable y tipos
t_encargados es un registro con los campos que aparecen en el programa
el indice es generado en un procedimiento anterior y contiene dos campos: uno con el numero de empleado y otro con la ubicacion en el archivo binario
si alguno sabe a respuesta de este error por favor avisenme que me estoy volviendo loko.
desde ya gracias a todos
PD: tengo el error exitcode 100 en otras partes del programa pero si me solucionan esta por ahi arreglo las otras