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!)