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

+ Fixed typo in provided patch

Browse Source
This commit is contained in:
michael 2005-03-18 11:53:14 +00:00
parent f683702e94
commit e539b62d19
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/db/db.pp
View File

@ -1768,7 +1768,8 @@ begin
Result := Items[i];
Break;
end;
if Result := Nil Then DatabaseErrorFmt(SIndexNotFound, [IndexName], DataSet);
if (Result=Nil) Then
DatabaseErrorFmt(SIndexNotFound, [IndexName], DataSet);
end;
function TIndexDefs.FindIndexForFields(const Fields: string): TIndexDef;
@ -1865,7 +1866,10 @@ end.
{
$Log$
Revision 1.39 2005-03-18 10:17:34 michael
Revision 1.40 2005-03-18 11:53:14 michael
+ Fixed typo in provided patch
Revision 1.39 2005/03/18 10:17:34 michael
+ Patch to IndexDefs from Alexandrov Alexandru
Revision 1.38 2005/02/16 09:31:58 michael
@ -1890,4 +1894,4 @@ end.
- implemented TUpdateMode, TProviderFlags
- implemented TIndexDef, TIndexDefs
}
}