paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 21:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix compile error when using fpc 2.2.2 after the dbloookup patch

Browse Source 
git-svn-id: trunk@19143 -
This commit is contained in:
jesus 2009-03-28 19:31:32 +00:00
parent cad3c62030
commit 2c9b6bd08a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/dblookup.inc
View File

@ -58,6 +58,10 @@ fields:
} }
{$IF (FPC_VERSION = 2) AND (FPC_RELEASE = 2) AND (FPC_PATCH <= 2)}
{$DEFINE HAS_NOT_FIRSTKEYBYVALUE}
{$ENDIF}
constructor TDBLookup.Create(AOwner: TComponent); constructor TDBLookup.Create(AOwner: TComponent);
begin begin
inherited; inherited;
@ -280,6 +284,10 @@ begin
end; end;
procedure TDBLookup.UpdateData(const AListFieldValue: string); procedure TDBLookup.UpdateData(const AListFieldValue: string);
{$IFDEF HAS_NOT_FIRSTKEYBYVALUE}
begin
end;
{$ELSE}
var var
I: Integer; I: Integer;
TmpActive: Boolean; TmpActive: Boolean;
@ -323,3 +331,4 @@ begin
FListLink.DataSet.Active := False; FListLink.DataSet.Active := False;
end; end;
end; end;
{$ENDIF}