Cellen im Stringgrid zusammenrechnen

[DeddyH]

Die stehten aber wohl mit dem falschen Decimalseparator drin (im Deutschen das Komma).

[SaFu]

Wie, wo, wat, keine Ahnung was du meinst sorry.

Aber ich lasse es mir gerne erklären

[Fussball-Robby]

Möglicherweise reicht ein kleines

Delphi-Quellcode:

Decimalseparator := '.';

Du musst dem Programm erst sagen, dass Kommazahlen durch einen Punkt (.) getrennt sind, da es normalerweise das Komma (,) ist.

[mkinzler]

StrToInt erwartet ',' als Dezimaltrenner

[SaFu]

Sorry wenn ich es jetzt versuche mir leicht zu machen aber wo denn :pale:

[Fussball-Robby]

Zitat:

Zitat von fuknersascha

Sorry wenn ich es jetzt versuche mir leicht zu machen aber wo denn :pale:

Wo du den Dezimalseperator setzen musst? Im OnCreate wäre es wohl am besten aufgehoben.

[mkinzler]

Hohe Kunst des Programmierers ist es die Hilfe (F1) zu benutzen.

Zitat:

Wo du den Dezimalseperator setzen musst? Im OnCreate wäre es wohl am besten aufgehoben.

Nein, dann könnte es im Zweifelfall wieder zurückgestellt worden sin. Entweder direkt vor der Konvertierung oder, wenn in der Delphiversion vorhanden, die überladene Variante wählen

[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;

[SaFu]

Hey Meister DaddyH das funktioniert.

Also wenn ich als Programmierer in einer Firma angestellt wäre, dann wäre die Firma schon Pleite :-D
Wer soll den darauf kommen auser so Profies wie Ihr noch nichtmal in der Hilfe steht viel darüber

Trotzdem danke

[SaFu]

Noch was

Wie kann es sein das 9 stellen nach dem Komma gerechnet wird bei 400 - 500 werten muss man da noch was beachten??

Und wenn ich nur ein Wert habe wird der auch nict angezeigt und 3 werden auch nicht zusammen gezählt