Форум: "Базы";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Внизкак программно узнать является поле ключем или нет? Найти похожие ветки
← →
deleon (2002-03-11 10:41) [1](c)Degisy Software
{Для Paradox & DBase7 only}
function IsKeyField(Tbl: TTable; FldName: string): Boolean;
var
I : Integer;
Pos : Integer;
begin
Result := False;
if not Tbl.IndexDefs.Updated then Tbl.IndexDefs.Update;
for I := 0 to Tbl.IndexDefs.Count - 1 do
if( ixPrimary in Tbl.IndexDefs[I].Options )then
begin
Pos := 1;
while Pos <= Length(Tbl.IndexDefs[I].Fields) do
if( CompareText(ExtractFieldName(Tbl.IndexDefs[I].Fields, Pos), FldName) = 0 )then
begin
Result := True;
Break;
end;
if( Result )then Break;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c