diff options
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index ac21da58..6d4e81b7 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -242,6 +242,8 @@ begin Exit; FLastFindBackward := False; edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); + if not Assigned(edt) then + Exit; edt.FindText(FLastSearchText, FLastFindOptions, FLastFindBackward); edt.SetFocus; end; @@ -254,6 +256,8 @@ begin Exit; FLastFindBackward := True; edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); + if not Assigned(edt) then + Exit; edt.FindText(FLastSearchText, FLastFindOptions, FLastFindBackward); edt.SetFocus; end; |