StringGrid neue berechnete Spalte

[Hansi]

Schönen Sonntag!

Mit folgendem Code wird ein StringGrid mit Daten gefüllt. Sieht dann ungefähr dann so aus

Datum Wert1 Wert2 Mittelwert
20.11.2004 100 50 ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var x,y : Integer;
begin
  if not Query1.IsEmpty then begin
    stringgrid1.ColCount := Query1.FieldCount;
    stringgrid1.RowCount := Query1.RecordCount + 1;
    stringgrid1.FixedCols := 0;
    stringgrid1.FixedRows := 1;
    For x := 0 To Query1.FieldCount-1 Do stringgrid1.Cells[x,0] := Query1.Fields[x].FieldName;
    y := 0;
    While Not Query1.Eof Do Begin
      For x := 0 To Query1.FieldCount-1 Do stringgrid1.Cells[x, y + 1] := Query1.Fields[x].AsString;
      Query1.Next;
      Inc(y);
    End;
  End;
end;

Nun meine Frage: Wie kann ich den Mittelwert(aus Wert1 und Wert2) in die StringGrid ausgeben. (Mittelwert gibt es bis dahin nicht!)

[kiar]

hallo hansi

das zauberwort in sql heisst avg . schau mal in die OH und dann gibst du noch ein feld an und schon macht dein SG das auch.

raik

EDIT dicke finger kleine tasten :mrgreen:

[Hansi]

Schreib mal bitte wie Du das in den Code einfügen würdest?

Du meinst AVG?

P.S. Die OH kannst doch voll vergessen oder?

[kiar]

in den code hier gar nicht. das müsstest du in deine sql -anweisunge einfügen.

zeige mal den sql der Query.

raik

[Hansi]

Delphi-Quellcode:

SELECT Datum, Wert1, Wert2 FROM Tabelle WHERE Name='710000' AND Datum BETWEEN '01.01.2000' AND '31.12.2000'

[Hansi]

P.S. Was muss ich machen damit z.B. das Produkt von Wert1 und Wert2 in einer zusätzliuchen Spalte angezeigt wird?

[kiar]

hallo hansi,

die frgae ist nun, willst du den mittel wert

Code:

Sum(wert1) +sum(wert2) div zeilenzahl oder
Sum(wert1) div zeilenzahl + sum(wert2) div zeilenzahl

raik

[Hansi]

:wiejetzt:

Wo trage ich Deinen Code ein?

[kiar]

mache es so

SQL-Code:

SELECT Datum, Wert1, Wert2,((wert1 +wert2)/2) FROM Tabelle WHERE Name='710000' AND Datum BETWEEN '01.01.2000' AND '31.12.2000'

[Hansi]

Damit bringt er ein Fehlermeldung(Keine Übereinstimmung der Typen im Ausdruck) Wahrscheinlich weil ich keine freie Spalte in der Tabelle habe, oder? Bei SELECT kann ich Doch nur Spalten(Felder) ansprechen die auch existieren, oder?

Kann ich die BErechnung auch in der While Schleife einfügen? Nur wie?