paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 09:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More complete indexdef treatment

Browse Source 
git-svn-id: trunk@11543 -
This commit is contained in:
michael 2008-08-11 10:04:30 +00:00
parent 4aa1b45da2
commit 5a2da31729
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
packages/fcl-db/src/datadict/fpdatadict.pp
View File

@ -141,6 +141,10 @@ Type
Public
Constructor Create(ATableName : String);
Function AddDDIndexDef(AName : String) : TDDIndexDef;
function AddIndex (AName: String) : TDDIndexDef;
function IndexByName(AIndexName: String): TDDIndexDef;
function FindIndex(AIndexName: String): TDDIndexDef;
function IndexOfIndex(AIndexName: String): Integer;
Property TableName : String Read FTableName Write SetTableName;
Property Indexes[Index : Integer] : TDDIndexDef Read GetIndex Write SetIndex; default;
end;
@ -477,6 +481,7 @@ Const
Resourcestring
SErrFieldNotFound = '"%s": Field "%s" not found.';
SErrIndexNotFound = '"%s": Index "%s" not found.';
SErrTableNotFound = 'Table "%s" not found.';
SErrDuplicateTableName = 'Duplicate table name: "%s"';
SErrDuplicateFieldName = '"%s": Duplicate field name: "%s"';
@ -997,6 +1002,7 @@ procedure TDDTableDef.SetTableName(const AValue: String);
begin
FTableName:=AValue;
FFieldDefs.TableName:=AValue;
FIndexDefs.TableName:=AValue;
end;
function TDDTableDef.GetPrimaryKeyName: String;
@ -2199,11 +2205,41 @@ begin
end;
function TDDIndexDefs.AddDDIndexDef(AName: String): TDDIndexDef;
begin
result := AddIndex (AName);
end;
function TDDIndexDefs.AddIndex(AName: String): TDDIndexDef;
begin
Result:=Add as TDDIndexDef;
Result.IndexName:=AName;
end;
function TDDIndexDefs.IndexOfIndex(AIndexName: String): Integer;
begin
Result:=Count-1;
While (Result>=0) and (CompareText(GetIndex(Result).IndexName,AIndexName)<>0) do
Dec(Result)
end;
function TDDIndexDefs.FindIndex(AIndexName: String): TDDIndexDef;
Var
I : integer;
begin
I:=IndexOfIndex(AIndexName);
If (I=-1) then
Result:=Nil
else
Result:=GetIndex(I);
end;
function TDDIndexDefs.IndexByName(AIndexName: String): TDDIndexDef;
begin
Result:=FindIndex(AIndexName);
If Result=Nil then
Raise EDatadict.CreateFmt(SErrIndexNotFound,[TableName,AIndexName]);
end;
initialization
finalization