paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 02:03:28 +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

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

@ -1263,11 +1263,10 @@ begin
else
begin
If (FLastMatchTableDef<>Nil) then
begin
TD:=FLastMatchTableDef;
If (TD<>Nil) then
Result:=TD.Fields.FindField(FN)
else
Result:=TD.Fields.FindField(FN);
If Result=Nil then
begin
// Hard scan of all tables...
I:=0;
@ -1281,7 +1280,6 @@ begin
end;
end;
end;
end;
If (Result<>Nil) then
TableName:=FLastMatchTableDef.TableName;
end;