Q&A
- ListView질문있습니다.
지금 아래의 소스좀 봐주세요...
현재디렉토리의 화일과 몇가지 정보를 Explorer처럼
ListView를 이용해서 구현중인데...
한가지 문제가 있습니다.
너무 느려요... 이거 왜 이렇죠...??
윈도우의 explorer는 금방 화면에 보여주는데...
제건 약 400여 개의 화일및 디렉토리를 리스트뷰에 표시하는데,
약 30초가 걸립니다. 이거 왜이렇죠...
아래에 소스를 첨부합니다. 좀 봐주세요....
---------------------------------------
procedure TForm1.DispListView(Dir:string);
var
ListItem : TListItem;
SearchRec : TSearchRec;
RetCode : Integer;
begin
Screen.Cursor:=crHourGlass;
ListView1.Items.Clear;
ListView1.ViewStyle:=TViewStyle(vs);
if Dir[Length(Dir)] <> '' then
Dir:=Dir+'';
CurDir:=Dir;
RetCode:=FindFirst(Dir+'*.*',faAnyFile-faVolumeID,SearchRec);
while RetCode = 0 do
begin
ListItem:=ListView1.Items.Add;
// StatusBar1.SimpleText:=IntToStr(ListView1.Items.Count); //이걸로 카운트를 살펴보니 수가 높아질수록
//느려지더군요... ^^;
ListItem.Caption:=SearchRec.FindData.cFileName;
if (SearchRec.Attr = faDirectory) then
ListItem.ImageIndex:=0
else
ListItem.ImageIndex:=1;
// ListItem.StateIndex:=-1;
ListItem.SubItems.Add(FileSizeToStr(SearchRec.FindData.nFileSizeHigh,SearchRec.FindData.nFileSizeLow));
ListItem.SubItems.Add(FileTimeToStr(SearchRec.FindData.ftCreationTime));
ListItem.SubItems.Add(FileTimeToStr(SearchRec.FindData.ftLastWriteTime));
RetCode:=FindNext(SearchRec);
end;
Screen.Cursor:=crDefault;
end;
현재디렉토리의 화일과 몇가지 정보를 Explorer처럼
ListView를 이용해서 구현중인데...
한가지 문제가 있습니다.
너무 느려요... 이거 왜 이렇죠...??
윈도우의 explorer는 금방 화면에 보여주는데...
제건 약 400여 개의 화일및 디렉토리를 리스트뷰에 표시하는데,
약 30초가 걸립니다. 이거 왜이렇죠...
아래에 소스를 첨부합니다. 좀 봐주세요....
---------------------------------------
procedure TForm1.DispListView(Dir:string);
var
ListItem : TListItem;
SearchRec : TSearchRec;
RetCode : Integer;
begin
Screen.Cursor:=crHourGlass;
ListView1.Items.Clear;
ListView1.ViewStyle:=TViewStyle(vs);
if Dir[Length(Dir)] <> '' then
Dir:=Dir+'';
CurDir:=Dir;
RetCode:=FindFirst(Dir+'*.*',faAnyFile-faVolumeID,SearchRec);
while RetCode = 0 do
begin
ListItem:=ListView1.Items.Add;
// StatusBar1.SimpleText:=IntToStr(ListView1.Items.Count); //이걸로 카운트를 살펴보니 수가 높아질수록
//느려지더군요... ^^;
ListItem.Caption:=SearchRec.FindData.cFileName;
if (SearchRec.Attr = faDirectory) then
ListItem.ImageIndex:=0
else
ListItem.ImageIndex:=1;
// ListItem.StateIndex:=-1;
ListItem.SubItems.Add(FileSizeToStr(SearchRec.FindData.nFileSizeHigh,SearchRec.FindData.nFileSizeLow));
ListItem.SubItems.Add(FileTimeToStr(SearchRec.FindData.ftCreationTime));
ListItem.SubItems.Add(FileTimeToStr(SearchRec.FindData.ftLastWriteTime));
RetCode:=FindNext(SearchRec);
end;
Screen.Cursor:=crDefault;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
이정욱•1999.05.24 01:12SetForegroundWindow 를 사용하세요. 메세지 박스가 뜨기직전에 해주세요. SetForgroundWindow(Handle); ...
-
-
- 김도영
- 1999.05.23 05:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 안명호
- •
- 1999.05.23 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.05.24 01:14안명호 wrote: > 컨트롤 내에서가 아니라... > 프로그램 외부에서 예를 들어 탐색기에서 > 파일을 드래...
-
- WhiteDragon
- 1999.05.22 21:09
- 0 COMMENTS
- /
- 0 LIKES
-
- WhiteDragon
- 1999.05.22 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 이미영
- 1999.05.22 19:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 이종근
- •
- 1999.05.22 16:42
- 2 COMMENTS
- /
- 0 LIKES
-
윤석천•1999.05.23 20:30이종근 wrote: > 프로그램을 하다가 궁금한게 있어서요. > 1.퀵리포트에서 > 원하는 레코만 출력하고 ...
-
종모•1999.05.22 20:56이종근 wrote: > 프로그램을 하다가 궁금한게 있어서요. > 1.퀵리포트에서 > 원하는 레코만 출력하고 ...
-
- Francis
- 1999.05.22 06:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 정 명섭
- •
- 1999.05.22 05:03
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.22 11:00음냐..... BDE엔진도 같이 아버님컴퓨터에 인스톨해야 합니다. 뭐 간단하게 델파이 씨디가 있다면 커스...
-
- 땡글이
- •
- 1999.05.22 04:27
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.22 11:05글쎄요...쩝 제생각에는 dbware인 Xpower가 해결방법 같군요. 거기에 필요한 기능이 있을꺼 같습니다. 나...
-
- 최석원
- 1999.05.22 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- Musa Lee
- •
- 1999.05.22 01:39
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.22 01:57광고게시판은 쓰는사람이 적지만 조회수는 월등히 많습니다. 왜냐하면 델파이에 관련되지 않는 것들은 제...
-
- summe
- 1999.05.22 01:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 김해옥
- •
- 1999.05.22 01:17
- 1 COMMENTS
- /
- 0 LIKES
-
강지영•1999.05.24 19:49김해옥 wrote: > delphi 4.0에 내장되어 있는 interbase5.0을 깔았는데요. > 실행시키니까 서버로만 접속...
-
- 김봉재
- •
- 1999.05.22 00:51
- 1 COMMENTS
- /
- 0 LIKES
지금 아래의 소스좀 봐주세요... 현재디렉토리의 화일과 몇가지 정보를 Explorer처럼 ListView를 이용해서 구현중인데... 한가지 문제가 있습니다. 너무 느려요... 이거 왜 이렇죠...?? 윈도우의 explorer는 금방 화면에 보여주는데... 제...-
이정욱•1999.05.22 01:21BeginUpdate와 EndUpdate를 사용해 보세요. 이것을 사용하면 더해지는 중간에는 업데이트가 내부에서 되고...
-
- 박근영
- •
- 1999.05.22 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.05.22 00:29박근영 wrote: > 안녕하세요... 선배 델피언 여러분.... > 저는 이제 막 델파이에 대해서 눈을 뜨가고 ...
-
- 윤상필
- •
- 1999.05.21 23:35
- 1 COMMENTS
- /
- 0 LIKES
-
윤상필•1999.05.25 00:08윤상필 wrote: > 이정욱님 고맙습지만 > 저는 델파이 3.0에서 제공하는 SMTP 컴포넌트를 이용하고 있습...
-
- 박승록
- •
- 1999.05.21 23:24
- 2 COMMENTS
- /
- 0 LIKES
-
류•1999.05.22 03:58박승록 wrote: > 메모장에 text문서사이에 > > 이미지 파일을 넣는 방법을 알고싶습니다. > > 이미...
-
한•1999.05.22 00:33박승록 wrote: > 메모장에 text문서사이에 > > 이미지 파일을 넣는 방법을 알고싶습니다. > > 이미...
-
- 이미영
- •
- 1999.05.21 21:52
- 4 COMMENTS
- /
- 0 LIKES
-
한•1999.05.22 00:37이미영 wrote: > 프로그램에서 윈도우에서 발생하는 모든 메세지를 잡을 수 있나요? > > 예로든다면 A....
-
이정욱•1999.05.21 23:08물론 가능합니다. 단순히 아래와 같은 기능이라면 그냥 RegisterHotkey라는 함수를 참고하세요. 그것을 ...
-
이미영•1999.05.21 23:58파워러브델파이 97년 6월호(4호)의 채팅도우미 만들기는 어디에 가면 볼수 있어요..??? 답변 고마워요....
-
이정욱•1999.05.22 01:15http://www.nilex.net에 가시면 구입하실 수 있습니다. 5500원입니다. 이미영 wrote: > 파워러브델파...
-
- 이재구
- •
- 1999.05.21 20:55
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.21 21:07음.. 저의 짧은 지식으로는 꼭 파싱을 하셔야 할것 같네요. 제가 보기에는 sik이라는곳에 연산식을 넣어주...
이것을 사용하면 더해지는 중간에는 업데이트가 내부에서 되고 EndUpdate가 되는순간 화면으로 뿌리게 됩니다. 속도가 빨라지죠. 많은양의 데이타를 ListView나 ListBox에 추가할 때 사용합니다.
아래코드에 제가 추가를 해 놓았으니 참고하세요.
김봉재 wrote:
> 지금 아래의 소스좀 봐주세요...
> 현재디렉토리의 화일과 몇가지 정보를 Explorer처럼
> ListView를 이용해서 구현중인데...
> 한가지 문제가 있습니다.
> 너무 느려요... 이거 왜 이렇죠...??
> 윈도우의 explorer는 금방 화면에 보여주는데...
> 제건 약 400여 개의 화일및 디렉토리를 리스트뷰에 표시하는데,
> 약 30초가 걸립니다. 이거 왜이렇죠...
> 아래에 소스를 첨부합니다. 좀 봐주세요....
> ---------------------------------------
> procedure TForm1.DispListView(Dir:string);
> var
> ListItem : TListItem;
> SearchRec : TSearchRec;
> RetCode : Integer;
> begin
> Screen.Cursor:=crHourGlass;
> ListView1.Items.Clear;
ListView1.Items.BeginUpdate // 여기를 잘 보세요.~~~~~~~~~~~~~~~~~~~~
> ListView1.ViewStyle:=TViewStyle(vs);
> if Dir[Length(Dir)] <> '' then
> Dir:=Dir+'';
>
> CurDir:=Dir;
> RetCode:=FindFirst(Dir+'*.*',faAnyFile-faVolumeID,SearchRec);
> while RetCode = 0 do
> begin
> ListItem:=ListView1.Items.Add;
> // StatusBar1.SimpleText:=IntToStr(ListView1.Items.Count); //이걸로 카운트를 살펴보니 수가 높아질수록
> //느려지더군요... ^^;
> ListItem.Caption:=SearchRec.FindData.cFileName;
> if (SearchRec.Attr = faDirectory) then
> ListItem.ImageIndex:=0
> else
> ListItem.ImageIndex:=1;
>
> // ListItem.StateIndex:=-1;
> ListItem.SubItems.Add(FileSizeToStr(SearchRec.FindData.nFileSizeHigh,SearchRec.FindData.nFileSizeLow));
> ListItem.SubItems.Add(FileTimeToStr(SearchRec.FindData.ftCreationTime));
> ListItem.SubItems.Add(FileTimeToStr(SearchRec.FindData.ftLastWriteTime));
>
> RetCode:=FindNext(SearchRec);
> end;
> Screen.Cursor:=crDefault;
ListView1.Items.EndUpdate; // 여기도 잘 보세요~~~~~~~~~~~~~~~~~~~~~
> end;
>