Cellen im Stringgrid zusammenrechnen

[DeddyH]

Erweitern wird das Ganze mal ein wenig:

Delphi-Quellcode:

function findStrings(sl:TStrings;s:TStrings;cSeparator: char = '.'): double;
var i :Integer;
    ergebnis :Tstrings;
    OldSep: char;   
begin
  OldSep := DecimalSeparator; //Sichern des alten Zustandes
  DecimalSeparator := cSeparator; //Umstellen des Dezimalseparators
  Result := 0;
  ergebnis:= TStringList.Create;
  try
   for i := 1 to Pred(sl.Count)-1 do
    if (sl[i]) = 'OUT' then
     begin
      ergebnis.Add(s[i]); //hier die änderung
      Result := Result + StrToFloatDef(s[i],0); //hier die Ergänzung
     end;
    ergebnis.saveToFile('C:\test.txt');
   finally
  ergebnis.Free;
  end;
  DecimalSeparator := OldSep; //Wiederherstellen des alten Zustandes
end;