Статьи Королевства Дельфи


L2_pas - часть 3


wpTFbCommonType := nil;

{ Определение группы данных по информации в FDbInterface.N_pTFieldInfo }

wTFbTypeGroup := Get_TFbTypeGroup(FDbInterface.N_pTFieldInfo);

k := TypeGroupCmBox.Items.IndexOf(apTypeGroupNames[wTFbTypeGroup]);

TypeGroupCmBox.ItemIndex := k;

case wTFbTypeGroup of

FldGroup :

// Выставка в ComboBox индекса базового типа

begin

TypesComboBox.Text := 'Нет в СИСТЕМЕ ';

for i := 0 to TypesComboBox.Items.Count-1 do

begin

wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);

if wpTFbCommonType.FbFld.sType = FDbInterface.N_pTFieldInfo.sFieldType then

begin

TypesComboBox.ItemIndex := i;

TypesComboBox.Text := TypesComboBox.Items[i];

Break;

end

end;

if wpTFbCommonType <> nil then

FldSizeEdit.Visible := (wpTFbCommonType.FbFld.sType = ftString)

else

FldSizeEdit.Visible := False;

end;

RefGroup :

// Выставка в ComboBox индекса ссылочного типа

begin

TypesComboBox.Text := 'Ссылка на таблицу не найдена';

for i:=0 to TypesComboBox.Items.Count-1 do

begin

wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);

if wpTFbCommonType.FbRef.spTableInfo.sTableAttr.Values['sTableName'] =

FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMTableName'] then

begin

TypesComboBox.ItemIndex := i;

TypesComboBox.Text := TypesComboBox.Items[i];

Break;

end;

end;

end;

PicGroup :

// Выставка в ComboBox индекса списочного типа

begin

TypesComboBox.Text := 'Ссылка на список не найдена';

for i:=0 to TypesComboBox.Items.Count-1 do

begin

wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);

if wpTFbCommonType.FbPic.sDescr =

FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sPicDescr'] then

begin

TypesComboBox.ItemIndex := i;

TypesComboBox.Text := TypesComboBox.Items[i];

Break;

end;

end;

end;

LUpGroup :

// Выставка в ComboBox индекса следящего типа

begin

TypesComboBox.Text := 'Ссылка на поле не найдена';

for i:=0 to TypesComboBox.Items.Count-1 do

begin

wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);




Начало  Назад  Вперед