Q&A
- 이룬~ 에러가 몽창 뜨네여 Listview 에서 Sort하는건데....
안녕하세여 Listview에서 Sort를 하는건데 최용일님께서 전에 답변한걸 이용을 했습니다. 그런데 에러가 나는데 고수님들의 따듯한 손길을 기다리고 있습니다.
procedure TFmBrowser.lvItemListColumnClick(Sender: TObject;
Column: TListColumn);
begin
lvItemList.CustomSort(CompareProc, Column.Tag);
end;
function CompareProc(lParam1, lParam2 : TListItem; lParamSort: Integer): Integer stdcall;
begin
Result := 0;
case lParamSort of
1: Result := CompareText(lParam1.Caption, lParam2.Caption);
2: Result := CompareText(lParam1.SubItems[0], lParam2.SubItems[0]);
3: Result := CompareText(lParam1.SubItems[1], lParam2.SubItems[1]);
4: Result := CompareText(lParam1.SubItems[2], lParam2.SubItems[2]);
end;
end;
이렇게 했는데 이런 에러가 나는데여
Incompatible types: regular procedure and method pointer
type 안맞는다는 얘긴가여
부탁좀 드리겠습니다.
procedure TFmBrowser.lvItemListColumnClick(Sender: TObject;
Column: TListColumn);
begin
lvItemList.CustomSort(CompareProc, Column.Tag);
end;
function CompareProc(lParam1, lParam2 : TListItem; lParamSort: Integer): Integer stdcall;
begin
Result := 0;
case lParamSort of
1: Result := CompareText(lParam1.Caption, lParam2.Caption);
2: Result := CompareText(lParam1.SubItems[0], lParam2.SubItems[0]);
3: Result := CompareText(lParam1.SubItems[1], lParam2.SubItems[1]);
4: Result := CompareText(lParam1.SubItems[2], lParam2.SubItems[2]);
end;
end;
이렇게 했는데 이런 에러가 나는데여
Incompatible types: regular procedure and method pointer
type 안맞는다는 얘긴가여
부탁좀 드리겠습니다.
(NOTICE) You must be logged in to comment on this post.
-
- 꼴통
- •
- 2000.12.15 19:46
- 2 COMMENTS
- /
- 0 LIKES
안녕하세여 Listview에서 Sort를 하는건데 최용일님께서 전에 답변한걸 이용을 했습니다. 그런데 에러가 나는데 고수님들의 따듯한 손길을 기다리고 있습니다. procedure TFmBrowser.lvItemListColumnClick(Sender: TObject; Column: TLis...-
최용일•2000.12.18 03:17안녕하세요. 최용일입니다. TListView의 CustomSort메소드의 파라메터로 들어가는 함수는 콜백함수입니... -
꼴통•2000.12.18 16:35.
-
- 초보
- 2000.12.15 19:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정규
- •
- 2000.12.15 19:11
- 4 COMMENTS
- /
- 0 LIKES
-
오병주•2001.07.05 20:27김정규 wrote: > with query1 do > begin > close; > sql.clear; > s_sql :='select c...
-
김정규•2000.12.15 19:13with query1 do begin close; sql.clear; s_sql :='select count(m_sabun) aa fro...
-
이성주•2000.12.16 21:06"00" 에서 에러가 나신다고 하셨지요.. 혹시... '00' 이렇게 해야 되는게 아닐까요.. 델파이에서 오라클...
-
방경주•2000.12.15 22:28흠...and and가 겹쳐 있네여...이게 아닌가? ^^;; 저 같음...이렇게 해보셈...소스는 잘 정리 된게 에...
-
- 초보
- •
- 2000.12.15 18:38
- 2 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.12.15 18:50안녕하세요. Application.Exename 은 현재 프로그램이 실행되고 있는 패스를 말합니다. 만약 님의 프로그...
-
초보•2000.12.15 18:53감사합니다.....꾸벅
-
- 기타맨
- 2000.12.15 18:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광섭
- •
- 2000.12.15 18:08
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2000.12.15 18:41김광섭 wrote: > 델파이를 이용하면서 여태 무심코 지나쳤던 현상이 있어서 이렇게 질문합니다. > 디비그...
-
- 밍시
- 2000.12.15 17:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.12.15 12:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김오성
- •
- 2000.12.15 09:35
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.15 10:17wave파일은 일단 8000Hz 16bit mono로 샘플링해주세요. 그리고 설치된 Voice Modem의 DeviceID를 얻은 다...
-
- 초보자
- •
- 2000.12.15 09:06
- 1 COMMENTS
- /
- 0 LIKES
-
프지초보•2000.12.15 20:18저도 초보라 잘 모르는데.. 질문이 너무 막연하군요.. index나 filter를 이용하세요 그리고 데이타 베이...
-
- 아기코알라
- •
- 2000.12.15 07:53
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2000.12.15 18:20아기코알라 wrote: > > 안녕하세요 고수님들... > 여러고수님들의 도움으로 조그마한 프로그램을 마...
-
+^-_-^+•2000.12.15 20:36김광섭 wrote: > 아기코알라 wrote: > > > > 안녕하세요 고수님들... > > 여러고수님들의 도움으로 ...
-
- 진현주
- •
- 2000.12.15 06:16
- 4 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.12.15 23:12안녕하세요. 저도 얼마전에 그런일이 있어서 여기서 돔을 받았습니당. 아마 이 부분도 참고가 되셨음 하...
-
김동규•2000.12.15 06:33진현주 wrote: > 폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요. > > 여기에 텍스트를 넣으려고 ...
-
김상호•2000.12.15 06:32For j := 1 to 15 do begin TEdit(FindComponent('A' + IntToStr(j))).Text :='테스트'; ...
-
권경미•2000.12.15 18:33for i := 0 to form1.ControlCount - 1 do begin if (form1.controls[i] is tedit) and ...
-
- 델초보..
- •
- 2000.12.15 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
김상호•2000.12.15 04:59DbfFiles: string; if FileExists(DbfFiles) then 이와 같은 명령을 사용해서 화일유무를 판...
-
- 홍진혁
- •
- 2000.12.15 03:25
- 2 COMMENTS
- /
- 0 LIKES
-
김상호•2000.12.15 05:12ExitWindowsEx(EWX_SHUTDOWN,0); // 종료 ExitWindowsEx(EWX_REBOOT,0) ; // 재부팅 ...
-
홍진혁•2000.12.15 08:34김상호님께서 답변해주신 ExitWindowsEx()함수는 Windows 95/98에서만 사용가능한 함수입니다. 그리고, 제...
-
- 초보자
- •
- 2000.12.15 03:10
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2000.12.15 05:29초보자 wrote: > 안녕하세요. > > Delphi 4.0에 있는 인스톨쉴드로 설치 프로그램 작성시 궁금한 사항...
-
- 초보
- 2000.12.15 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 괴물초쟁이
- •
- 2000.12.15 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.12.15 03:05Open이 잘못된건가요? 전 파라미터를 쓰는걸 참 좋아하는데 이유는 코딩이 보기 편해서입니다. ^^ 그리...
-
-
강인규•2000.12.15 03:58이게 답변이 될까요? var i : integer; begin i := 1; (FindComponent('edit'+IntToStr(i)) a...
-
김상국•2000.12.18 22:43님의 도움으로 인하여 400라인을 40라인으로 줄였여요.. 감사합니다. ^*^ 좋은 한 주 되세요... ...
-
-
- 델피언
- 2000.12.15 02:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이공주
- •
- 2000.12.15 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
고대서창•2000.12.15 02:56mediaplayer 컴포넌트를 사용하세요. 파이공주 wrote: > .avi 화일로된 동영상을 보구 싶은데요.. 어...
TListView의 CustomSort메소드의 파라메터로 들어가는 함수는 콜백함수입니다.
아래처럼 메소드 내부에서 함수를 선언해서 사용하세요... 그럼 될겁니다.
쩝~ 안되면 메일주세요...
^^ 항상 즐코하세요...
procedure TFmBrowser.lvItemListColumnClick(Sender: TObject;
Column: TListColumn);
function CompareProc(lParam1, lParam2 : TListItem; lParamSort: Integer): Integer stdcall;
begin
Result := 0;
case lParamSort of
1: Result := CompareText(lParam1.Caption, lParam2.Caption);
2: Result := CompareText(lParam1.SubItems[0], lParam2.SubItems[0]);
3: Result := CompareText(lParam1.SubItems[1], lParam2.SubItems[1]);
4: Result := CompareText(lParam1.SubItems[2], lParam2.SubItems[2]);
end;
end;
begin
lvItemList.CustomSort(CompareProc, Column.Tag);
end;
꼴통 wrote:
> 안녕하세여 Listview에서 Sort를 하는건데 최용일님께서 전에 답변한걸 이용을 했습니다. 그런데 에러가 나는데 고수님들의 따듯한 손길을 기다리고 있습니다.
>
> procedure TFmBrowser.lvItemListColumnClick(Sender: TObject;
> Column: TListColumn);
> begin
> lvItemList.CustomSort(CompareProc, Column.Tag);
> end;
>
> function CompareProc(lParam1, lParam2 : TListItem; lParamSort: Integer): Integer stdcall;
> begin
> Result := 0;
> case lParamSort of
> 1: Result := CompareText(lParam1.Caption, lParam2.Caption);
> 2: Result := CompareText(lParam1.SubItems[0], lParam2.SubItems[0]);
> 3: Result := CompareText(lParam1.SubItems[1], lParam2.SubItems[1]);
> 4: Result := CompareText(lParam1.SubItems[2], lParam2.SubItems[2]);
> end;
> end;
>
> 이렇게 했는데 이런 에러가 나는데여
> Incompatible types: regular procedure and method pointer
>
> type 안맞는다는 얘긴가여
>
> 부탁좀 드리겠습니다.
>