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

* Fixed TFPDataDictionary.findfielddef

Browse Source 
git-svn-id: trunk@9390 -
This commit is contained in:
michael 2007-12-04 15:05:14 +00:00
parent 4404a27428
commit 1ab5e28f75
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1263,22 +1263,20 @@ begin
else
begin
If (FLastMatchTableDef<>Nil) then
begin
TD:=FLastMatchTableDef;
If (TD<>Nil) then
Result:=TD.Fields.FindField(FN)
else
If (TD<>Nil) then
Result:=TD.Fields.FindField(FN);
If Result=Nil then
begin
// Hard scan of all tables...
I:=0;
While (Result=Nil) and (I<Tables.Count) do
begin
// Hard scan of all tables...
I:=0;
While (Result=Nil) and (I<Tables.Count) do
begin
TD:=Tables[i];
Result:=TD.Fields.FindField(FN);
If (Result<>Nil) then
FLastMatchTableDef:=TD;
Inc(I);
end;
TD:=Tables[i];
Result:=TD.Fields.FindField(FN);
If (Result<>Nil) then
FLastMatchTableDef:=TD;
Inc(I);
end;
end;
end;