paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 19:49:48 +01: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; ProcType:=ExtractProcDialog.GetProcType;
FuncNode:=ExtractProcDialog.GetFunctionNode; FuncNode:=ExtractProcDialog.GetFunctionNode;
FunctionResultVariableStartPos:=0; FunctionResultVariableStartPos:=0;
if FuncNode<>nil then if (FuncNode<>nil) then
FunctionResultVariableStartPos:=FuncNode.StartPos; FunctionResultVariableStartPos:=FuncNode.StartPos;
finally finally
ExtractProcDialog.Free; ExtractProcDialog.Free;
@ -358,7 +358,7 @@ var
Variable: TExtractedProcVariable; Variable: TExtractedProcVariable;
begin begin
Result:=nil; Result:=nil;
if Variables=nil then exit; if (Variables=nil) or (not CreateFunctionCheckBox.Checked) then exit;
Find:=FuncVariableComboBox.Text; Find:=FuncVariableComboBox.Text;
AVLNode:=Variables.FindLowest; AVLNode:=Variables.FindLowest;
while AVLNode<>nil do begin while AVLNode<>nil do begin