Abrir base de datos Pascal en delphi

[gilberto_1126]

desgraciadamente es lo unico que se y buscando archivos que acompañen a la base de datos, solo estan unos archivos .BAK pero son archivos de respaldo que va creando el sistema automatica y periodicamente.

[Casimiro Noteví]

Empezado por gilberto_1126

solo estan unos archivos .BAK pero son archivos de respaldo que va creando el sistema automatica y periodicamente.

¿El sistema?, ¿qué sistema?, ¿el programa con el que está creado o algún programa de backups?.
¿No hay más archivos?, ¿alguna pista?, es que si no dices nada, evidentemente, adivinos no somos

[[duilioisola]]

Puede que estés hablando de archivos con una estructura propia.
En Pascal, allá lejos y hace tiempo, se utilizaban records y con eso se leia un archivo.
Creo que era algo asi:

Código Delphi [-]
type
  PhoneEntry = record
    FirstName, LastName: string[20];
    PhoneNumber: string[15];
    Listed: Boolean;
  end;

  PhoneList = file of PhoneEntry;

var
   aPhoneEntry : PhoneEntry;

begin
    AssignFile(PhoneList , 'Datos.DAT');
    Reset(PhoneList );
    try
      Seek(PhoneList , 10);
      Read(PhoneList , aPhoneEntry
    finally
      CloseFile(PhoneList );
    end;
end;

Para saber la estructura del Record, deberás abrir el .dat con el bloc de notas y deducir los largos de cada campo.
Si ver caracteres raros, se debe tratar de un numero. Si es un caracter será un byte, si son dos un integer, si son 4 creo que un real...

[gilberto_1126]

No existen mas archivos con los que pueda dar referencia, solo este archivo .DAT y si lo abro con bloq de notas aparecen simbolos raros y algunas descripciones entendibles, creo que si es un archivo de estructura propia, pero desgraciadamente no se como manejarlo. donde puedo encontrar un manual o algun tutorial para aprender a trabajar con estos archivos??????

[Casimiro Noteví]

Pues con el ejemplo de duilioisola.
Te toca hacer prueba y error, prueba y error, prueba y error...

[[maeyanes]]

Hola...

O conseguir el códgo fuente del programa original...


Saludos...

[Casimiro Noteví]

O por lo menos saber qué programa era, o preguntar a alguien que lo sepa, o preguntar a quien le ha dado el fichero, etc.

[ecfisa]

Hola gilberto_1126.

Sólo quería agregar, que si el archivo es tipado y está realizado en Pascal, desde Delphi deberás declarar los registros como packed record, o usar la directiva {$A }.
Es decir si en Pascal se declaró:

Código Delphi [-]
type 
   TCliente = record
     nombre: string;
     telefono: string;
     ...
   end;

En Delphi:

Código Delphi [-]
type 
  TCliente = packed record
    nombre: string;
    telefono: string;
       ...
   end;

Un saludo.