Q&A
- Text File에서 칸을 내려 쓰고싶은데...
{procedure Save_File;
var
R_File : File;
begin
Assignfile(R_File,F_Name);
if Fileexists(F_Name) then
Reset(R_File,1)
else
Rewrite(R_File,1);
Seek(R_File,FileSize(R_File));
BlockWrite(R_File,Buf,R_Data_Size);
Closefile(R_File);
end;
요문장에서 BlockWrite(R_File,Buf,R_Data_Size); 파일에 쓰는데요..
연속된 문장이 아니라
예) 첫째문장입니다.둘째문장입니다.세째문장입니다.
위의 내용이 아닌
첫째문장입니다.
둘째문장입니다.
세째문장입니다.
이렇게 구현하고 싶은데...
감사합니다.
var
R_File : File;
begin
Assignfile(R_File,F_Name);
if Fileexists(F_Name) then
Reset(R_File,1)
else
Rewrite(R_File,1);
Seek(R_File,FileSize(R_File));
BlockWrite(R_File,Buf,R_Data_Size);
Closefile(R_File);
end;
요문장에서 BlockWrite(R_File,Buf,R_Data_Size); 파일에 쓰는데요..
연속된 문장이 아니라
예) 첫째문장입니다.둘째문장입니다.세째문장입니다.
위의 내용이 아닌
첫째문장입니다.
둘째문장입니다.
세째문장입니다.
이렇게 구현하고 싶은데...
감사합니다.
2
COMMENTS
-
-
감사합니다..
이상 아래와 같이 구현하니 되네요..
procedure Save_File;
var
T : array[1..2] of Char;
R_File : File;
begin
AssignFile(R_File, F_Name);
if Fileexists(F_Name) then
Reset(R_File,1)
else
Rewrite(R_File,1);
Seek(R_File,FileSize(R_File));
T[1] := Chr(R_Data_Size);
T[2] := Chr(R_Data_Size);
BlockWrite(R_File,T,2);
BlockWrite(R_File,Buf, R_Data_Size);
T[1] := #13;
T[2] := #10;
BlockWrite(R_File,T,2);
Closefile(R_File);
end;
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> 문장사이에 줄바꿈 기호를 넣어주세요...
>
> var
> R_File : File;
> Buf: string;
> begin
> Assignfile(R_File,F_Name);
> if Fileexists(F_Name) then
> Reset(R_File,1)
> else
> Rewrite(R_File,1);
> Seek(R_File,FileSize(R_File));
> Buf := '첫째문장입니다.' + #13#10 +
> '둘째문장입니다.' + #13#10 +
> '세째문장입니다.';
>
> BlockWrite(R_File,Buf[0], Length(Buf));
> Closefile(R_File);
> end;
>
> ^^ 항상 즐코하세요...
>
> 처음 wrote:
> > {procedure Save_File;
> > var
> > R_File : File;
> > begin
> > Assignfile(R_File,F_Name);
> > if Fileexists(F_Name) then
> > Reset(R_File,1)
> > else
> > Rewrite(R_File,1);
> > Seek(R_File,FileSize(R_File));
> > BlockWrite(R_File,Buf,R_Data_Size);
> > Closefile(R_File);
> > end;
> >
> > 요문장에서 BlockWrite(R_File,Buf,R_Data_Size); 파일에 쓰는데요..
> > 연속된 문장이 아니라
> >
> > 예) 첫째문장입니다.둘째문장입니다.세째문장입니다.
> >
> > 위의 내용이 아닌
> >
> > 첫째문장입니다.
> > 둘째문장입니다.
> > 세째문장입니다.
> >
> > 이렇게 구현하고 싶은데...
> >
> > 감사합니다.
> >
> >
> >
(NOTICE) You must be logged in to comment on this post.
-
- 이창훈
- •
- 2001.06.19 18:40
- 1 COMMENTS
- /
- 0 LIKES
-
지락이•2001.06.19 20:27'은 문자열을 넣어주기위한것이고, ''은 질의어 내에서 문자라는것을 인식해주기 위함입니다. '''+변수+'...
-
- 처음
- •
- 2001.06.19 18:31
- 2 COMMENTS
- /
- 0 LIKES
{procedure Save_File; var R_File : File; begin Assignfile(R_File,F_Name); if Fileexists(F_Name) then Reset(R_File,1) else Rewrite(R_File,1); Seek(R_File,FileSize(R_File)); BlockWrite(R_File,Buf,R_Data_Size); Closefile(R_F...-
최용일•2001.06.19 19:15안녕하세요. 최용일입니다. 문장사이에 줄바꿈 기호를 넣어주세요... var R_File : File; ...
-
처음•2001.06.19 19:28감사합니다.. 이상 아래와 같이 구현하니 되네요.. procedure Save_File; var ...
-
- 델초보
- •
- 2001.06.19 18:17
- 1 COMMENTS
- /
- 0 LIKES
-
...•2001.06.19 18:22버튼은 퀵레포트에 올릴수 없는걸루 알고있는데요.. 꼭 레포트로 출력후 레포트에서 버튼을 눌려서 엑셀로...
-
- 아침햇살
- •
- 2001.06.19 17:43
- 1 COMMENTS
- /
- 0 LIKES
-
지락이•2001.06.19 20:23QRDBText에서의 Mask는 숫자만 적용이 됩니다. 날짜형식은 처럼 할경우에는 19990101->1999-01-01로 하고...
-
- 범돌이
- 2001.06.19 17:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- •
- 2001.06.19 10:00
- 1 COMMENTS
- /
- 0 LIKES
-
hanoora•2001.06.19 11:17델초 wrote: > StringGrid의 cell을 선택 삭제 하고 싶은데 어떻게 해야 하는지 잘모르 겠네요 > > 어...
-
- 김현아
- •
- 2001.06.19 09:35
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.06.19 17:35무슨 말인지 모르겠네요 브레인스토밍은 델파이나 프로그래밍등과는 전혀 관계없는 것입니다. 한마디로 ...
-
- 문상연
- •
- 2001.06.19 07:07
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.19 19:17안녕하세요. 최용일입니다. HKEY_CLASSES_ROOT아래에 확장자명으로 키를 하나 등록하시고 그 키의 기본...
-
문상연•2001.06.19 21:01최용일 wrote: > 안녕하세요. 최용일입니다. > > HKEY_CLASSES_ROOT아래에 확장자명으로 키를 하나 등...
-
- 초보델
- 2001.06.19 06:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 유유
- •
- 2001.06.19 06:26
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.06.19 18:20DataBase를 사용하셨다면 사용하신 DataBase의 Path(Alias)를 설정해 주시면 될것같은데요... 유유 wro...
-
- 초오보~
- •
- 2001.06.19 05:15
- 1 COMMENTS
- /
- 0 LIKES
-
지락이•2001.06.19 20:41Calendar컴포넌트를 상속받아서 DrawCell 이벤트를 만드신후에 DrawCell안에 일요일일때만 빨강색으로 나...
-
- vilot
- •
- 2001.06.19 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.19 05:180222222 022211111 위와 같다면 당연히 아래 값이 크게 나오죠.. 문자열 길이를 맞춰서 비교하세요....
-
지락이•2001.06.19 20:53델파이의 BDE도움말에 보시면 나오는 함수인데 원하는 필드타입으로 변경할수 있습니다. CAST를 이용하면...
-
- 훈이
- •
- 2001.06.19 04:08
- 1 COMMENTS
- /
- 0 LIKES
-
참이슬•2001.06.19 06:29http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?db=component&mode=download&num=555&file=imgfli...
-
- 박현서
- 2001.06.19 03:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이초보..
- 2001.06.19 03:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 범돌이
- 2001.06.19 03:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 초자
- 2001.06.19 03:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 최영환
- •
- 2001.06.19 03:01
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.06.19 18:24위치를 찾으시는것은 Table은 FindNearest Query는 Locate를 사용하시는 방법이 있답니다. 최영환 wr...
-
- 김델초
- 2001.06.19 02:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 장현수
- •
- 2001.06.19 02:56
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.19 05:34메세지만 봐서는 프로젝트 옵션의 Unit Output file Directory 가 CD-ROM으로 되어 있어서 그런거 같네요....
문장사이에 줄바꿈 기호를 넣어주세요...
var
R_File : File;
Buf: string;
begin
Assignfile(R_File,F_Name);
if Fileexists(F_Name) then
Reset(R_File,1)
else
Rewrite(R_File,1);
Seek(R_File,FileSize(R_File));
Buf := '첫째문장입니다.' + #13#10 +
'둘째문장입니다.' + #13#10 +
'세째문장입니다.';
BlockWrite(R_File,Buf[0], Length(Buf));
Closefile(R_File);
end;
^^ 항상 즐코하세요...
처음 wrote:
> {procedure Save_File;
> var
> R_File : File;
> begin
> Assignfile(R_File,F_Name);
> if Fileexists(F_Name) then
> Reset(R_File,1)
> else
> Rewrite(R_File,1);
> Seek(R_File,FileSize(R_File));
> BlockWrite(R_File,Buf,R_Data_Size);
> Closefile(R_File);
> end;
>
> 요문장에서 BlockWrite(R_File,Buf,R_Data_Size); 파일에 쓰는데요..
> 연속된 문장이 아니라
>
> 예) 첫째문장입니다.둘째문장입니다.세째문장입니다.
>
> 위의 내용이 아닌
>
> 첫째문장입니다.
> 둘째문장입니다.
> 세째문장입니다.
>
> 이렇게 구현하고 싶은데...
>
> 감사합니다.
>
>
>