DBGrid Spaltenköpfe ändern?

[nahpets]

Hallo,

andere Alternative wäre
DBGrid1.Columns.Items[0].Title := 'Spalte A'; Hiermit bekommst Du den Inhalt der ersten Zeile des Datasets als Spaltenüberschrift.

Delphi-Quellcode:

procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
Var
         i : Integer;
begin
  DataSet.First;
  for i := 0 to DBGrid1.Columns.Count - 1 do begin
    DBGrid1.Columns.Items[i].Title := DBGrid1.Columns.Items[i].Field.AsString;
  end;
end;