Nuevo en BDS, problema con archivos
 

Buenas gente, soy nuevo en el foro. Me pareció muy interesante toda la informacion que hay y me registré. Hace un tiempo comence a aprender BSD en la facultad y ahora nos piden un programita sencillo en el cual tengo un problema que no se resolver. Antes de borland, estuvimos trabajando con Pascal, para que nos resulte familiar.

Bueno, el tema es que tengo que hacer un programita para gestionar un cajero automatico. Debe tener un archivo de clientes y otro de cuentas de clientes. El problema es que al crear estos archivos, me salen unos errores que no se solucionarlos. A continuacion les paso el codigo, el cual es reciclado de otro programa hecho en Pascal.

Código Delphi [-]
type
    registroclientes = record
        nrocliente:longint;
        nombrecli:string [30];
        clave:longint;
    end;
archivoclientes = file of registroclientes;

type
    registrocuentas = record
        nrocliente:longint;
        nrocuenta:longint;
        monto:longint;
    end;
archivocuentas = file of registrocuentas;

type
    registroempleados = record
        nroempleado:longint;
        nombreemp:string [30];
        clave:longint;
    end;
archivoempleados = file of registroempleados;

begin
  Application.Initialize;
  Application.CreateForm(Tformularioinicio, formularioinicio);
  Application.CreateForm(Tformularioclientes, formularioclientes);
  Application.CreateForm(Tformulariocuenta, formulariocuenta);
  Application.Run;
   assign (archivoclientes ,'c:/cajero/archivoclientes.dat');
        {$I-}
                reset (archivoclientes);
        {$I+}
                if ioresult<>0 then
                        rewrite(archivoclientes);

        assign(archivocuentas,'c:\cajero/archivocuentas.dat');
         {$I-}
                reset (archivocuentas);
         {$I+}
                if ioresult<>0 then
                        rewrite(archivocuentas);
         assign(archivoempleados,'c:\cajero/archivoempleados.dat');
         {$I-}
                reset (archivoempleados);
         {$I+}
                if ioresult<>0 then
                        rewrite(archivoempleados);
                close (archivoempleados);
end.

Estos son los errores:

Hola joaco (Joaquin?)

Bienvenido. Te recomiendo una vuelta por aqui.

Con respecto a tu mensaje y los codigos de error:

Loa numero entre parentesis despues del nombre del Unit te indican en que linea se encuentra un error.

Los errores que te mencionan creo que estan muy explicitos, en alguno te informa que esperaba un '(' pero encontro una ',' es decir que la sintaxis no esta correcta; en otros te menciona que hay incompatibilidad de tipos es decir que estas usando un integer donde deberia ser un float o al reves, tambien podria ser un string. Revisa tu codigo y corrige linea a linea puedes invocar a San F1 para obtener la ayuda del Oraculo y nos comentas como te fue o cuales son tus dudas nuevas.

Saludos!

Hola Fgarcia. Muchas gracias por contestar. Si, es joaco por Joaquin :D.

Me parece que quisiste poner un link y no aparece.

Con respecto a los errores, voy a revisar lo de las declaraciones y la sintaxis, a ver si puedo solucionar algo. El mayor problema que tengo es la falta de informacion. Yo estoy trabajando de esta manera porque me dijeron que es casi el mismo codigo de Pascal. La verdad que no pude encontrar algun manual correspondiente a la version que estoy usando (BDS 2006).

De todas formas gracias por tu tiempo. Saludos!