DbGridEh

← →
Alexandr (2002-12-27 12:56) [0]

как функцию написать (есть такая функция?0
типа
TDbGridEh.ColumnByFieldName(fieldname:string):TColumn;

← →
passm (2002-12-27 13:07) [1]

function GetColumn(DBGridEh: TDBGridEh; const FieldName: string): TColumn;
var
i: Integer;
begin
Result:= nil;
for i:= 0 to DBGridEh.Columns.Count - 1 do
if DBGridEh.Culumns[i].FieldName = FieldName then
begin
Result:= DBGridEh.Columns[i];
Break
end
end;

← →
Alexandr (2002-12-27 13:10) [2]

так я и думал..
вот только при сравнении имен, неплохо их к одному регистру привести.

Функцию взял где или сам придумал?

← →
Delirium^.Tremens (2002-12-27 13:14) [3]

> function GetColumn(DBGridEh: TDBGridEh; const FieldName:
> string): TColumn;

Если уж пользовать DBGridEh, то и Column можно возвращать соответствующий: TDBGridColumnEh

← →
Alexandr (2002-12-27 13:18) [4]

TcolumnEh тогда уж.
Но это к делу не относится.

← →
Delirium^.Tremens (2002-12-27 13:25) [5]

> TcolumnEh тогда уж.
> Но это к делу не относится.

Не буду спорить с мастером, но у меня:
Version 2.5

+ Added Delphi 7 support.

Так что, кому как.

← →
Alexandr (2002-12-27 13:27) [6]

вот вырезка из хелпа
TDBGridEh uses a TDBGridColumnsEh to maintain a collection of TColumnEh objects

а что, в 2.5 переименовали?

← →
passm (2002-12-27 13:33) [7]

Alexandr © (27.12.02 13:10)> Сам, конечно. Для приведения к одному регистру - UpperCase. Надеюсь, поля не русскими символами назвыны?

← →
Alexandr (2002-12-27 13:35) [8]

ну AnsiUpperCase в любом случае не проблема.
ОК. заюзаем.
Значит так и будет.

← →
Delirium^.Tremens (2002-12-27 15:07) [9]

> вот вырезка из хелпа
> TDBGridEh uses a TDBGridColumnsEh to maintain a collection
> of TColumnEh objects
>
> а что, в 2.5 переименовали?

Пардон, не переименовали, а расплодили :-)
TDBGridColumnsEh = class(TColumnEh)
Просто я в ObjInsp смотрел.

DbGridEh Найти похожие ветки