안녕하세요. 최용일입니다.



근접검색에는 이진탐색알고리즘이 많이 쓰입니다. 제일 빠르고 효율적이니까요. 이건 자료구조책



에 찾아보시면 다 나와 있습니다. 또한 근접검색을 하실려면 반드시 정렬되어있어야 합니다.



물론 아래와 같이 for문을 이용한 순차검색알고리즘도 자료가 적을때는 가끔씩 쓰입니다.



procedure FindStringGrdStr(StringGrid: TStringGrid; Col: Integer; FindStr: string);

var

I: integer;

begin

for I := 0 to StringGrid.RowCount - 1 do

if CompareText(FindStr, StringGrid.Cells[Col, I]) < 0 then

begin

StringGrid.Row := I;

Break;

end;

end;



^^ 항상 즐코하세요.



윤미혜 wrote:

> 안녕하세요

> procedure TForm1.Edit1Change(Sender: TObject);

> begin

> FindStringGrdStr(StringGrid1, 1, Edit1.Text);

> end;

>

> // Col : 검색 컬럼 , FindStr : 찾을 문자열

>

> procedure FindStringGrdStr(StringGrid: TStringGrid; Col: Integer; FindStr: string);

> var

> i: Integer;

> begin

> for i := 0 to StringGrid.RowCount - 1 do

> if StringGrid.Cells[Col, i] = FindStr then

> begin

> StringGrid.Row := i;

> end;

> 위와 같이하면 컴파일은 되나 검색은 되지않습니다.

> 에디트 박스에서 쿼리의 성명 부분 "name" 을 근접검색하는

> 법 도와주세요

>

> ex) kim 이면 ki,kim.... 으로

>

> 오빠들 도와주세여 네..

> -

최용일님

친절한 지도 감사합니다.

근데요, 역시 검색은 안돼요 오빠.....

어떻하면 좋죠..!!!!!11

죄송하지만 이진알고리즘소스 좀 알려주셔요 네?

파일 레코드가 전체는 약 5000건 부분적으로는 300 ~ 500 정도 되요.

너무 많아서 안되는 것같기도 하고요..



저가 프로그램 경험이 적어서 제대로 찾기 어려워요 ( 흐 흑 /교수님한테

저 죽어요)

조금 더 도와주세여.......





procedure TForm1.search1;

begin

with Query3 do

begin

Close;

SQL.Clear;

SQL.Add(' SELECT nummer, name, vorname,rt7, abreise, pcode');

SQL.Add(' from gaestest a, gres2 b ');

SQL.Add(' where a.nummer = b.gastnr ');

SQL.Add(' and a.vip in (1, 2, 3, 4, 5) ');

SQL.Add(' and a.memo is null');

//SQL.Add(' and a.gastname LIKE "%"');

SQL.Add(' and a.name like :name ');

ParamByName('name').AsString := '%' ;

//SQL.Add(' and a.gastname.AsString := (edit17.Text + '%');

//SQL.Add(' order by name ');

//SQL.Add(' GROUP by 'A*');

Open;

begin





여기서 쿼리를 날린 값을 name 필드의 그리드에서 근접검색하면 되여.

물론 영문 검색이고요 ..... 부탁드릴께요....