엄화용 wrote:

>

>

> * dbgrid에서 멀티셀렉트한 자료를

> edit박스에 나타나게 하려고 합니다.

>

> edit1.text:=..

> edit2.text:=

> edit3.text:=...

> .... 여러개의 자료를 한꺼번에 edit박스로 가져와서 처리하고 싶은데

> 방법을 모르겠네요..

> 아시는분 도움 부탁드려요





아래는 DBGrid에서 다중선택된 내용을 얻는 간단한 예제입니다.



procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

bm : TBookMark;

begin

with Table1, DBGrid1 do

begin

DisableControls;

bm := GetBookMark;

try

for I := 0 to SelectedRows.Count - 1 do

begin

Bookmark := SelectedRows[I];

showmessage(fieldbyname('prg_name').asstring);

end;

finally

GotoBookMark(bm);

FreeBookMark(bm);

EnableControls;

end;

end;

end;

그럼, 즐거운 프로그래밍 하세요~