Q&A

  • ListBox에서 중복입력을 막는 방법좀...
안냐세염!! 고수님덜께 한가지만 물어볼께염.
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;
4  COMMENTS
  • Profile
    이명훈 2002.04.19 08:42
    안녕하세요..간단히..

    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;

  • Profile
    함상기 2002.04.19 10:46
    굳이 처음부터 끝까지 비교할 필요가 있나요?
    그냥
    if ListBox1.items.IndexOf(ListBox2.Text) <> -1 then
    begin
    ListBox1.Items.Add(ListBox2.Text);
    end;
    이런 형식으루 하믄 간단한거 같은디....(*,.*)

  • Profile
    루이 2002.04.20 20:45
    답변 정말 감사합니다.
    이렇게 막힐때마다 도와주시는 분덜이 계시니깐 저같은 허접들도
    이걸루 밥먹고 살아갈 수 있는것 같습니다.
    헤헤..

  • Profile
    이명훈 2002.04.19 18:22
    네~ 그러네여..

    감따~


    • 조길제
      2002.04.19 20:32
      버튼의 속성에 보시면 Cursor라는 속성이 있습니다. 기본적으로 crDefault로 되어있는데 그것을 crHan...
    • 아폴론
      2002.04.19 21:33
                table1.StartTransaction; --------->요...
    • 강신구
      2002.04.19 22:40
      혹시 USER절에 무얼 선언해야 되나요? table1.하면 자동으로 뜨는것중에서도 StratTrnsaction은 안보여요....
    • 아폴론
      2002.04.20 05:39
      오라클이나 SQL서버라면 테이블 보다는 TDataBase를 사용 하는 것이 좋습니다 메인폼에 TDataBase컴포넌트 ...
    • 김종균
    • 2002.04.19 20:19
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최석기
      2002.04.19 21:19
      BDE 헬프에서 Packing 키워드로 찾아보세요.. 설명이랑 예제까지 있거든요. 참고로 Paradox는 DbiDoR...
    • 최석기
      2002.04.19 21:20
      아마도 해당 컴퓨터에 엑셀이 않까려 있거나 엑셀에 오류가 있는거 같네요.
    • 박양수
      2002.04.19 22:36
      엑셀 2000이 정상적으로 깔려 있습니다. 혹시나 해서 windows98과 excel2000을 새로 깔아보았지만 역시 결...
    • 양일영
    • 2002.04.19 20:15
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조길제
      2002.04.19 20:34
      Win32 tab에 보시면 DateTimePicker라는게 있는데 그걸 쓰시면 될 것 같은데요... 델파이에서 기본적으...
    • kc
    • 2002.04.19 19:47
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이경문
      2002.04.21 03:29
      ActiveMovie ActiveXControl을 사용하세요.
    • 권오영
    • 2002.04.19 19:33
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 병부잡이
      2002.04.19 20:20
      now 포맷에 한글 "오전" 또는 "오후"가 들어가 생기는 오류 같네요.. MS-SQL요놈이...
    • 권오영
      2002.04.20 21:09
      now 포맷에 한글 "오전" 또는 "오후"가 들어가있다는 말씀은?
    • K모씨
      2002.04.19 18:41
      동영상 컴포넌트에 OnResize 이벤트가 있지 않나요 ? 있다면 그 이벤트가 발생할때 패널 크기도 변경을 ...
    • 델.초
      2002.04.19 18:56
      안녕하세요.답변을 해주셔서 정말감사드립니다.^^ 저기 제가 DirectShow 로 동영상을 실행을 하고 있거...
    • 박상윤
      2002.04.20 12:42
      IBasicVideo::GetVideoSize Retrieves the native video dimensions. HRESULT GetVideoSize( lon...
    • 김종균
    • 2002.04.19 11:18
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 최석기
      2002.04.19 19:50
      DBase III나 Paradox같은 파일기반 디비의 경우에는 삭제를 시키더라두 물리적으로 삭제가 일어난게 아닙니...
    • 김종균
      2002.04.19 20:06
      Table Pack라는 거에 대한 내용이 없네여 어케 하는건지 알켜주세요 그리고 엑세스로 db를 만들고 그거를...
    • 이정은
    • 2002.04.19 10:42
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 염상철
      2002.04.19 19:54
      update table set b='' where 순번='2' 숫자값이면. update table set b=0 where 순번=2
    • dogmh
    • 2002.04.19 07:35
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이경범
      2002.04.19 10:32
            try         Frindlist :...
    • 이경범
      2002.04.19 09:51
      Tstringlist 오젝트를 만들어 텍스트파일을 읽음후 오젝트 에 append한후 파일로 저장허믄 될까요
    • 루이
    • 2002.04.19 07:20
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 이명훈
      2002.04.19 08:42
      안녕하세요..간단히.. procedure TForm1.Button1Click(Sender: TObject); var   I &nb...
    • 함상기
      2002.04.19 10:46
      굳이 처음부터 끝까지 비교할 필요가 있나요? 그냥 if ListBox1.items.IndexOf(ListBox2.Text) <> ...
    • 루이
      2002.04.20 20:45
      답변 정말 감사합니다. 이렇게 막힐때마다 도와주시는 분덜이 계시니깐 저같은 허접들도 이걸루 밥먹고 ...
    • 이명훈
      2002.04.19 18:22
      네~ 그러네여.. 감따~
    • 김종균
    • 2002.04.19 07:04
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이경범
      2002.04.19 10:01
      데이타 모듈에 Qury component 를 놓고 써보세요 아니믄 각폼에 Qury component를 놓고   쿼리...
    • 김종균
    • 2002.04.19 06:59
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이경범
      2002.04.19 09:42
      다른 디비에디트 박스랑 같을걸요.......
    • 김종균
    • 2002.04.19 06:23
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 이경범
      2002.04.19 09:46
      RX콤포넌트에 움직이는gif넣는거 있어요 델파이6에는 그것이 있던디
    • 김종균
      2002.04.19 10:21
      델파이5를 쓰거든여....... --;
    • 최석기
      2002.04.19 19:44
      이곳 자료실에 GifImage라는 자료를 찾아보세요.
    • 최석기
      2002.04.19 19:42
      PL/SQL이라면 StoredProcedure 말씀하시는 건가요?? 그러면 Data Access 탭에 있는 TStoredProc 콤포넌...
    • 박홍섭
    • 2002.04.19 05:12
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이경범
      2002.04.19 10:05
      메뉴 뉴 프로젝트 하나 선택하고 바로 컴파일하믄 만들어져요
    • 이민수
      2002.04.19 16:01
      답이 생성된건 실행을 하셨다는 뜻이겠죠? 프로젝트를 시작해서 프로그램을 만든 다음 Ctrl+F9나 메뉴...