사발우성 wrote:

>

> 음.... 파라독스의 카운트속성에 대한 질문임당....[+] <---- 이속성임당..

>

> 요넘은 왜 (why) 레코드를 지워도 계속 남아서리 사람을 괴롭히나엽...

>

> 요넘을 완전히 지울순 없나엽..

>

>



카운트 속성이라는게 문지는 잘 모르겠는데 파라독스나 DBase 종류의 디비는 삭제한다고 실제로 테이블에서 지워지는게 아니라 일종의 삭제 마크 필드같은게 있어서 그 필드에 삭제 되었다는 표시를 남기는 형식입니다..



그래서 여러건을 지우더라도 해당 파일의 사이즈 자체는 줄지 않게 되죠..



정말로 테이블에서 지우시려면 Pack이라는 것을 해야 합니다.



pack 하는 함수가 잘 기억이 않나는데 BDE쪽 함수로 존재해요..



헬프 찾아보시면 있으실 꺼예요..



근데 물음에 답이 맞나??

최석기님 감솨... 그런디 넘어렵땅...



조금더 쉽게 글구 전 영어가 짧아서리..... ㅜ.ㅜ HELP 도움말두 못봐엽...



그냥 소스를 주시와엽. 이상 초보사발이였습니당...^^



최석기 wrote:

> 사발우성 wrote:

> >

> > 음.... 파라독스의 카운트속성에 대한 질문임당....[+] <---- 이속성임당..

> >

> > 요넘은 왜 (why) 레코드를 지워도 계속 남아서리 사람을 괴롭히나엽...

> >

> > 요넘을 완전히 지울순 없나엽..

> >

> >

>

> 카운트 속성이라는게 문지는 잘 모르겠는데 파라독스나 DBase 종류의 디비는 삭제한다고 실제로 테이블에서 지워지는게 아니라 일종의 삭제 마크 필드같은게 있어서 그 필드에 삭제 되었다는 표시를 남기는 형식입니다..

>

> 그래서 여러건을 지우더라도 해당 파일의 사이즈 자체는 줄지 않게 되죠..

>

> 정말로 테이블에서 지우시려면 Pack이라는 것을 해야 합니다.

>

> pack 하는 함수가 잘 기억이 않나는데 BDE쪽 함수로 존재해요..

>

> 헬프 찾아보시면 있으실 꺼예요..

>

> 근데 물음에 답이 맞나??

델파이 헬프에 있는 예제 그대로 올리는 거예요..



그리고 소스를 직접 구하시는 것보다도 님이 직접 헬프등을 찾아 보면서 생각해야 자신에 실력이 되겠죠 ^^



날두 더운데 즐코하세요..



procedure PackTable(Table: TTable);

var

Props: CURProps;

hDb: hDBIDb;

TableDesc: CRTblDesc;

begin

// Make sure the table is open exclusively so we can get the db handle...

if not Table.Active then

raise EDatabaseError.Create('Table must be opened to pack');

if not Table.Exclusive then



raise EDatabaseError.Create('Table must be opened exclusively to pack');



// Get the table properties to determine table type...

Check(DbiGetCursorProps(Table.Handle, Props));



// If the table is a Paradox table, you must call DbiDoRestructure...

if Props.szTableType = szPARADOX then begin

// Blank out the structure...

FillChar(TableDesc, sizeof(TableDesc), 0);

// Get the database handle from the table's cursor handle...



Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));

// Put the table name in the table descriptor...

StrPCopy(TableDesc.szTblName, Table.TableName);

// Put the table type in the table descriptor...

StrPCopy(TableDesc.szTblType, Props.szTableType);

// Set the Pack option in the table descriptor to TRUE...

TableDesc.bPack := True;

// Close the table so the restructure can complete...

Table.Close;

// Call DbiDoRestructure...



Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));

end

else

// If the table is a dBASE table, simply call DbiPackTable...

if (Props.szTableType = szDBASE) then

Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))

else

// Pack only works on PAradox or dBASE; nothing else...

raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' +



'type to pack');



Table.Open;



end;



사발우성 wrote:

> 최석기님 감솨... 그런디 넘어렵땅...

>

> 조금더 쉽게 글구 전 영어가 짧아서리..... ㅜ.ㅜ HELP 도움말두 못봐엽...

>

> 그냥 소스를 주시와엽. 이상 초보사발이였습니당...^^

>

> 최석기 wrote:

> > 사발우성 wrote:

> > >

> > > 음.... 파라독스의 카운트속성에 대한 질문임당....[+] <---- 이속성임당..

> > >

> > > 요넘은 왜 (why) 레코드를 지워도 계속 남아서리 사람을 괴롭히나엽...

> > >

> > > 요넘을 완전히 지울순 없나엽..

> > >

> > >

> >

> > 카운트 속성이라는게 문지는 잘 모르겠는데 파라독스나 DBase 종류의 디비는 삭제한다고 실제로 테이블에서 지워지는게 아니라 일종의 삭제 마크 필드같은게 있어서 그 필드에 삭제 되었다는 표시를 남기는 형식입니다..

> >

> > 그래서 여러건을 지우더라도 해당 파일의 사이즈 자체는 줄지 않게 되죠..

> >

> > 정말로 테이블에서 지우시려면 Pack이라는 것을 해야 합니다.

> >

> > pack 하는 함수가 잘 기억이 않나는데 BDE쪽 함수로 존재해요..

> >

> > 헬프 찾아보시면 있으실 꺼예요..

> >

> > 근데 물음에 답이 맞나??

사발우성 wrote:

> 최석기님 감솨... 그런디 넘어렵땅...

>

> 조금더 쉽게 글구 전 영어가 짧아서리..... ㅜ.ㅜ HELP 도움말두 못봐엽...

>

> 그냥 소스를 주시와엽. 이상 초보사발이였습니당...^^

>

> 최석기 wrote:

> > 사발우성 wrote:

> > >

> > > 음.... 파라독스의 카운트속성에 대한 질문임당....[+] <---- 이속성임당..

> > >

> > > 요넘은 왜 (why) 레코드를 지워도 계속 남아서리 사람을 괴롭히나엽...

> > >

> > > 요넘을 완전히 지울순 없나엽..

> > >

> > >

> >

> > 카운트 속성이라는게 문지는 잘 모르겠는데 파라독스나 DBase 종류의 디비는 삭제한다고 실제로 테이블에서 지워지는게 아니라 일종의 삭제 마크 필드같은게 있어서 그 필드에 삭제 되었다는 표시를 남기는 형식입니다..

> >

> > 그래서 여러건을 지우더라도 해당 파일의 사이즈 자체는 줄지 않게 되죠..

> >

> > 정말로 테이블에서 지우시려면 Pack이라는 것을 해야 합니다.

> >

> > pack 하는 함수가 잘 기억이 않나는데 BDE쪽 함수로 존재해요..

> >

> > 헬프 찾아보시면 있으실 꺼예요..

> >

> > 근데 물음에 답이 맞나??



rx라이브러리의 bdeutil이라는 유닛에 PackTable이라는 함수가 있습니다.

파라독스를 팩시키는 건 dbase처럼 간단하지는 않습니다.

rx는 자료실이 올라와 있구요.