Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-07-2015
irurueta irurueta is offline
Registrado
NULL
 
Registrado: jul 2015
Posts: 5
Poder: 0
irurueta Va por buen camino
Ayuda con error "Not enough actual parameters"

Hola a todos, soy estudiante y soy un ñoqui para esto!
Tengo un problema con un programa cuando lo compilo, y no se como solucionarlo!
Dejo una imagen de el procedure y otra del error!
Imágenes Adjuntas
Tipo de Archivo: jpg Sin título.jpg (20,4 KB, 12 visitas)
Tipo de Archivo: jpg Sin título1.jpg (15,0 KB, 5 visitas)
Responder Con Cita
  #2  
Antiguo 30-07-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Bienvenido

No se ve nada en las imágenes, sería mejor que nos copies el código y nos digas cual es el error
Responder Con Cita
  #3  
Antiguo 30-07-2015
irurueta irurueta is offline
Registrado
NULL
 
Registrado: jul 2015
Posts: 5
Poder: 0
irurueta Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
Bienvenido

No se ve nada en las imágenes, sería mejor que nos copies el código y nos digas cual es el error
Código Delphi [-]
procedure calc_desc(contE_1,contE_2,contE_3,contE_4,contE_5:integer;var desc_1,desc_2,desc_3,desc_4,desc_5:real;
                             var aux_1,aux_2,aux_3,aux_4,aux_5:real;var porc1,porc2,porc3,porc4,porc5:real;var tot1,tot2,tot3,tot4,tot5:real);
//Calcular descuento.
begin
 aux_1:=130*contE_1;
 if aux_1>1000 then
  begin
  porc1:=aux_1*0.1;
  desc_1:=porc1-aux_1;
  tot1:=aux1-porc1

Código Delphi [-]
calc_desc(cont1,cont2,cont3,cont4,cont5,desc1,desc2,desc3,desc4,desc5,aux1,aux2,
 aux3,aux4,aux5,tot1,tot2,tot3,tot4,tot5); //aca me tira error :

Código:
[Error] Project2.dpr(224): Not enough actual parameters
Código Delphi [-]
 if aux1>1000 then
  begin
  writeln('El producto 1 tiene un descuento del 10%, debe pagar $',tot1:8:2);
  end;

Última edición por dec fecha: 30-07-2015 a las 21:38:49. Razón: Poner etiquetas Delphi y formatear un poco el mensaje. Por favor, lea la guía de estilo de los foros y ¡hágale caso!
Responder Con Cita
  #4  
Antiguo 30-07-2015
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

He cambiado el título de este hilo y he formateado tu último mensaje, irurueta. Por favor, revisa la guía de estilo de los foros.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #5  
Antiguo 30-07-2015
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

El mismo mensaje de error te está diciendo el problema: "No se han proporcionado los argumentos necesarios". Contando los argumentos de la declarada función (una verdadera barbaridad, por cierto) estos no coinciden con los que usas al llamar a dicha función y de ahí el problema.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #6  
Antiguo 30-07-2015
irurueta irurueta is offline
Registrado
NULL
 
Registrado: jul 2015
Posts: 5
Poder: 0
irurueta Va por buen camino
Gracias bro, no tenia ni idea como hacer eso jaja!
Responder Con Cita
  #7  
Antiguo 31-07-2015
(MAJ) (MAJ) is offline
Miembro
 
Registrado: abr 2007
Posts: 71
Poder: 17
(MAJ) Va por buen camino
Lightbulb otra solucion

mira, como tenes veinticinco parametros y a la vez esos estan divididos en cinco grupos de cinco, estoy segudo de que mas de una vez te va a causar problemas el pasar tantos parametros, lo mejor seria pasar un array de dos dimensiones 5x5, o sino 5 arrays independientes
Responder Con Cita
  #8  
Antiguo 31-07-2015
irurueta irurueta is offline
Registrado
NULL
 
Registrado: jul 2015
Posts: 5
Poder: 0
irurueta Va por buen camino
Cita:
Empezado por (MAJ) Ver Mensaje
mira, como tenes veinticinco parámetros y a la vez esos están divididos en cinco grupos de cinco, estoy segudo de que mas de una vez te va a causar problemas el pasar tantos parámetros, lo mejor seria pasar un array de dos dimensiones 5x5, o sino 5 arrays independientes
Holaaa, tiene muchos parámetros, porque debía hacer un sistema para un deposito de elementos de soldadura (Trabajo practico de la facu), en el cual tenían 5 productos y de allí tenia que sacar si se compraban mas de 1000 artículos el 10% y descontarlo, o sea hacer el 10% de descuento!

Ya pude solucionarlo, el problema era que cuando llamaba al procedure, no declaraba las variables.

Gracias...
Responder Con Cita
  #9  
Antiguo 31-07-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola irurueta.

Tal vez te resulte mas simple organizarlo de forma similar a esta:
Código Delphi [-]
type
  TProducto = record
    ContE : Integer;
    Desc  : Real;
    Aux   : Real;
    Porc  : Real;
    Tot   : Real;
  end;

procedure calc_desc(p1, p2, p3, p4, p5: TProducto);
begin
  p1.Aux := 130 * p1.ContE;
  if p1.Aux > 1300 then
  begin
    p1.Porc := p1.Aux * 0.1;
    p1.Desc := p1.Porc - p1.Aux;
    p1.Tot  := p1.Aux -p1.Porc;
    ...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemilla, el compilador me dice Not enough actual parameters y no se porqué pokexperto1 Varios 10 23-01-2015 20:21:59
Not enough actual parameters Taburiente Varios 4 24-09-2011 22:43:40
Error en consulta parameters jlsc Conexión con bases de datos 2 17-07-2007 10:53:57
Error FireBird Embebido "bad parameters on attach or create database CHARACTER SET IS fidel Firebird e Interbase 2 16-06-2005 01:35:50
Ayuda sobre: "El valor de BOF o EOF es true, o el registro actual se elimino......... David J. Conexión con bases de datos 6 16-08-2003 07:23:40


La franja horaria es GMT +2. Ahora son las 19:08:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi