4 respuestas en este tema

[Thron1]

Hola para toda la comunidad!! Les comento, recien me estoy iniciando en la programacion y estoy resolviendo algunos ejercicios bastante basicos seguro para ustedes, les pido que me perdonen si hay una solucion a mi problema en el foro pero la verdad no la encontre, desde ya mil gracias.

Mi problema es asi, necesito generar un archivo de productos para un comercio con los campos Codigo de producto, precio unitario, cantidad restante de stock, y stock minimo recomendable. Solo eso. Mi problema es que al generar el archivo me salta un runtime error (65216) que segun entiendo es por usar espacio en memoria restringido. Les copio y pego el codigo.

delphi

program GenerarArchivoProductos;
type
    TRProd=RECORD
      CodP: word;
      PU: real;
      Cstock: integer;
      Stmin: integer
    end;
var
   RProd: TRProd;
   Producs: File of TRProd;
begin
  assign(Producs, 'C:/Productos.dat');
  rewrite(Producs);
  write('Ingrese el codigo de producto: ');
  read(Producs, RProd);
  write(RProd.CodP);
  while RProd.CodP<>0 do
        begin
          writeln();
          write('Ingrese el precio unitario: ');
          write(RProd.PU);
          writeln();
          write('Ingrese la cantidad restante en stock: ');
          write(RProd.Cstock);
          writeln();
          write('Ingrese el stock minimo recomendable: ');
          write(RProd.Stmin);
          read(Producs, RProd);
          write('Ingrese el codigo de producto: ');
          write(RProd.CodP);
          writeln();
        end;
  close(Producs);
end.

 

Mil gracias por leer y perdon de nuevo por ser algo tan basico!!

[monchito_elroro]

Hola, yo también soy principiante en Lazarus y despues de ver tu código no me parece tan básico 

A lo mejor puedas poner todo el código de error que te sale o también subir un pequeño ejemplo...

[German]

Hola, no entiendo bien que es lo que quieres hacer, pero el codigo me parece que que no es lo que tu quieres, a ver:

delphi

    
  program GenerarArchivoProductos;
    type
        TRProd=RECORD
          CodP: word;
          PU: real;
          Cstock: integer;
          Stmin: integer
        end;
    var
       RProd: TRProd;
       Producs: File of TRProd;
    begin
      assign(Producs, 'C:/Productos.dat');
      rewrite(Producs); <<-- abres el archivo para escritura o lo creas
      write('Ingrese el codigo de producto: ');
      read(Producs, RProd); <<-- Lees un registro del archivo, y si esta vacio?
      write(RProd.CodP); <<-- escribes el codigo por pantalla
      while RProd.CodP<>0 do
            begin
              writeln();
              write('Ingrese el precio unitario: ');
              write(RProd.PU); <<-- Escribes el precio por pantalla, no deberia ser un read para leerlo?
              writeln();
              write('Ingrese la cantidad restante en stock: ');
              write(RProd.Cstock); <<-- Escribes el stock por pantalla, no deberia ser un read para leerlo?
              writeln();
              write('Ingrese el stock minimo recomendable: ');
              write(RProd.Stmin); <<-- Escribes el minimo por pantalla, no deberia ser un read para leerlo?
              read(Producs, RProd); <<-- Vuelves a leer el registro del archivo?
              write('Ingrese el codigo de producto: ');
              write(RProd.CodP);  <<-- Escribes el codigo por pantalla, no deberia ser un read para leerlo?
              writeln();
              <<-- No deberias escribir el registro ahora en el archivo?
            end;
      close(Producs);
    end.

Saludos.

[Delphius]

German, por favor utiliza las etiquetas cuando expongas código. Muchas gracias.

Saludos,

[German]

Mil disculpas!!!