Código
var i: integer;
begin
for i:= 0 to Table1.FieldCount-1 do
Table1.Fields[i].DisplayWidth:= Length(Table1.Fields[i].DisplayLabel);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009