Spaltenbreite im DBGrid

[Stanly]

Hi!
Kann man die Spaltengröße des DBGrids automatisch anpassen? Also sozusagen ein autosize. Wohl nicht, denn das würde einem ja so viele Probleme ersparen,oder? )

Cya,
Stanly

[Swen Cramer]

Hi,

ist alles nicht so schwierig :-)
<br><p>
procedure TForm1.Button1Click(Sender: TObject); <br>
var
i, : Integer;
MaxFldsWidth: array of Integer;
begin
tc:=GetTickCount;
SetLength(MaxFldsWidth, BewerberICDS.FieldCount);
for i:=0 to BewerberICDS.FieldCount-1 do //keine Ahnung ob die Initialisierung sein muß
MaxFldsWidth[i]:=0;
BewerberICDS.DisableControls;
try
BewerberICDS.First;
while not BewerberICDS.Eof do begin
for i:=0 to BewerberICDS.FieldCount-1 do
if Length(BewerberICDS.Fields[i].AsString) > MaxFldsWidth[i] then begin
MaxFldsWidth[i]:=Length(BewerberICDS.Fields[i].AsString);
BewerberICDS.Fields[i].DisplayWidth:=MaxFldsWidth[i];
end;
BewerberICDS.Next;
end;
finally
BewerberICDS.EnableControls;
end;
end;
<br><p>
Habe ich mit einer TTable und mit einem TClietDataSet getestet. <br>
Wobei die TTable für 10.000 Datensätze a 8 Felder ca. 2,5 sek. und das TClientDataSet ca. 0.3 sek benötigt