From 46d3e096309e60fa036c2b9f954d22513b8a40ef Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 22 Mar 2015 11:14:09 +0000 Subject: [PATCH] IDE: fixed unitializeed variable git-svn-id: trunk@48453 - --- ide/sourcefilemanager.pas | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas index 8c95d685ce..458c58490d 100644 --- a/ide/sourcefilemanager.pas +++ b/ide/sourcefilemanager.pas @@ -656,14 +656,15 @@ begin if Result <> nil then break; end; - if Result = nil then // should never happen - Result := AnUnitInfo.OpenEditorInfo[0] - else begin // ToDo: replace uninitialized 'j' with something. + if Result = nil then + // should never happen + Result := AnUnitInfo.OpenEditorInfo[0]; + if Result<>nil then begin + // WantedTopLine if (WantedTopLine>0) - and (AnUnitInfo.OpenEditorInfo[j].EditorComponent<>nil) then - AnUnitInfo.OpenEditorInfo[j].EditorComponent.TopLine:=WantedTopLine; + and (Result.EditorComponent<>nil) then + Result.EditorComponent.TopLine:=WantedTopLine; end; - // ToDo: WantedTopLine end; function TFileOpener.OpenResource: TModalResult;