남윤혁 께서 말씀하시기를...

> 자주 질문하네요... ^^;;;

> 질문은 RichEdit에서 역검색을 하고 싶습니다.

> FindDialog를 보면

> 검색 조건에

> 위로, 아래로 가 있는데.......

> 이것을 이용해서

> TRichEdit.FindText 함수를 이용하여

> 위로 검색을 하고 싶습니다....

> 잘 되지 않네요.... 간단할 줄 알았는디... -____-;

> 고수님들 답변 부탁드립니다.



남윤혁님 안녕하세요?

아래 예제를 참고하셔서 응용하시면 충분히 해내실수 있으실 겁니다

델파이 헬퍼의 팁/강좌란에서 펐습니다.



컴파일하여 실행하신 후 SpeedButton을 클릭할때마다

다음찾기를 시도합니다





// 아래 예제는 Edit1.Text 에 입력한 문자열을 Memo1 에서 찾기하는

// 것으로 FindDialog 를 사용하지 않고 다음찾기를 구현한 것입니다

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;



type

TForm1 = class(TForm)

Edit1: TEdit;

Memo1: TMemo;

CB_CaseSensitive: TCheckBox;

SpeedButton1: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

function FindMemoStr(SrchStr: String; fromIndex: Integer; CaseSensitive: Boolean): Integer;

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



function TForm1.FindMemoStr(SrchStr: String; fromIndex: Integer; CaseSensitive: Boolean): Integer;

function Replichar(c: char; n: integer):string;

var

i: integer;

o: string;

begin

o := '';

for i := 1 to n do AppendStr(o,c);

Replichar := o;

end;



var

CRow, CCol, SRow, SCol: longint;

located: Boolean;

s, t, p: String;

begin

Result := -1;

if length(SrchStr) < 1 then

System.Exit;



// Memo의 주어진 위치부터 찾기위해

Memo1.SelStart := fromIndex;



located := False;

if CaseSensitive then

s := SrchStr

else

s := Uppercase(SrchStr);



with Memo1 do

begin

if lines.count < 1 then

exit;

{현재 row and column을 얻는다}

CRow := SendMessage(Memo1.Handle, EM_LineFromChar, Memo1.SelStart, 0);

CCol := Memo1.SelStart - SendMessage(Memo1.Handle, EM_LineIndex, CRow, 0);



SRow := CRow; {검색시작 row}

while (SRow < lines.count) and not located do

begin

if CaseSensitive then

t := lines[SRow]

else

t := UpperCase(lines[SRow]);



if SRow = CRow then

begin

Delete(t,1,CCol+1);

p := Replichar(' ', CCol+1);

AppendStr(p, t);

t := p;

end;



SCol := pos(s, t);

if SCol > 0 then

located := True

else

inc(SRow);

end;



if located then

begin

SelStart := SendMessage(Memo1.Handle, EM_LineIndex, SRow, 0) + SCol - 1;

SelLength := length(s);

Result := SelStart;

end

else

begin

Result := -1;

end;

end;

end;



procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

// 두번째 파라미터는 대소문자 구별 여부

SpeedButton1.Tag := FindMemoStr(Edit1.Text, SpeedButton1.Tag, CB_CaseSensitive.Checked);

if SpeedButton1.Tag = -1 then

begin

MessageBeep(MB_ICONHAND);

MessageDlg('더이상 찾는 문자열이 없습니다', mtInformation, [mbOK],0);

SpeedButton1.Tag := 0;

end

else

begin

Memo1.SetFocus;

SpeedButton1.Tag := SpeedButton1.Tag + 1; // 다음 찾기할 시작위치

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

SpeedButton1.Tag := 0; // 처음 찾기할 시작위치(SelStart)



// 아래는 예제 자료입니다

Edit1.text := 'ab';

Memo1.Clear;

Memo1.Lines.Add('abwerewrabfdfd');

Memo1.Lines.Add('werteab04549ab');

Memo1.Lines.Add('ab435435');

Memo1.Lines.Add('dsfdsfab');

end;



end.