procedure TForm1.ListBox1Click(Sender: TObject);



var

i : integer;

d1 : string;

d2 : string;

d3 : string;

d4 : string;



begin

i := listbox1.ItemIndex;

d1 := listbox1.items[i];

d2 := copy(d1,1,5);

edit1.text := d2;

edit2.text := inttostr(i);

listbox3.clear;

listbox3.Items.add(d2);



with table2 do

begin

d3 := fieldbyname('ro_name').asstring;

try

while not eof do

begin

d3 := fieldbyname('ro_name').asstring;

if d2 = copy(d3,1,5) then

begin

listbox2.Items.add(copy(d3,7,15));

end;

next;

end;

except

cancel;

raise;

end;

end;

end;

end.



여기에서 while을 이용하여 listbox1의 클릭이벤트로 listbox2에 원하는 자료를 출력하려고 하는데 첨 한번은 실행이 되는 데 다음을 클릭하면 listbox2의 내용이 변하지 않는군여.. 어케 해야 할지 정말 힘드는 군여



listbox1 listbox2

1 한국 클릭시 서울

2 미국 클릭시 워싱턴



으로 하구 싶은데

1 한국 클릭시 서울

2 한국 클릭시 서울



이런식임당