paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:16:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: extract proc: fixed extracting proc, bug #13108

Browse Source 
git-svn-id: trunk@19191 -
This commit is contained in:
mattias 2009-04-01 20:49:27 +00:00
parent 129b0cefb5
commit 4a17fc0717
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/extractprocdlg.pas
View File

@ -143,7 +143,7 @@ begin
ProcType:=ExtractProcDialog.GetProcType;
FuncNode:=ExtractProcDialog.GetFunctionNode;
FunctionResultVariableStartPos:=0;
if FuncNode<>nil then
if (FuncNode<>nil) then
FunctionResultVariableStartPos:=FuncNode.StartPos;
finally
ExtractProcDialog.Free;
@ -358,7 +358,7 @@ var
Variable: TExtractedProcVariable;
begin
Result:=nil;
if Variables=nil then exit;
if (Variables=nil) or (not CreateFunctionCheckBox.Checked) then exit;
Find:=FuncVariableComboBox.Text;
AVLNode:=Variables.FindLowest;
while AVLNode<>nil do begin