Cellen im Stringgrid zusammenrechnen

[mkinzler]

Aber warum dann 2 geschachtelte Schleifen mit den selben Grenzen?

[SaFu]

Na ich glaube dann habe ich einen Denk fehler drin hab gedacht das der Rest die funktion übernimmt aber anscheinend nicht :lol:

[SaFu]

OK

jetzt bekomme ich die nur die ergebnisse die in der zeile mit Out stehen in die StringList wie Rechne ich die jetzt zusammen jetzt brauch ich aber wirklich eure hilfe das weis ich nicht, hab ja gezeigt das ich will oder

Delphi-Quellcode:

procedure findStrings(sl:TStrings;s:TStrings);
var i :Integer;
    ergebnis :Tstrings;
begin
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
     end;
    ergebnis.saveToFile('C:\test.txt');
   finally
  ergebnis.Free;
  end;
end;

[DeddyH]

Delphi-Quellcode:

function findStrings(sl:TStrings;s:TStrings): double;
var i :Integer;
    ergebnis :Tstrings;    
begin
  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;
end;

Allerdings ist Deine Vorgehensweise nicht ganz ungefährlich, da s mindestens so viele Einträge wie sl enthalten muss, sonst knallt es.

[SaFu]

Die zwei Spalten stehen in Beziehung zueinander ohne OUT gibts auch keine Switch

[SaFu]

Wenn ich mir das ergebnis im Label anzeigen lasse ist es = 0??

[DeddyH]

Dann klappt das Umwandeln in Float anscheinend nicht. Was steht denn drin?

[SaFu]

Einfach nur 0

oder mache ich es falsch

Delphi-Quellcode:

Label3.Caption FloatToStr(FindStrings(Stringgrid1................usw.

[DeddyH]

Ich meinte, was steht in den Zellen, die Du addieren willst?

[SaFu]

Achso

Kommawerte siehe Anhang