gennemsnit

procedure TForm1.ListView1Click(Sender: TObject);
var
  i : Integer;
  j : Extended;
begin
  i := ListView1.SelCount;
  if i = 0 then
    exit;

  j := 0;
  for i := 0 to ListView1.Items.Count -1 do
    if ListView1.Items[i].Selected then
      j := j + StrToFloat(ListView1.Items[i].SubItems[1]);

  i := ListView1.SelCount;
  Label1.Caption := Format('Antal elementer : %d, Sum %f, Gennemsnit : %f', [i, j, j / i]);
end;


Jens B

får fejlen index out of bounds

Så er det fordi dine data ligger ikke ligger 2 som du skrev. Men det retter du bare ...

Jens B

hmm kan du så ikke lige ligge dit project op? plz

har fået det til at virke....takker!!

Jeg tror det der snyder dig er den første hedder caption de andere hedder SunItems[..]

Jens B

ja... men jeg skrev der skulle være to og så laver du tre....:)