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;