var
F : TextFile;
Count : Integer;
read_line : String;
begin
AssignFile(F, filename);
reset(F);
Count := 0;
While not Eof(F) do begin
Readln(F, read_line);
Inc(Count);
end;
CloseFile(ConvertF);
end;
이렇게 해서 Count를 하면 되겠네요..
그럼 즐프하세요....^^
Merry Christmas!
var
F : TextFile;
Count : Integer;
read_line : String;
begin
AssignFile(F, filename);
reset(F);
Count := 0;
While not Eof(F) do begin
Readln(F, read_line);
Inc(Count);
end;
CloseFile(ConvertF);
end;
이렇게 해서 Count를 하면 되겠네요..
그럼 즐프하세요....^^
Merry Christmas!