[델파이] wrote:

> 안녕하세요 파일쓰는걸 알려구 하는데요?

>

> aaa.txt 파일의 내용이..

>

> 나는 [델파이] 이다..

> 나는 델파이 이다..

>

> 인데요?

>

> 맨 마지막준 밑에다가 문자열을 쓰는 방법을 알고 싶습니다.

>

> 알려주세요. TStringlist로 할수 없나?



직접 해보진 않고 올리는거라 에러가 날지도 모르겠네요..



하여튼 아래와 같은 식으로 하시면 될꺼예요..



var

ATextFile: System.Text;

TextLine: String;

strList: TStringList;

begin

System.Assign(ATextFile, 'aaa.txt');

Reset(ATextFile); // 파일 열기

strList := TStringList.Create;

try

while not Eof(ATextFile) do begin

ReadLn(ATextFile, TextLine); // 1행 읽기

strList.Add(TextLine);

end;

strList.SaveToFile('aaa.txt');

Finally

strList.Free;

System.Close(ATextFile);

end

end;