sumando valores de un listview

[ecfisa]

Hola Daniel.

Seguramente este par de funciones te simplificarán la tarea:

Código Delphi [-]
// Devuelve la suma de la columna en cuestión
function AmountTotal(LV: TListView): Double;
var
  i: Integer;
  li: TListItem;
begin
  Result:= 0;
  for i:= LV.Items.Count-1 downto 0 do
  begin
    li:= LV.Items.Item[i];
    Result:= Result + StrToFloat(li.SubItems[LV.Columns.Count-2]);
  end;
end;

// Borra items seleccionados ( MultiSelect = True )
procedure DelSelectedItems(LV: TListView);
var
  i: Integer;
begin
  for i:= LV.Items.Count-1 downto 0 do
    if LV.Items[i].Selected then
      LV.Selected.Delete
end;

El uso:

Código Delphi [-]
// Mostrar total
procedure TForm1.btnTotalClick(Sender: TObject);
begin
  Label1.Caption:= FormatFloat('0.00', AmountTotal(ListView1));
end;

// Eliminar items seleccionados y seguido mostrar total
procedure TForm1.btnDeleteClick(Sender: TObject);
begin
  DelSelectedItems(ListView1);
  Label1.Caption:=  FormatFloat('0.00', AmountTotal(ListView1));
end;

Por si tenes dificultad para implementarlas te adjunto un ejemplo funcional.

Saludos

[danielmj]

hola ecfisa, acabo de mirarlo y de implementarlo, todo lo que ya tenia lo sigo conservando entre {} funciona pero creo que lo de la funcion es mas eficiente.
Solo tengo una duda, pero creo que se por donde van los tiros, me refiero a la variable "result" no la declaras en ningun sitio y no da error, por lo que supongo que delphi la crea automaticamente al iniciar la funcion y en este caso es double ¿es correcto?

Gracias y un saludo.

[ecfisa]

Hola danielmj.

Empezado por danielmj

Solo tengo una duda, pero creo que se por donde van los tiros, me refiero a la variable "result" no la declaras en ningun sitio y no da error, por lo que supongo que delphi la crea automaticamente al iniciar la funcion y en este caso es double ¿es correcto?

Si, así es. Aquí tenes una referencia: Result.

Aunque Delphi continua soportando la sintáxis Pascal de asignar el valor de devolución al nombre de funcion, por ejemplo:

Código Delphi [-]
function FuncionSuma(a,b: Integer): Integer;
begin
  FuncionSuma:= a + b;
end;

Saludos

[danielmj]

Hola ecfisa, gracias ya se una cosa mas y sobre pascal, la verdad es que lo poco que se de pascal es lo que me ayuda para escribir algo de codigo en delphi aunque basicamente son la misma cosa con la diferencia del entorno visual y otras diferencias, pero la base es la misma. La verdad es que delphi como tal, nunca lo vi cuando estudiaba, pasamos de cobol a pascal y de pascal a vb6, solo que a mi siempre me gusto mas delphi y digamos que lo descubri por mi mismo. Ya ha llovido desde entonces, por que el primer delphi que conoci fue la version 3.

Un saludo.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...la verdad es que lo poco que se de Pascal es lo que me ayuda para escribir algo de código en Delphi...

Revisa esta información:

Libros y tutoriales para aprender Delphi

Espero sea útil

Nelson.

[danielmj]

Hola nelson, gracias por la informacion, ya me he bajado un par de archivos de las descargas del foro y he metido en favoritos un par de manuales.
Un saludo.

[danielmj]

hola ecfisa, si si tienes toda la razon, el...

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.

de cobol, tenía su aquel, a mi se me gustaba pero de un momento a otro pasamos a pascal y dejamos cobol. En cuando a C+ recuerdo un dia que tras el examen me dijo el profesor (de nombre D. Javier Maestre) "¿Que, ya sabes programar en C no? el tio con el tono mas ironico del mundo. Y le respondi "pues no, no tengo ni idea, solo me he preparado este examen" jajajaja hasta el tuvo que reirse.

En fin como suele decirse "aquellos maravillosos años"...
Un saludo.

[ecfisa]

Empezado por danielmj

...pasamos de cobol a pascal y de pascal a vb6,...

Me haces recordar mis tiempos de universitario... fué una vivencia muy parecida. Pero lo primero que nos tiraron fue GW-Basic puf!.
Por esa época tuve mis primeros contactos con Turbo Pascal 4.0 y Turbo C, lenguajes con los que siempre mantuve afinidad. El verborrágico aunque poderosísimo Cobol nunca me atrapó. ¡ Ah ! La belle epoque...

Saludos