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