paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +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 else
begin begin
If (FLastMatchTableDef<>Nil) then If (FLastMatchTableDef<>Nil) then
begin
TD:=FLastMatchTableDef; TD:=FLastMatchTableDef;
If (TD<>Nil) then If (TD<>Nil) then
Result:=TD.Fields.FindField(FN) Result:=TD.Fields.FindField(FN);
else If Result=Nil then
begin
// Hard scan of all tables...
I:=0;
While (Result=Nil) and (I<Tables.Count) do
begin begin
// Hard scan of all tables... TD:=Tables[i];
I:=0; Result:=TD.Fields.FindField(FN);
While (Result=Nil) and (I<Tables.Count) do If (Result<>Nil) then
begin FLastMatchTableDef:=TD;
TD:=Tables[i]; Inc(I);
Result:=TD.Fields.FindField(FN);
If (Result<>Nil) then
FLastMatchTableDef:=TD;
Inc(I);
end;
end; end;
end; end;
end; end;