안녕하세요

델파이이에서(SOCKET 통신) 서버가 특정 클라이언트로 통신을 하고자 할때

연결된 특정 클라이언트을 선택 전송 하려는 방법을 알고 싶습니다.

또한 클라이언트가 연결이 끊길때 서버가 DOWN 방지 방법을 알고

싶습니다.

부탁 합니다.

황윤환 wrote:

> listbox의 아이템이다음과 같이 있다고 하면

> VTOOL라는 글자를 검색해서 하이텔 VTOOL을 선택하게 하고 싶습니다.

>

> 아이템 보기>

> -한국 델파이 개발자 홈페이지

> -하이텔 VTOOL

> .

> .

> .

>

unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

ListBox1: TListBox;

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin



for i := 0 to ListBox1.Items.Count - 1 do begin

if Edit1.Text = ListBox1.Items.Strings[i] then begin

ListBox1.ItemIndex := i;

end;

end;



end;



end.

허일학 wrote:

> 황윤환 wrote:

> > listbox의 아이템이다음과 같이 있다고 하면

> > VTOOL라는 글자를 검색해서 하이텔 VTOOL을 선택하게 하고 싶습니다.

> >

> > 아이템 보기>

> > -한국 델파이 개발자 홈페이지

> > -하이텔 VTOOL

> > .

> > .

> > .

> >

> unit Unit1;

>

> interface

>

> uses

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

> StdCtrls;

>

> type

> TForm1 = class(TForm)

> ListBox1: TListBox;

> Edit1: TEdit;

> Button1: TButton;

> procedure Button1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.Button1Click(Sender: TObject);

> var i : integer;

> begin

>

> for i := 0 to ListBox1.Items.Count - 1 do begin

> if Edit1.Text = ListBox1.Items.Strings[i] then begin

> ListBox1.ItemIndex := i;

> end;

> end;

>

> end;

>

> end.

>

안녕하세요 술친굽니다.

위의 답변은 잘 보았습니다만 위와 같이 할 경우에는 아이템의 문자열과 일치할 경우에만

적용이 되는 것 같군요..

질문하신 내용은 특정문자열인데요...

위의 클릭 부분을 다음과 같이 변형시켜 보면 특정 문자열을 찾을 수 있을것 같군요..



procedure TForm1.Button1Click(Sender: TObject);

var

i: integer;

begin

for i := 0 to ListBox1.Items.Count - 1 do

begin

if Pos(Trim(Edit1.Text), ListBox1.Items[i]) > 0 then

begin

ListBox1.ItemIndex := i;

Break; //한번만 찾고 중지입니다.

end;

end;

end;



고수님들의 조언을 기다립니다.

술친구였습니다.