푸린 wrote:

> 안녕하세요.(초보 임돠-_-;)

> 궁금한게 있어서...

> 파일을 열어서 그 내용을 변수 안에 집어 넣어야 하는데...

> 방법을 모르겠네여..T.T;

>

> 그리고.. Readln 사용법 좀 갈켜 주세요...

> (예제문 부탁...)

> 파일 저장 하기는 아는데... 읽기가T.T;

>

> 답변 부탁 드립니다.



제가 델세상에 올린 것입니다.. 약간 응용해 보면 도움이 될 겁니다..



기본적으로 텍스트파일을 생성, 읽기, 쓰기에 내용입니다...

간단한 내용이므로 더 이상의 설명은 생략합니다..



//Creating a text file

procedure TForm1.Button1Click(Sender: TObject);

var

MyTextFile : TextFile;

S : String[15];

i : integer;

begin

AssignFile(MyTextFile, 'MyTextFile.txt');

Rewrite(MyTextFile);

try

for i := 1 to 5 do

begin

S := 'This is line #';

Writeln(MyTextFile, S, i);

end;

finally

CloseFile(MyTextFile);

end;

end;



//To open for read-only access a text file

procedure TForm1.Button2Click(Sender: TObject);

var

MyTextFile : TextFile;

S : String;

j : integer;

begin

AssignFile(MyTextFile, 'MyTextFile.txt');

Reset(MyTextFile); // opens typed and untyped file with read-write access

try

while not Eof(MyTextFile) do

begin

Readln(MyTextFile, S);

Memo1.Lines.Add(S);

end;

finally

CloseFile(MyTextFile);

end;

end;



//To append to an existing file

procedure TForm1.Button3Click(Sender: TObject);

var

MyTextFile : TextFile;

S : String;

i : integer;

begin

AssignFile(MyTextFile, 'MyTextFile.txt');

Append(MyTextFile);

try

for i := 6 to 10 do

begin

S := 'This is line #';

Writeln(MyTextFile, S, i);

end;

finally

CloseFile(MyTextFile);

end;

end;