Ver Mensaje Individual
  #8  
Antiguo 08-06-2005
axelbb axelbb is offline
Miembro
 
Registrado: oct 2004
Posts: 127
Reputación: 20
axelbb Va por buen camino
Lightbulb Ok, entonces es...

Función en Dephi para leer ese dato (y modificarlo también, con algunos cambios):

function LeeAutoInc(filename : string) : LongInt;
var
MiTabla : tfilestream;
buffer : longint;
begin
MiTabla := tfilestream.create(filename,
fmOpenread + fmShareDenyWrite);
MiTabla.Seek(73, soFromBeginning);
MiTabla.readbuffer(buffer, 4); //Aqui usas funciones de Write

//Write(const Buffer; Count: Longint)
//mira ayuda Delphi
MyTabla.Free;
LeeAutoInc := buffer;
end;

Creo que anda, probalo y corregilo si hace falta.
El valor del último autogenerado se almacena en el lugar 73 decimal del archivo principal.
Pero, por Dios, no uses más Paradox!!!!!

No es un consejo menor, te aseguro que vas a renegar MUCHO con Paradox.

Saludos.
Responder Con Cita