안냐세염!! 고수님덜께 한가지만 물어볼께염.
ListBox 2개를 놓구선 ListBox2에서 항목을 선택하고 Add버튼을
누르면 ListBox1으로 값이 넘어가는 로직을 만들려고 하는데여
그냥 항목값 넘기는건 알겠는데 ListBox1에 넘기려는 값이 이미
들어가 있으면 넘어가지 않게 해야 됨다.
뭐 TListBox의 메소드나 프로퍼티중에 그런 거 있나 찾아봤는데
그것도 못찾겠구. 아님 ListBox1의 항목수만큼 다시 루프돌려서
해볼려구 해도 제 실력으로는 안되네여. 흑흑 꼭 이런데서 제 실력의
한계를 느낀다니깐여.
좀 도와주세여. 아래는 해당소스입니다.
procedure TfrmEngMgr213.btnAddClick(Sender: TObject);
var
i, : integer;
begin
if ListBox2.ItemIndex = -1 then
begin
ShowMessage('검사항목이 선택되지 않았습니다.');
Exit;
end;
for i := 0 to ListBox2.Items.Count - 1 do
begin
if ListBox2.Selected[i] then
if // <-- 이부분에다 ListBox1에 이미 들어가 있는지 체크하려고 함다
ListBox1.Items.Add(copy(ListBox2.Items.Strings[i], 1, 4))
else Exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
Str: String;
begin
IF ListBox2.ItemIndex = -1 then Exit;
Str:= ListBox2.items[ ListBox2.ItemIndex ]; //Str에 선택된 항목의 텍스트가 들어갑니다.//
For I:=0 to ListBox1.Items.Count - 1 do
IF ListBox1.Items[I] = Str then Exit;
ListBox1.Items.Add( Str );
end;