푸린 wrote:

> 안녕하세요 전 무지무지 초조 랍니다.,, 지금 파일 열기,닫기,저장,생성 을 몰라서 1주째 고생만 하고 있습니다.

> 그리고 파일을 열었을때, 그내용을 한줄 씩 변수에 읽어 들이는 것도 좀 갈켜 주세요..

>

> 넘 답답해서 그럽니다. 잘 몰라서...(책에는 메모 컨트롤을 이용 하는 것만 나와있고--;)

> 꼭 부탁 드립니다.~~!







안녕하세요 바보감자입니다.

하하..

제가 아는거라 이러케 답변을 해드립니다.^^

좀 미숙하더라도 봐주시구..일단...

열기 닫기 저장 생성이라 ^^;;;

파일이 없으면 걍 생기는거구요.

있으면.. 추가할껀지 지우고 다시하는건지 요론식의 함수를 쓰는겁니다.

그리구 한줄씩 읽는거는 버퍼라는걸 성정해주어서

얼만큼을 읽은건지는 설정해주는거구요..

한줄 만큼 버퍼 할당하면 한줄 읽는거구요..

그럼 예문을....



var

Form1: TForm1;

bufsql:string;

sam_made:TextFile; //선언

cnt,Tcnt:integer;

sam1,sam2,sam3,sam4,sam5,sam6,sam7,sam8:string;

implementation



{$R *.DFM}



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

AssignFile(sam_made,'c:sam_test.sam'); //파일 생성.. 이죠..

Rewrite(sam_made);//리 라이트 한다는건 자료 지우고 다시 쓴다는거구요..



sam1 := '1';

sma2 := '2';

생략...



sam8 := '8';





Writeln(sam_made, sam1+sam2+sam3+sam4+sam5+sam6+sam7+sam8); //요건 쓴다는거..



CloseFILE(sam_made);//파일을 닫아야 저장. 됨.



end;



위의예문은 파일 생성해서 출력하는거구요..

파일 한줄씩 읽는건 다른분께...지금..제가 병원에.. 가따와서두 답변없으면 제가 해드리구요... 지가 수술 했거든요..남자되는...^^;;;

그럼 즐 코!!!







언제나 비를 기다리는 바보감자 올림.'

님의 답변 정말 감사 합니다^^

근데.. 파일의 내용을 한줄씩 읽어 들여야 하는뎅...

이것두 좀 갈켜 주세요... ^^ 답변 기다릴께요~

ReadLn() 을 사용하시면 됩니다. :)



-----------------

var str: string;

f: textfile;

....

readln(f,s);

....

-----------------

read()는 문자단위로...readln()는 줄단위로 읽어들입니다.

인수는 char 과 string로 사용법은 동일합니다.

쓰기두 마찬가지구엽!





그럼...휘리릭~



blue blood.



푸린 wrote:

> 님의 답변 정말 감사 합니다^^

> 근데.. 파일의 내용을 한줄씩 읽어 들여야 하는뎅...

> 이것두 좀 갈켜 주세요... ^^ 답변 기다릴께요~