델초보 wrote:

> Quickreport의 내용을 그대로 텍스트로 저장하고 싶습니다. 예를 들어

>

> ==============================

> 영어 국어 수학 평 균

> ==============================

> 90 90 90 90

>

> 이런걸 그대로 텍스트로 저장하는 방법을 아시는분 갈켜 주십시오

>

> 넘 급합니다. 죄송합니다. 넘 허접질문을 해서리

>

> 제 멜은 smsminsu@hanmail.net 입니다.





안녕 하세여 바보 감자 입니다 ^^

이걸 텍스트로 저장 하실려면....

..걍 소스 코드 보여드리면 도움이 안되는 부분이 있을테니까..

일단 소스 보면서 설명 드릴께여 ^^ 그냥 텍스트로 뽑을순 없을껍니다

언제나 말하지만 제가 하는 방법보다 분명히 더 쉬운 방법이 있습니다.

전 초짜이지만 감히 답변을 드리는것은 여기서 너무 많은것을 배웠기 때문에

저도 먼가를 하기 위해서 열띠미 답변을 드립니다 ^^ 이런..잡담이 길었네여..

^^

var

MyFile : TextFile;

begin

AssignFile(MyFile, 'c:babo.txt');

Rewrite(MyFile);

try

{ 파일작업을 수행한다}

finally

CloseFile(MyFile);

end;

CloseFile(MyFile);

end;



짜자... 으아..흉악하게..생겼당.. ㅡㅡ;;



자 분석 해봅시당..

closefile는 꼭 해주셔야 합니다 그래야 파일 생기구요.

rewrite 리라이트이넘은 파일을 초기화 해주는거죠 ^^



파일 작업을 수행한다 에 보시면...아시겠지마는...

WriteLn(myfile, edit1.text);

하면 찍힙니다. 에디트 1에 있는 내용이

에디트 1,2 를 찍고 싶으시면.

WriteLn(myfile, edit1.text + edit2.text);

이구여 이해 가시져.? ^^



^^ 그리구여.. 저렇게 간격두시는것은 ' ' 공백을 넣어 주셔두 되구여.

아니며는. format('%20s', [edit1.text]);요런넘을 주셔서

자리는 20 자리 오른쪽 정렬이 되죠.. 한마디로 20 자리 먹구 오른쪽에 글자는있고

' 오른쪽정렬'

이런식으로 자료가 들어가져 ^^

많은 도움 이 돼셨는지 멀겠네여. 조금 해보시면..아실꺼예여 아 왼쪽정렬은여

format('-%20s', [edit1.text]); 마이나스가 붙습네다

그럼 즐코 하세여...좋은 답변이

답변 감사합니다.

그런데 제가 질문한 것하고 답변이 약간 빗나간것 같아서 다시 질문 드립니다.

(에고..지송^^*)

제가 하고자 하는건 quickreport의 preview에 나타간 것을 통채로 텍스트 화일로 저장하고 싶어서 질문을 드린겁니다.

답변해 주시면 감사하겠습니다.