1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure QueryToSg(const sg:TStringGrid);
var x,y,maxbreite:integer; s:string;
begin
 with Form1 do // nicht dauernd Form1. schreiben
  begin for x:=0 to sg.RowCount-1 do sg.Rows[x].Clear; // Grid Leer
   with ADOQuery1 do // nicht dauernd ADOQuery. schreiben
    with sg do // nicht dauernd sg. schreiben
     begin ColCount := FieldCount; // Grid-Spalten wie Query-Spalten
           RowCount := RecordCount+1; // Grid-Zeilen wie Query-Zeilen
           y:=0; // Grid-aktuelle Zeile
           First; // Query (RecordSet) auf erstes Element
           while not Eof do // solange das Ende des Query nicht erreicht ist
            begin for x := 0 to FieldCount-1 do // von 0 bis Spaltenzahl-Query
                   begin Cells[x, y+1] := Fields[x].AsString; // Inhalt kopieren
                         Cells[x, 0] := Fields[x].DisplayLabel; // Header kopieren
                   end;
                  Next; Inc(y); // Query-Zeiger und Grid.Row (y) aufs nächste E.
            end;  // Datenimport ist fertig, jetzt noch ein bisschen formaten:
       // wie bei Excel > Alles markieren > Format > Spalte > optimale Breite
           for x := 0 to ColCount-1 do // alle Spalten des Grids
             begin maxbreite := 0; // Start-Annahme
              for y := 0 to RowCount-1 do // laufe durch alle Zeilen
               maxbreite := max(maxbreite, canvas.textwidth(cells[x, y]));
                // wenn breiter als maxbreite, dann maxbreite neu setzen
              ColWidths[x] := maxbreite + 15; // etwas mehr sieht besser aus
             end; // Grid-Spalten sind nun auf optimaler Breite
     end; // with sg
  end; // with Form1
end; // with procedure