Sumowanie wartości

procedure TForm5.Button2Click(Sender: TObject);
var
i: integer;
suma_godzin: Real;
begin
suma_godzin:=0;
for i:=0 to ListView1.Items.Count-1 do
suma_godzin:=suma_godzin+strtoint(ListView1.Items[i].SubItems[2]);
ShowMessage(FormatFloat('0.00', suma_godzin));
end;

Program mi sie wywala kiedy w kolumnie sa liczby po przecinku (125.00). Wie ktoś jak rozwiązać ten problem?

zauwaz ze kropka a przecinek to dwie rozne rzeczy - domyslnie chyba uzywany jest przecinek - sprawdz sam

Bo danych żródłowych nie mogę zmienić.
Wiem ale da sie to jakoś obejść?

To może inaczej. Jak zamienić kropke na przecinek.
Mam do dodania liczby
124.53
123.41
110.1
Sa np w deugiej kolumnie listboxa jak je dodac?

  function StrToInt(const S: string): Integer;

Funkcja służy do konwersji tekstu zapisanego w zmiennej S na liczbę całkowitą - o ile to możliwe

var
i: integer;
suma_godzin: double;
begin
suma_godzin:=0;
for i:=0 to ListView1.Items.Count-1 do
suma_godzin:=suma_godzin+strtofloat(ListView1.Items[i].SubItems[2]);
label5.Caption:=floattostr(suma_godzin);
end;

Jak robie strtofloat taki sam blad wyskakuje. "125.50" is not valid floating point value."
Probowałem zmienna suma_godzin jako single, double, real i dalej nic.. grrrr

Masz do wyboru:

DecimalSeparator

albo

StringReplace

hmmm mozesz pokazac jak to wykorzystac na jakims prostym przykladzie?

malboro napisał(a)

hmmm mozesz pokazac jak to wykorzystac na jakims prostym przykladzie?

var s : String;
begin
   s := '125.00';
   s := StringReplace(s, '.', ',', [rfReplaceAll]);
   ShowMessage(s);
end;

F1 nie boli ...

no nie boli ale przy pobieraniu wartosci z kolumny listview juz tak..

s: string;
c: string;
w: string;
begin
c:='0';
//suma_godzin:=0;
for i:=0 to ListView1.Items.Count-1 do begin
s := ListView1.Items[i].SubItems[2];
s := StringReplace(s, '.', ',', [rfReplaceAll]);
//c:=c+strtoint(s);
end;
label5.Caption:=inttostr(c);

nie działa.. grrrrrrrr

A może

DecimalSeparator

tez probowalem i nic.

malboro napisał(a)

c: string;
//c:=c+strtoint(s); <- ??????????
label5.Caption:=inttostr(c); <- ??????????

To jak to policzyć??!!!

Na palcach ;P Ty w ogóle nie myślisz malboro. Poza tym straszny leń z ciebie [no respect for lazy :P]
Myśli i dopiero programuj albo daruj sobie [!!!] Ech, masz gotowca i tak pewnie znowu coś Ci nie będzie
działać itd. Tylko że dawno sam powinieneś po wskazówkach stworzyć rozwiązanie, a nie czekać ąz się
ktoś [znowu ja :P] zlituje, prowadząc za rączkę. Poza tym przeocznie modów - wątek chyba do newbie.

var
  S : string;
  I : integer;
  Suma : Real;
begin
  Suma := 0;
  for I := 0 to ListView1.Items.Count - 1 do
  begin
    S := ListView1.Items[I].SubItems[2];
    if Pos('.', S) > 0 then
    begin
      S := StringReplace(S, '.', DecimalSeparator, [rfReplaceAll]);
    end
    else
      if Pos(',', S) > 0 then
      begin
        S := StringReplace(S, ',', DecimalSeparator, [rfReplaceAll]);
      end;
    try
      Suma := Suma + StrToFloat(S);
    except
      MessageBox(Application.Handle, PChar(S + ' nie jest poprawną liczbą!'),
        'malboro to leń!', MB_ICONERROR + MB_OK);
      Exit;
    end;
  end;
  Caption := FloatToStr(Suma);
end;

s: string;
suma_godzin : currency;
i: integer;
begin
suma_godzin:=0;

for i:=0 to ListView1.Items.Count-1 do begin
s := ListView1.Items[i].SubItems[2];
s := StringReplace(s, '.', ',', [rfReplaceAll]);
suma_godzin := suma_godzin + StrToFloat(S);
end;
label5.Caption:= FloatToStr(suma_godzin);

cos takiego tez powinno działać