paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 19:11:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

sqldb: fixed uninitialized value

Browse Source 
git-svn-id: trunk@40933 -
This commit is contained in:
mattias 2013-04-29 19:17:47 +00:00
parent 3165b86c44
commit 715589d6e8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/sqldb/registersqldb.pas
View File

@ -269,8 +269,9 @@ begin
if not LazarusIDE.BeginCodeTools then
Exit;
SrcEdit := SourceEditorManagerIntf.ActiveEditor;
if Assigned(SrcEdit) then
Code := TCodeBuffer(SrcEdit.CodeToolsBuffer);
if SrcEdit=nil then
Exit;
Code := TCodeBuffer(SrcEdit.CodeToolsBuffer);
if Code = nil then
Exit;
Comp := GetComponent(0);