Q&A

  • 스트링그리드에서 다중선택한 배열 번지 알아내는 방법??
제가 할려는게 그리드를 2개 만들어서

1번그리드 내용을 2번그리드로 옮기고 2번을 다시 1번으로 옮기는 방식으로 할려고 하거든요..

기본적으로
for문을 사용하여 1번 그리드 내용을 순차적으로 읽으면서
해당  row가 선택되어 있으면 이걸 1번그리드에서 삭제한 후 2번으로 옮기기요

Oknum := okGrid.RowCount;

for i := 1 to Oknum-1 do
begin
  
   //slt에다가 해당 row의 선택여부를 넣어주면 되는데..^^; 안되네요..

   if  slt = 1 then
   begin
     LastRow := cancelGrid.RowCount;

     cancelGrid.RowCount := LastRow;

     cancelGrid.Cells[0,LastRow] := inttostr(LastRow);
     cancelGrid.Cells[1,LastRow] := okGrid.Cells[1,i];
     cancelGrid.Cells[2,LastRow] := okGrid.Cells[2,i];
     cancelGrid.Cells[3,LastRow] := okGrid.Cells[3,i];
     cancelGrid.Cells[4,LastRow] := okGrid.Cells[4,i];
     cancelGrid.Cells[5,LastRow] := okGrid.Cells[5,i];
     cancelGrid.Cells[6,LastRow] := okGrid.Cells[6,i];
     DoEvents ;
   end else
   begin
     //showmessage(okGrid.Cells[2,i]+'선택안함');
   end;

   slt := 0;

end;

이런식으로요.. 근데.. 현재 그리드의 row가 선택되어 있는지를 모르겠네요..

고수님들 알켜주세용..... 가능한지 안한지도 잘모르겠네요..
1  COMMENTS
  • Profile
    hahaha 2003.06.17 07:27
    procedure TForm1.BitBtn1Click(Sender: TObject);
    var i, j :Integer;
    begin

      for i := 1 to StringGrid1.ColCount - 1 do
      begin
        for  j := 1 to StringGrid1.RowCount - 1 do
        begin
          if(j = StringGrid1.Row) then
            StringGrid2.Cells[i,j] := StringGrid1.Cells[i,j];
        end;
      end;


    end;


    • 이용훈
    • 2003.06.17 03:52
    • 1 COMMENTS
    • /
    • 0 LIKES
    • hahaha
      2003.06.17 07:27
      procedure TForm1.BitBtn1Click(Sender: TObject); var i, j :Integer; begin   for i := 1...
    • 정연호
    • 2003.06.17 02:30
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 방재웅
      2003.07.01 21:51
      1) 가장 쉽고 또한 많이 쓰는 방법 vfw(Video For Windows) 사용 (참조) http://msdn.microsoft.com/li...
    • 바보감자
      2003.06.17 02:51
      안녕하세요 언제나 초보 바보감자입니다. 세세하게 멀티미디어를 제어하실려면 Direct show 을 쓰셔야 합...
    • 그냥
      2003.06.23 02:33
      이미지 변경, 예를 들어 밝기, 채도, 색등을 변경하지 않는다면 윈도우에서 제공하는 API함수를 이용하시...
    • 박근옥
    • 2003.06.17 02:25
    • 2 COMMENTS
    • /
    • 0 LIKES
    • major
      2003.06.17 02:48
      안녕하세요.. 제가 정확히는 모르겠는데.. 혹시 맨위 Uses 절에 Variants를 한번 추가 해 보면 어떨...
    • 초보운전
      2003.06.17 02:59
      고맙습니다. 많은 도움이 되었습니다. ............
    • 고진중
    • 2003.06.17 02:17
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 김종곤
    • 2003.06.17 01:32
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 바보감자
      2003.06.17 02:01
      안녕하세요 언제나 초보 바보감자입니다. 이문제는 간단하지요. 메인폼에 함수 하나를 맹그러놓고 차일...
    • 강형철
      2003.06.18 00:49
      http://user.chollian.net/~vvad152e/indexk.htm
    • 이용주
    • 2003.06.16 22:26
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 바보감자
      2003.06.16 21:59
      안녕하세요 언제나 초보 바보감자입니다.. COUNT(doc_no) as cnt 중간에 as넣었거든요. 한번해보세요 ...
    • ^ㅡ^
      2003.06.16 21:55
      무슨말씀인지는 잘 모르겠으나 초보인저도 한글자 적습니다 일단 open을 안 하신거 같구요 같은필드에다...
    • 최은하
      2003.06.16 23:36
      1첫째 답변인"as"를 붙여서 해보라는 말씀과 2번째 답변인 코딩을 써서 해봤는데 안되더라구여! 글구 selec...
    • ^ㅡ^
      2003.06.17 01:29
      또다시 초보가 들을 올립니다..... 저 같은경우에는 그냥 파라미터를 줍니다. qry_dtl.close;  &...
    • 바보감자
      2003.06.17 00:52
      안녕하세요 언제나 초보 바보감자입니다.. 제가 예전에도 등록글을 적었지만 쿼리문은 자기가 검사하는...
    • 최은하
      2003.06.17 03:50
      item_count := qry_dtl.FieldByName('cnt').AsString; 이케 item_count라는 string변수에 어떻게 값을 가...
    • ^ㅡ^
      2003.06.17 19:33
      생략    var    Item_Count : String;     imsi_sql : string...
    • • • •
    • 바보감자
      2003.06.16 22:02
      안녕하세요 언제나 초보 바보감자입니다 걍 저거 깨긋한거 가지고 스캔을 해버리세요..ㅡㅡ;; 그리고 하...
    • ^ㅡ^
      2003.06.16 22:01
      음 잘 봤습니다.. 일단 저두 포워더프로그램 개발자입니다. 일단은 이미지는 qreport에서 qrimage를 선...
    • 바보감자
      2003.06.16 21:11
    • 초짜는괴로워ㅜ.ㅜ
      2003.06.16 21:35
    • 바보감자
      2003.06.16 21:49
    • 초짜는괴로워ㅜ.ㅜ
      2003.06.17 02:02
    • 바보감자
      2003.06.17 02:11
    • 초짜는괴로워ㅜ.ㅜ
      2003.06.17 02:44
    • 문성환
    • 2003.06.16 20:01
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 바보감자
      2003.06.16 20:15
      안녕하세요 언제나 초보 바보감자입니다.. 쿼리돌리시는게 느리시면 다른 방법을 추천해드리고싶군요 어...
    • 문성환
      2003.06.16 21:12
      테이블개수가 4개정도되는데...따로따로...해야되거든요.... 쓰래드를 보긴했는데...예제가 나와있는게 ...
    • 바보감자
      2003.06.16 21:40
      안녕하세요 언제나 초보 바보감자입니다. 테이블수가 4개면 4개를 돌리면 되겠지요. 그래야 쿼리 4번 ...
    • 백록화
      2003.06.16 20:22
      yo` 퀵리포트의 버그(??) 입니다. 퀵리포트를 업그레이드 하십시요. 업글안하셔도 방법은 있습니다.. ...
    • 강지훈
      2003.06.18 03:11
      업글하지 않고 레지스터리나 다른 방법은 없는지요? 팁, 질/답을 전부 조회해 봤는데 저 같은 경우는 안...
    • 심용숙
      2003.08.12 03:55
      Quick Report의 경우는 출력하면서 내용을 TEMP로 전환을 시킵니다. 그러고서 출력을 보내지요.. 보통 ...
    • 이현경
      2003.10.15 03:22
      Delphi 4.0 & QuickReport 3.0.5를 사용하고 있습니다 님이 가르쳐주신 방법으로 환경변수를 수정 했지만 ...
    • 이용주
    • 2003.06.16 00:54
    • 4 COMMENTS
    • /
    • 0 LIKES
    • KDDG_Check
      2003.06.17 08:24
      안녕하세요, 여유로움 입니다. 답변을 간단히 말씀드리면 각 라디오 버튼 클릭시 ListView의 ViewSty...
    • 바보감자
      2003.06.16 19:06
      안능하세요 언제나 초보 바보감자입니다 즐거운(?) 월요일 아침이네요.. 스샷을찍어주심이 더 편할듯 싶...
    • 이용주
      2003.06.16 20:23
    • 바보감자
      2003.06.16 20:37
      안녕하세요 언제나 초보 바보감자입니다 그러니까 그첨부파일 프로그램이 에러난다는건디.. 저는 비베가 ...
    • major
      2003.06.16 18:55
      허허허 이거 위에 선언이 되어 있는데 아래 부분에 없어서 그런 것 같은데요.. Ctrl+F 로 button5c...
    • 바보감자
      2003.06.16 19:01
      안녕하세요 ^^ 언제나 초보 바보감자입니다 꾸벅. 파일 문제는 해결하셨나보군요.. ^^ 레지스트리를 ...
    • 아폴론
    • 2003.06.15 08:47
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 구경덕
      2003.06.16 21:47
      안녕하세요. 예전에 저도 경험한 적이 있죠. 그런디 딱히 답변이 이거다라는 것을 찾을 수가 없더군요....
    • major
      2003.06.16 18:48
      저 같은 경우에는 XP에서 개발시에 화면 구성때문에 XP 그래픽 설정에서 XP 고전으로 해서 디자인을 하...
    • 장덕곤
      2003.06.15 10:46
      저 같은 경우에는 에러가 있어서 소스를 98 컴퓨터에서 다시 컴파일해서 사용한 경험이 있습니다. 무슨에...
    • 김대경
    • 2003.06.14 23:07
    • 1 COMMENTS
    • /
    • 0 LIKES
    • major
      2003.06.16 18:52
      글쎄요 간단할 것 같은데여...^^; 제가 워낙 쉽게 생각하는 타입이다 보니.ㅠ.ㅠ 필드에 대한 값을 가...
    • 구경덕
      2003.06.16 21:57
      안녕하세요 그냥 간단히. database1 데이타셋 이벤트중 AfterConnected((?)콤포개발사마다 명칭이 약간씩...
    • 바보감자
      2003.06.14 21:46
      안능하세요 언제나 초보 바보감자입니다 Database1.Connected   이게 True 면 .. ? 아시졍.? ...