StringGrid - Minimum, Maximum, Durchschnitt bestimmen

[pstruh]

Hmmm, also da bin ich jetzt am Rätseln Das sollte eigentlich ohne Fehler funktionieren; da bin ich im Moment überfragt, sorry ...

[pstruh]

Ich habe das jetzt eben mal in einem Testprogramm durchgespielt, da hat es funktioniert - ich kann im Augenblick diese Fehlermeldung absolut nicht nachvollziehen. Ist es denn richtig, dass deine "Zahlenwerte" alle in der Spalte 1 enthalten sind?

[atgis]

Ja die Werte stehen alle drin...so sieht es aus, wenn ich auf den Button Laden klick! Button1 soll das Maximum und Minimum in den Editfeldern ausgeben...

Da kommt aber eben der Fehler...
Hier der Screenshot:
http://img301.imageshack.us/img301/6...tmapki4.th.jpg

EDIT: Ok! Ich hab den Fehler! Hinter den Werten z.b. "0019 " sind noch zwei Leerzeichen! Deswegen funktionierte die Umwandlung nicht! Kann man das irgendwie mit berücksichtigen, dass da 2 Leerzeichen sind?

[pstruh]

Tja, wat nu? Sind da unsichtbare Sonderzeichen im String? Prüfe doch mal, wie lang der String in der Zelle ist, ist er länger als 4 Zeichen (wenn 0019 zu sehen ist) dann wäre das ja ein Indiz ... Bin gespannt auf deine Antwort

[atgis]

Über dir

[DeddyH]

Mit der Funktion trim bekommst Du überflüssige Leerzeichen weg.

[atgis]

Muss das dann schon beim Laden, der TXT, in das StringGrid eingefügt werden?

EDIT:Hab es beim Laden mit eingefügt

Delphi-Quellcode:

  while pos(chr(9), Zeile) <> 0 do
  begin
   sgMess.Cells[SpalteIndex, ZeileIndex]:=trim(copy(Zeile, 1, pos(chr(9), Zeile)-1)); //geändert
   delete(Zeile, 1, pos(chr(9), Zeile));
   inc(SpalteIndex);
  end;

Jetzt fehlt noch das 3. Problem ! Wie kann ich den Mittelwert der Werte ermitteln? Ich muss mit einer Schleife erstmal alle Werte zusammen Zählen und dann durch die Anzahl (RowCount?) teilen?

[DeddyH]

IMHO müsste es beim Vergleichen genügen:

Delphi-Quellcode:

if StrToInt(trim(sgMess.Cells[1,i])) < MinVal then
  MinVal:=StrToInt(trim(sgMess.Cells[1,i]))

[DeddyH]

Zitat von atgis:

Ich muss mit einer Schleife erstmal alle Werte zusammen Zählen und dann durch die Anzahl (RowCount?) teilen?

Dabei aber daran denken, dass es FixedRows geben könnte (also RowCount - FixedRows)

[pstruh]

Hallo atgis.
Prima! Wir kommen voran! Ja, Mittelwert wie von dir formuliert. Eine zusätzliche Schleife wird nicht benötigt; summiere einfach schon in der vorhandenen Schleife zur Min/Max-Bestimmung.
Gruß