안녕하세요.
이진파일에선 record헝 단위로 seek로 위치가 이동이 가능하던데
텍스트 한줄씩 입/출력 readln, writeln으로 해서 하는데
읽을때 이진파일에서 처럼 seek를 써서 할려고 했더니 error가
나더군요.
텍스트을 한줄씩 입/출력할때 특정 줄에 내용으로 이동할려면
어떻게 하는건지 궁금합니다.
제가 글 주변이 없어서 두서가 없네요.
답변 부탁드립니다.
^^;
procedure Tform1.textfile_read(curpos: Integer);
var
tfile: TextFile;
tstring: String;
begin
AssignFile(tfile, 'temp.txt');
Reset(tfile);
Seek(tfile, curpos); //이부분에서 에러?
Readln(tfile, tstring);
CloseFile(CatalogFile);
end;