я свои типы не проталкиваю пока, но связка у меня норм работает...ниже мой код, может вам и сгодиться...
альясы запроса у меня с шириной сразу, это очень удобно - к примеру пишите select name as ФИО_150 from...вот и вам и имя и ширина сразу )
важно подчеркивание ставить просто в конце...
var
vSp: МойДатасет;
c: TLinkGridToDataSourceColumn;
i,k: integer;
begin
LinkGrd.Columns.Clear;
for i := 0 to vSp.FieldCount - 1 do
begin
c := LinkGrd.Columns.Add;
c.MemberName := vSp.Fields[i].FullName;
k := Pos('_',c.MemberName);
if k > 0 then
begin
c.Width := copy(c.MemberName,k+1,length(c.MemberName)-k).ToInteger;
c.Header := copy(c.MemberName,1,k-1);
end
else
begin
c.Width := 100;
c.Header := c.MemberName;
end;
end;
end;
Здравствуйте, Rustam_D! Спасибо за внимание к моей проблеме, но, к сожалению, Ваш код не дает ответа на мой вопрос. Я могу создать колонку(и) - экземпляр(ы) TColumn и делал это точно таким же образом. Пример такого кода присутствует в моем вопросе. Я не знаю, как сделать так, чтобы колонка была экземпляром именно объявленного мной класса TDateColumn а не стандартного TColumn.