Witam!
Jak wymnożyć wszystkie liczby z pierwszej kolumny w listview i wstawic ten wynik do edit1??
Z gory dzieki za odpowiedz!!
Witam!
Jak wymnożyć wszystkie liczby z pierwszej kolumny w listview i wstawic ten wynik do edit1??
Z gory dzieki za odpowiedz!!
Odpowiednia pętla oraz StrToInt() i gotowe :|.
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??
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;
Wielkie dzieki teraz juz wszystko dziala!!
Jednak nie wszystko dziala. Gdy wstawie do itema jakas liczbe dziesietna np. 1,2 to nie dziala ta procedura, co trzeba w niej zmienic?
StrToInt na StrToFloat, a IntToStr na FormatFloat + F1.
Dzieki