DataSet überschreibt Formatierungen

[rokli]

Hallo Patrick,

Du kannst das Grid z. B. auf folgende Art und Weise einstellen:

Delphi-Quellcode:

   GridJahr.Columns[0].Title.Caption    := 'Monat';
   GridJahr.Columns[0].Title.Alignment   := taLeftJustify;
   GridJahr.Columns[0].Width            := 80;
   GridJahr.Columns[1].Title.Caption    := 'Teile ' + IntToStr(Jahr);   // aktuelles Jahr
   GridJahr.Columns[1].Title.Alignment   := taRightJustify;
   GridJahr.Columns[1].Width            := 80;
   GridJahr.Columns[2].Title.Caption    := 'Teile ' + IntToStr(Jahr - 1); // Vorjahr
   GridJahr.Columns[2].Title.Alignment   := taRightJustify;
   GridJahr.Columns[2].Width            := 80;

und die Feldinhalte so formatieren

Delphi-Quellcode:

// beachte die Indices!!
   TFloatField(qryJahr.Fields[1]).DisplayFormat := '##,###,##0';
   TFloatField(qryJahr.Fields[2]).DisplayFormat := '##,###,##0';

die Daten werden dann so ausgegeben:

Delphi-Quellcode:

   GridJahr.Columns[0].Field   := qryJahr.Fields[0];
   GridJahr.Columns[1].Field   := qryJahr.Fields[1];
   GridJahr.Columns[2].Field   := qryJahr.Fields[2];

Gruß