Q&A
- 김영석님 봐주세요 소스를 올립니다...
변수정의시
var F: TextFile; 와
var F: File; 의 차이점이 알고 싶습니다
여기 소스를 올립니다
procedure TIS611F.save;
var
//...........선언부분
FromF, ToF : file;
BufLen,NumRead, NumWritten,full,NameInt,n,Sno : Integer;
Buf: array[1..650] of Char;
RecBuf: array[1..650] of Char;
//...........
begin
While Not Vins0001.Eof Do
Begin
FormatBuf(RecBuf , SizeOf(RecBuf) ,
'A20%3s%8s%1s%6s%-10s%-40s%13s%-30s%-15s%5s%3s%1s%1s%511s'
,Length('A20%3s%8s%1s%6s%-10s%-40s%13s%-30s%-15s%5s%3s%1s%1s%511s')
,[A[1],a[2],a[3],a[4],a[5],a[6],CharDelete(a[7],'-'),a[8]
,a[11],a[12],a[13],a[14],' ',' ']);
AssignFile(ToF,Config.ApplPath + 'backup' + FName);
Rewrite(ToF, 1);
BlockWrite(ToF, recBuf, SizeOf(RecBuf), NumWritten);
Vins0001.next;
End;
CloseFile(Tof);
AssignFile(ToF, Copy(Path.Text,1,2) + FName);
ReWrite(Tof,1);
Repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(Tof);
end;
결과파일을 보면은 650바이트씩은 가져오는데 계속이어서 자료가 생성이됩니다
1...........끝까지
제가 원하는 자료형태는
1............650 - 1번째 레코드
1............650 - 2번째 레코드
....
이런식으로 만들고 싶습니다.
var F: TextFile; 와
var F: File; 의 차이점이 알고 싶습니다
여기 소스를 올립니다
procedure TIS611F.save;
var
//...........선언부분
FromF, ToF : file;
BufLen,NumRead, NumWritten,full,NameInt,n,Sno : Integer;
Buf: array[1..650] of Char;
RecBuf: array[1..650] of Char;
//...........
begin
While Not Vins0001.Eof Do
Begin
FormatBuf(RecBuf , SizeOf(RecBuf) ,
'A20%3s%8s%1s%6s%-10s%-40s%13s%-30s%-15s%5s%3s%1s%1s%511s'
,Length('A20%3s%8s%1s%6s%-10s%-40s%13s%-30s%-15s%5s%3s%1s%1s%511s')
,[A[1],a[2],a[3],a[4],a[5],a[6],CharDelete(a[7],'-'),a[8]
,a[11],a[12],a[13],a[14],' ',' ']);
AssignFile(ToF,Config.ApplPath + 'backup' + FName);
Rewrite(ToF, 1);
BlockWrite(ToF, recBuf, SizeOf(RecBuf), NumWritten);
Vins0001.next;
End;
CloseFile(Tof);
AssignFile(ToF, Copy(Path.Text,1,2) + FName);
ReWrite(Tof,1);
Repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(Tof);
end;
결과파일을 보면은 650바이트씩은 가져오는데 계속이어서 자료가 생성이됩니다
1...........끝까지
제가 원하는 자료형태는
1............650 - 1번째 레코드
1............650 - 2번째 레코드
....
이런식으로 만들고 싶습니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 한재운
- •
- 2001.01.03 05:35
- 1 COMMENTS
- /
- 0 LIKES
-
고길동•2001.01.03 12:57아마도 방법이 없지 않을듯 싶습니다. 마치 메모 콤포넌트에서 줄간격 조절하는 거 같은데.. 그것도 방법...
-
- 짝돌이
- •
- 2001.01.03 05:06
- 3 COMMENTS
- /
- 0 LIKES
-
분당•2001.01.03 18:23oracle에서는 select되는 순서가 있습니다. rownum이란 이름의 comumn이 저절로 붙습니다. select se...
-
뿌요•2001.01.03 18:16안녕하세요.. ==> select rumnum as sss, group_code from dddd 오라클에서는 rumnum이란 함수가 있어서 ...
-
짝돌이•2001.01.04 06:46저의 질문에 대해 답변해주시 두분 정말 감사 드립니다.
-
- 이광인
- 2001.01.03 04:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이
- 2001.01.03 04:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.01.03 04:03
- 1 COMMENTS
- /
- 0 LIKES
-
이석형•2001.01.03 21:57초보 wrote: > 안녕하세요..이제 델파이 한지 2달된 초보입니다.. > 지금 자동 업그레이드 프로그램을 만...
-
- 이수정
- 2001.01.03 03:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.01.03 03:44
- 1 COMMENTS
- /
- 0 LIKES
-
김대빵•2001.01.03 03:51초보 wrote: > Coding으로 Table에 Column을 추가하고 싶은데 고수님들의 조언이절실합니다. > ALTER...
-
- hee
- •
- 2001.01.03 03:35
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.01.03 12:02hee wrote: > select * from db_table이잖아요. > 근데 db_table의 이름이 바뀌어서 from 이하의 테이블 ...
-
- 피터팬
- 2001.01.03 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 쌩초보
- •
- 2001.01.03 03:13
- 4 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2001.01.03 04:40쌩초보 wrote: > 이미지를 scrollbox에 놓고 불러와 > 포커스를 이동하는 등의 소스의 일부분입니다 > ...
-
쌩초보•2001.01.03 20:56Black}{ole wrote: > 쌩초보 wrote: > > 이미지를 scrollbox에 놓고 불러와 > > 포커스를 이동하는 등의...
-
Black}{ole•2001.01.04 18:17d_rect에 d_rect.Right와 d_rect.Bottom에 위치를 설정해 크기를 바꿀수 있습니다. 그리구,.. 팁으로 특정...
-
쌩초보•2001.01.05 18:59블랙홀님 감사해여~
-
-
컴맹...•2001.01.03 03:13if RecordCount > 0 then begin for I := 1 TO RecordCount do begin ...
-
-
- 안장근
- 2001.01.03 03:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 아보가드로
- •
- 2001.01.03 02:37
- 2 COMMENTS
- /
- 0 LIKES
-
권영길•2001.01.03 04:59winshoe를 참고하세요. indy로 짜면 좋을 것 같은데 아직 서버콤포넌트가 안나왔습니다. 능력이 되시면 i...
-
아보가드로•2001.01.04 00:22답변 감사드립니다. 그런데 제가 winshoe랑 indy를 많이 써보진 않아서 잘 모르겠네요. 콤포넌트가 POP3 ...
-
- 윤똘
- 2001.01.03 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 서영택
- •
- 2001.01.03 01:05
- 1 COMMENTS
- /
- 0 LIKES
변수정의시 var F: TextFile; 와 var F: File; 의 차이점이 알고 싶습니다 여기 소스를 올립니다 procedure TIS611F.save; var //...........선언부분 FromF, ToF : file; BufLen,NumRead, NumWritten,full,NameInt,n,Sno : Integer; Buf:...-
고길동•2001.01.03 13:02아래 보니까 일단 AssignFile(FromF,... ) 가 빠졌네요. 실수라 빠뜨린 건지.. 그리고 파일이 계속 써...
-
- 이주연
- •
- 2001.01.03 00:44
- 2 COMMENTS
- /
- 0 LIKES
-
강성찬•2001.01.03 02:44다른 FTP프로그램으로 테스트를 한번 해보셨어여?? NMFTP는 버그가 넘만아 않되어여.. 자료실에 보니까 i...
-
이주연•2001.01.03 03:46답변 주셔서 고맙습니다. 답변 주신김에 염치없이 다시 질문드릴께요. 안그래도 저도 글 올려놓고, 마냥 ...
-
- 초보자
- 2001.01.03 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이초보
- •
- 2001.01.03 00:28
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2001.01.03 02:24정적... 동적에 관해서.. 간단히.. 큰 프로젝트의 경우... 폼이 만약.. 400 개라고 가정... 정적인...
-
- 이진우
- 2001.01.02 23:41
- 0 COMMENTS
- /
- 0 LIKES
-
- ^_^
- •
- 2001.01.02 23:39
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2001.01.03 04:17안녕하세요. ^^ 텍스트 파일인경우.. TStringList객체를 이용해서 하면 쉽게 할수 있을것 같네여.. ...
실수라 빠뜨린 건지..
그리고 파일이 계속 써지는 것은 당연한 이야기가 아닌지요??
그리고 TextFile 는 텍스트파일에서만 쓰는 변수고
File 은 아무파일(바이너리, 텍스트)에서 쓸 수 있습니다.
원래 레코드란 것은 그걸 읽은 프로그램이 인식하기에 달린거죠.
파일에는 그냥 연속된 바이트값이 써질 뿐이기 때문에
1..650
1..650 이렇게 나눠져서 써지지는 않습니다.
그냥 그렇게 써진 바이트값들을 프로그램이 읽어서 그걸
650 바이트씩을 한 레코드로 묶어줘서 처리할 수 있도록
해야죠. 파일에 끝없이 써지는 건 당연한 얘기고..
파일은 Array 처럼 일차원이나 2차원 배열이 아니고 그냥
연속된 바이트값일 뿐입니다. 프로그램에서 인식하도록
하셔요.
서영택 wrote:
> 변수정의시
> var F: TextFile; 와
> var F: File; 의 차이점이 알고 싶습니다
>
> 여기 소스를 올립니다
> procedure TIS611F.save;
> var
> //...........선언부분
> FromF, ToF : file;
> BufLen,NumRead, NumWritten,full,NameInt,n,Sno : Integer;
> Buf: array[1..650] of Char;
> RecBuf: array[1..650] of Char;
> //...........
> begin
> While Not Vins0001.Eof Do
> Begin
> FormatBuf(RecBuf , SizeOf(RecBuf) ,
> 'A20%3s%8s%1s%6s%-10s%-40s%13s%-30s%-15s%5s%3s%1s%1s%511s'
> ,Length('A20%3s%8s%1s%6s%-10s%-40s%13s%-30s%-15s%5s%3s%1s%1s%511s')
> ,[A[1],a[2],a[3],a[4],a[5],a[6],CharDelete(a[7],'-'),a[8]
> ,a[11],a[12],a[13],a[14],' ',' ']);
>
> AssignFile(ToF,Config.ApplPath + 'backup' + FName);
> Rewrite(ToF, 1);
> BlockWrite(ToF, recBuf, SizeOf(RecBuf), NumWritten);
>
> Vins0001.next;
> End;
> CloseFile(Tof);
>
> AssignFile(ToF, Copy(Path.Text,1,2) + FName);
> ReWrite(Tof,1);
> Repeat
> BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
> BlockWrite(ToF, Buf, NumRead, NumWritten);
> until (NumRead = 0) or (NumWritten <> NumRead);
> CloseFile(FromF);
> CloseFile(Tof);
> end;
>
> 결과파일을 보면은 650바이트씩은 가져오는데 계속이어서 자료가 생성이됩니다
> 1...........끝까지
>
> 제가 원하는 자료형태는
> 1............650 - 1번째 레코드
> 1............650 - 2번째 레코드
> ....
> 이런식으로 만들고 싶습니다.
>