안녕하세요. 최용일입니다.



TStringList를 이용하시면 간단히 구할 수 있습니다.



var

StrList: TStringList;

LineCount: Integer;

begin

StrList := TStringList.Create;

StrList.LoadFromFile('c:test.txt'); // 라인수를 알고 싶은 파일 이름

LineCount := StrList.Count; // LineCount = 텍스트파일의 라인수

StrList.Free;

end;



^^ 항상 즐코하세요.



하나로 wrote:

> 안녕하세요.

>

> var

> FH: TextFile;

> ss: string;

> begin

> AssignFile(FH, 'c:test.txt');

> Reset(FH); <---- 파일 Open

> ReadLn(FH, ss);

> ... 생략 ....

> CloseFile(FH);

> end;

>

> 이처럼 test.txt라는 파일을 Open해서 사용하는 중인데요.

> test.Txt라는 파일의 라인수만을 알고 싶거든요, 물론 Eof을 이용해서 마지막까지

> 읽으면 알수 있지만 Eof까지 읽지 않고 알고 싶거든요..

>

>