精选5.对话框的使用---捕获异常.pptVIP

DELPHI对话框的使用 对话框的使用 FindDialog对话框 procedure TForm1.Button1Click(Sender: TObject); begin FindDialog1.Execute ; end; DELPHI对话框的使用 对话框的使用 FindDialog对话框—对话框主要事件onfind() procedure TForm1.FindDialog1Find(Sender: TObject); begin if frDown in form1.FindDialog1.Options then begin //向下查找 end else begin //向上查找 end; end; DELPHI对话框的使用 对话框的使用 FindDialog对话框—对话框主要事件onfind() DELPHI对话框的使用 对话框的使用 FindDialog对话框—对话框主要事件 procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin if RichEdit1.SelLength 0 then StartPos := RichEdit1.SelStart + RichEdit1.SelLength else StartPos := 0; ToEnd := Length(RichEdit1.Text) - StartPos; FoundAt := RichEdit1.FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt -1 then begin RichEdit1.SetFocus; RichEdit1.SelStart := FoundAt; RichEdit1.SelLength := Length(FindDialog1.FindText); end; end; DELPHI对话框的使用 replaceDialog对话框 DELPHI对话框的使用 对话框的使用 replaceDialog对话框 属 性 功 能 Findtext 查找文本 Replacetext 替换文本 主要事件: onfind 点击查找时触发 onreplace 点击替换时触发 DELPHI对话框的使用 对话框的使用 replaceDialog对话框 procedure TForm1.Button1Click(Sender: TObject); begin ReplaceDialog1.Execute; end; DELPHI对话框的使用 对话框的使用 replaceDialog对话框—例: procedure TForm1.ReplaceDialog1Replace(Sender: TObject); var SelPos: Integer; begin SelPos := Pos(ReplaceDialog1.FindText, RichEdit1.text); if SelPos 0 then begin RichEdit1.SelStart := SelPos - 1; RichEdit1.SelLength := Length(ReplaceDialog1.FindText); RichEdit1.SelText := ReplaceDialog1.ReplaceText; end else showmessage(没找到); end; DELPHI对话框的使用 捕获异常 DELPHI对话框的使用 捕获异常 程序运行中发生错误 — 异常保护 格式: Try //保护运行块 …… Finally //无论发生错误否都执行 …… End; DELPHI对话框的使用 捕获异常 程序运行中发生错误 — 捕获异常 格式( 必须编译后 ) : Try //保护运行块 …… except //当发生错误时执行 on e:exception do showmessage(e.message); //获取系统错误提示 End; on e:Exception do showmessage(e.message); //捕获