Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Componente Stringgrild

Buenas tardes, en un manual que me descargue de delphi, me pone ue haga un ejercicio con el coponente srtinggrild. Lo copio para que lo entendais:

2.- Construir un concentrado que contenga los ingresos por ventas mensuales de los 3 primeros meses del año de 4 sucursales de una cadena refaccionaría, agregar listas de ingresos totales por mes e ingresos promedios por sucursal.

Tengo el sigiente codigo:

Código Delphi [-]
procedure TForm1.CalcularClick(Sender: TObject);
var
totsuc: array [1..4] of real;
promsuc: array [1..4] of real;
totmes: array [1..3] of real;
prommes: array [1..3] of real;
columnas:integer;
renglones:integer;

begin


for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
  totsuc[renglones]:=totsuc[renglones]+strtofloat(stringgrid1.Cells[renglones,columnas]);

end;
end;
for renglones:=0 to 3 do begin
promsuc[renglones]:=totsuc[renglones]/3;
end;


for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totmes[columnas]:=totmes[columnas]+strtofloat(stringgrid1.Cells[renglones,columnas]);
end;

end;
for columnas:=0 to 2 do begin

prommes[columnas]:=totmes[columnas]/4;
end;

for renglones := 0 to 3 do begin
listbox1.Items.Add(floattostr(totsuc[renglones]));
listbox1.Items.Add(floattostr(promsuc[renglones]));
end;
for columnas := 0 to 2 do begin
listbox3.Items.Add(floattostr(totmes[columnas]));
listbox4.Items.Add(floattostr(prommes[columnas]))


end;

end;

end.

Al ejecutarlo me va todo bien pero cuando le doy al boton calcular me da el siguente error:

raised excemtio class econverterror with message is not vaid floating point value.

He mirado y no he encontrado el fallo, aunque seguro que sera una tonteria como siempre me suele pasar.

Un saludo y gracias de antemano

Última edición por Casimiro Notevi fecha: 08-02-2011 a las 13:59:24. Razón: Poner etiquetas [delphi] [/delphi]
Responder Con Cita
  #2  
Antiguo 08-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Cita:
is not vaid floating point value
Te está diciendo que el valor que utilizas no es un valor tipo Float válido.

Supongo que el problema está en la función StrToFloat.
Le pasas un string y te devuelve un Float.
Si el string es vacío o tiene letras o más de un punto, te dará un error de conversión
Cita:
raised exception class EConvertError
Puedes por ejemplo poner la parte que puede fallar en bloques try..except
Por ejemplo:
Código Delphi [-]
for renglones:=0 to 3 do 
begin
   for columnas:=0 to 2 do 
   begin
      try
         totmes[columnas] := totmes[columnas] + strtofloat(StringGrid1.Cells[renglones,columnas]);
      except
         on e:Exception do
         begin
            {Si falla te mostrara el valor del StringGrid y pondrá el valor a 0}
            ShowMessage('No puedo convertir ' + StringGrid1.Cells[renglones,columnas]);
            totmes[columnas] := 0;
         end;
      end;
   end;
end;
Responder Con Cita
  #3  
Antiguo 09-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
Te está diciendo que el valor que utilizas no es un valor tipo Float válido.

Supongo que el problema está en la función StrToFloat.
Le pasas un string y te devuelve un Float.
Si el string es vacío o tiene letras o más de un punto, te dará un error de conversión

Puedes por ejemplo poner la parte que puede fallar en bloques try..except
Por ejemplo:

Código Delphi [-]for renglones:=0 to 3 do
begin
for columnas:=0 to 2 do
begin
try
totmes[columnas] := totmes[columnas] + strtofloat(StringGrid1.Cells[renglones,columnas]);
except
on e:Exception do
begin
{Si falla te mostrara el valor del StringGrid y pondrá el valor a 0}
ShowMessage('No puedo convertir ' + StringGrid1.Cells[renglones,columnas]);
totmes[columnas] := 0;
end;
end;
end;
end;

Ants no he dicho, que da fallo cuando pongo datos ya sea enteros o decimales.
Responder Con Cita
  #4  
Antiguo 09-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
¿Has modificado tu procedimiento como te he comentado (try..except)?
¿Sigue fallando?
¿Con qué error?
¿En qué línea?
Responder Con Cita
  #5  
Antiguo 10-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
¿Has modificado tu procedimiento como te he comentado (try..except)?
¿Sigue fallando?
¿Con qué error?
¿En qué línea?
Lo he puesto en la primera linea, y me da error, de mod que no he seguido con las demas. y me da el error que no puede convertir, y a la cuarta vez que me sale ese error me sale el error ya comentado.

Yo creo que el fallo esta en toda las lineas.
Responder Con Cita
  #6  
Antiguo 10-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Cita:
y me da el error que no puede convertir
Código Delphi [-]
ShowMessage('No puedo convertir ' + StringGrid1.Cells[renglones,columnas]);
totmes[columnas] := 0;
Si el error es exactamente "No puedo convertir " Quiere decir que la celda en ese renglón y esa columna está vacío.

Si el error es algo así como "No puedo convertir 123.456.678"; Quiere decir que la celda en ese renglón y esa columna tiene el valor "123.456.678" que no es un valor válido. (Tiene 2 puntos)

Por lo que comentas, creo que es el primer error y por lo tanto se puede tomar como un 0 y es lo que hace el trozo de código si hay una excepción.

Cita:
la cuarta vez que me sale ese error me sale el error ya comentado
Eso es porque ya ha terminado el primer bucle donde has puesto el control de errores (bloque try..except).
En el segundo bucle trata de convertir nuevamente los valores y vuelve a fallar.

Si nos dices EXACTAMENTE qué valores tiene las celdas (con sus puntos, comas y signos) te podrémos decir qué es lo que fallará.

Ten en cuenta que para convertir un número con la función StrToFloat el string que le pasas:
- solo debe tener números
- solo puede haber un punto que separe la parte entera de la decimal.
- si fuera negativo podría empezar con el signo "-"
- no debe contener espacios.
Responder Con Cita
  #7  
Antiguo 10-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
Código Delphi [-]
ShowMessage('No puedo convertir ' + StringGrid1.Cells[renglones,columnas]);
totmes[columnas] := 0;
Si el error es exactamente "No puedo convertir " Quiere decir que la celda en ese renglón y esa columna está vacío.

Si el error es algo así como "No puedo convertir 123.456.678"; Quiere decir que la celda en ese renglón y esa columna tiene el valor "123.456.678" que no es un valor válido. (Tiene 2 puntos)

Por lo que comentas, creo que es el primer error y por lo tanto se puede tomar como un 0 y es lo que hace el trozo de código si hay una excepción.


Eso es porque ya ha terminado el primer bucle donde has puesto el control de errores (bloque try..except).
En el segundo bucle trata de convertir nuevamente los valores y vuelve a fallar.

Si nos dices EXACTAMENTE qué valores tiene las celdas (con sus puntos, comas y signos) te podrémos decir qué es lo que fallará.

Ten en cuenta que para convertir un número con la función StrToFloat el string que le pasas:
- solo debe tener números
- solo puede haber un punto que separe la parte entera de la decimal.
- si fuera negativo podría empezar con el signo "-"
- no debe contener espacios.
Los numeros que meto en las celdas es 1 2 3 4 asi hasta 12. No pongo ni untos ni espacios ni signos ni nada, solo 1,2,3,4 a si hata doce y cada numero en una celda.
Responder Con Cita
  #8  
Antiguo 10-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Si quieres más información sobre el error puedes agregarla al mensaje de la exceción
Código Delphi [-]
for renglones:=0 to 3 do 
begin
   for columnas:=0 to 2 do 
   begin
      try
         totmes[columnas] := totmes[columnas] + strtofloat(StringGrid1.Cells[renglones,columnas]);
      except
         on e:Exception do
         begin
            {Si falla te mostrara el valor del StringGrid y pondrá el valor a 0}
            if (Trim(StringGrid1.Cells[renglones,columnas]) = '') then
               ShowMessage('No puedo convertir el valor del renglon '+IntToStr(rengloses)+ 'y columna '+IntToStr(columnas)+' porque esta vacio');
            else
               ShowMessage('No puedo convertir el valor '+ StringGrid1.Cells[renglones,columnas] + ' del renglon '+IntToStr(rengloses)+ 'y columna '+IntToStr(columnas));
            totmes[columnas] := 0;
         end;
      end;
   end;
end;
Responder Con Cita
  #9  
Antiguo 13-02-2011
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 JLMN22.

Estuve mirando tu código y dos motivos causan tus errores.

(Error de conversión)
Si lees la propiedad Cells de TStringGrid, verás que no es: [Fila, Columna], sino:[Columna, Fila].
Cuando haces:
Código Delphi [-]
  for renglones:=0 to 3 do 
    for columnas:=0 to 2 do 
      totsuc[renglones]:=totsuc[renglones]+
          strtofloat(stringgrid1.Cells[renglones,columnas]);
y la variable 'renglones' alcanza el valor 3, es lógico que allí haya un espacio vacío por que esa es la posición de los meses y estos sólo tendrían que alcanzar el valor 2. Ojalá hubiesen sido 4 meses...

Entonces lo correcto sería:
Código Delphi [-]
 for renglones:=0 to 3 do 
    for columnas:=0 to 2 do 
      totsuc[renglones]:=totsuc[renglones]+
          strtofloat(stringgrid1.Cells[columnas, renglones]);

Ahora tenés otro error, que lógicamente aún no has podido descubrir...
Si miramos la declaración de los arreglos
Código Delphi [-]
var
 totsuc: array [1..4] of real;
 promsuc: array [1..4] of real;
 totmes: array [1..3] of real;
 prommes: array [1..3] of real;
y los valores en que inician y finalizan los for, no nos dan las cuentas...
Empiezan en una posición inexistente(0) y terminan una posición antes(3) como por ejemplo: totsuc. Cuando recorremos los arreglos tenemos que sumar 1 tanto a filas como a columnas.

Bueno, resumiendo:
Código Delphi [-]
procedure TForm1.CalcularClick(Sender: TObject);
var
  totsuc: array [1..4] of real;
  promsuc: array [1..4] of real;
  totmes: array [1..3] of real;
  prommes: array [1..3] of real;
  Suc, Mes:integer;
  Aux: Double;
begin
  for Suc:= 0 to 3 do
   for Mes:= 0 to 2 do
     if TryStrToFloat(StringGrid1.Cells[Mes,Suc],Aux) then
       totsuc[Suc+1]:= totsuc[Suc+1] + Aux
     else
     begin
       ShowMessage(Format('Error: Sucursal: %d, Mes: %d',[Suc+1,Mes+1]));
       StringGrid1.Col:= Mes;  // Posicionar en la celda,
       StringGrid1.Row:= Suc; // donde se produjo el error
       Exit; // Salir
     end;

  for Suc:= 0 to 3 do
    promsuc[Suc+1]:= totsuc[Suc+1]/3;

  for Suc:= 0 to 3 do
    for Mes:= 0 to 2 do // TryStrToFloat no es necesario, ya se controló arriba
       totmes[Mes+1]:= totmes[Mes+1]+StrToFloat(StringGrid1.Cells[Mes, Suc]);

  for Mes:= 0 to 2 do
   prommes[Mes+1]:=totmes[Mes+1]/4;

  for Suc := 0 to 3 do
  begin
    listbox1.Items.Add(floattostr(totsuc[Suc+1]));
    listbox1.Items.Add(floattostr(promsuc[Suc+1]));
  end;

  for Mes := 0 to 2 do
  begin
    listbox3.Items.Add(floattostr(totmes[Mes+1]));
    listbox4.Items.Add(floattostr(prommes[Mes+1]))
  end;
end;

Para evitar posibles errores de conversión en el ingreso de los valores, use la función TryStrToFloat, informando sucursal y mes en que se produjo en tal caso.

Otra cosa, el begin / end es innecesario cuando hay una sola instrucción, lo único que logra es oscurecer el código.

No comprobé si el resultado concuerda con la lógica del algorítmo, eso lo dejo a tu buen criterio...


Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 13-02-2011 a las 13:26:48.
Responder Con Cita
  #10  
Antiguo 14-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
Si quieres más información sobre el error puedes agregarla al mensaje de la exceción

Código Delphi [-]
for renglones:=0 to 3 do
begin
for columnas:=0 to 2 do
begin
try
totmes[columnas] := totmes[columnas] + strtofloat(StringGrid1.Cells[renglones,columnas]);
except
on e:Exception do
begin
{Si falla te mostrara el valor del StringGrid y pondrá el valor a 0}
if (Trim(StringGrid1.Cells[renglones,columnas]) = '') then
ShowMessage('No puedo convertir el valor del renglon '+IntToStr(rengloses)+ 'y columna '+IntToStr(columnas)+' porque esta vacio');
else
ShowMessage('No puedo convertir el valor '+ StringGrid1.Cells[renglones,columnas] + ' del renglon '+IntToStr(rengloses)+ 'y columna '+IntToStr(columnas));
totmes[columnas] := 0;
end;
end;
end;
end;


cuando hago eso me sale que no se puedo convertir el valor del renglon 3 y columna 0 por que esta vacio.
Responder Con Cita
  #11  
Antiguo 14-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Cita:
cuando hago eso me sale que no se puedo convertir el valor del renglon 3 y columna 0 por que esta vacio.
Por lo visto en el renglon 3 columna 0 está vacío. Revisa que es lo que tienes en esa posicion

Mira lo que te comenta ecfisa en el post anterior.
Cita:
Si lees la propiedad Cells de TStringGrid, verás que no es: [Fila, Columna], sino:[Columna, Fila].
Responder Con Cita
  #12  
Antiguo 15-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Ahora me da fallo la suma por sucursal y promedio por sucursal

El resto de cosas concuerdan pero ahora el fallo es la suma por sucursal y promedio opr sucursal que dan mal el calculo. Dejo mi codigo:
procedure TForm1.CalcularClick(Sender: TObject);
var
totsuc: array [1..4] of real;
promsuc: array [1..4] of real;
totmes: array [1..3] of real;
prommes: array [1..3] of real;
columnas:integer;
renglones:integer;
begin

for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totsuc[renglones+1]:=totsuc[renglones+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for renglones:=0 to 3 do begin
promsuc[renglones+1]:=totsuc[renglones+1]/3;
end;

for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totmes[columnas+1]:=totmes[columnas+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for columnas:=0 to 2 do begin
prommes[columnas+1]:=totmes[columnas+1]/4;
end;
for renglones := 0 to 3 do begin
listbox1.Items.Add(floattostr(totsuc[renglones+1]));
listbox2.Items.Add(floattostr(promsuc[renglones+1]));
end;
for columnas := 0 to 2 do begin
listbox3.Items.Add(floattostr(totmes[columnas+1]));
listbox4.Items.Add(floattostr(prommes[columnas+1]))

end;
end;
end.

Última edición por ecfisa fecha: 15-02-2011 a las 17:30:57.
Responder Con Cita
  #13  
Antiguo 15-02-2011
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 JLMN22.

Por favor, tratá de usar las etiquetas [delphi] y [/delphi] para encerrar el código Delphi que pongas en los mensajes,
de ese modo se hace mucho más legible. [ Uso de Etiquetas vB ]

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 15-02-2011 a las 13:47:35.
Responder Con Cita
  #14  
Antiguo 15-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Ya he puiesto con etiquetas, espero que este bien

Código Delphi [-]
 
procedure TForm1.CalcularClick(Sender: TObject);
var
totsuc: array [1..4] of real;
promsuc: array [1..4] of real;
totmes: array [1..3] of real;
prommes: array [1..3] of real;
columnas:integer;
renglones:integer;
begin

for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
  totsuc[renglones+1]:=totsuc[renglones+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for renglones:=0 to 3 do begin
promsuc[renglones+1]:=totsuc[renglones+1]/3;
end;

for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totmes[columnas+1]:=totmes[columnas+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for columnas:=0 to 2 do begin
prommes[columnas+1]:=totmes[columnas+1]/4;
end;
for renglones := 0 to 3 do begin
listbox1.Items.Add(floattostr(totsuc[renglones+1]));
listbox2.Items.Add(floattostr(promsuc[renglones+1]));
end;
for columnas := 0 to 2 do begin
listbox3.Items.Add(floattostr(totmes[columnas+1]));
listbox4.Items.Add(floattostr(prommes[columnas+1]))

end;
end;
end.
Responder Con Cita
  #15  
Antiguo 15-02-2011
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 JLMN22.

Esta muy bién. Muchas gracias por tu colaboración.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 15-02-2011 a las 23:16:09.
Responder Con Cita
  #16  
Antiguo 16-02-2011
JLMN22 JLMN22 is offline
Miembro
 
Registrado: nov 2008
Posts: 18
Poder: 0
JLMN22 Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola JLMN22.

Esta muy bién. Muchas gracias por tu colaboración.

Un saludo.
Menos masl que por fi he acertado, pero tengo el problema que he comentado anteriormente, el fallo es la suma por sucursal y promedio opr sucursal que dan mal el calculo
Responder Con Cita
Respuesta



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
como comparar cada linea de un componente Memo1 con un componente ListBox1 soma25 C++ Builder 1 31-10-2007 11:02:22
Componente VCL a OCX Pook OOP 4 27-04-2006 11:27:24
Componente chalys Varios 1 20-10-2005 09:11:47
Componente mes carlomagno OOP 1 24-08-2004 00:15:29
Apuntar una propiedad de un componente a otra de otro componente Majo Varios 10 24-03-2004 20:46:39


La franja horaria es GMT +2. Ahora son las 01:28:04.


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