윤수경 wrote:

> 며칠 전에 같은 질문 올렸었는데여... ^^;

>

> 말 그대롭니다...

>

> DBGrid에 출력된 내용을 SAM 파일로 만드는 방법 좀 갈카 주세여...

>

> SAM 파일이란...

>

> 일종의 텍스트 파일로...

>

> ISAM 파일은 인덱스를 가진 데이터 베이스의 내용(table)이 저장된 파일이구여...

>

> 당근 인덱스를 가지지 않은 파일을 SAM 파일이라고 합니다...

>

> 혹시 아시는 분~!!!



아주 예전에 쓰던건데 올리기가 상당히 부끄럽군여,,^^;;;;



일반텍스트파일이면 대충 이대루 쓰셔두 무방할껍니다.







var

TextF : TextFile;

begin



AssignFile(TextF,DIRCHK+''+EdtFileName.TEXT);

Rewrite(TextF);



ProgressBar1.Position := 0;

APPLICATION.ProcessMessages;



cnt := 0;

TCNT := Query3.recordcount;

Query3.FIRST;

WHILE NOT Query3.EOF DO

BEGIN



STRC := Query3.fielbyname('사용될필드').asstring;

Writeln(TextF, STRC); // C RECORD

CNT := CNT+1;

ProgressBar1.Position := (CNT * 100) DIV TCNT;

Query3.NEXT;

END;



CloseFILE(TextF);