mnozenie listview

0

Witam!

Jak wymnożyć wszystkie liczby z pierwszej kolumny w listview i wstawic ten wynik do edit1??

Z gory dzieki za odpowiedz!!

0

Odpowiednia pętla oraz StrToInt() i gotowe :|.

0

var
i:integer;
p:integer;
begin
p:= ilosc itemow w listbox;
for i:=0 to p do begin
edit1.text:= ??
end;
end;

Co trzeba wstawic aby wymnożyło przez siebie wszystkie itemy??

0
Wynik := 1;
for i = 0 to ListView1.Items.Count -1 do
  Wynik := Wynik * StrToInt(ListView1.Items[i].Caption);
Edit1.Text := IntToStr(Wynik);

Jeszcze vary:

i, Wynik: Integer;
0

Wielkie dzieki teraz juz wszystko dziala!!

0

Jednak nie wszystko dziala. Gdy wstawie do itema jakas liczbe dziesietna np. 1,2 to nie dziala ta procedura, co trzeba w niej zmienic?

0

StrToInt na StrToFloat, a IntToStr na FormatFloat + F1.

0

Dzieki

1 użytkowników online, w tym zalogowanych: 0, gości: 1