我需要获得一个textfile文件的行数，以实现滚动条，如何处理

Question

如题。

Answer 1

var
  f: TextFile;
  i: Integer;
begin
  AssignFile(f, 'd:\test.txt');
  Reset(f);
  i := 0;
  while not Eof(f) do begin
    Readln(f);
    i := i + 1;
  end;
  CloseFile(f);
  ShowMessage(IntToStr(i));
end;或者var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('d:\test.txt');
  ShowMessage(IntToStr(sl.Count));
  sl.Free;
end;

Answer 2

//获取textfile文件的行数
procedure TForm1.Button1Click(Sender: TObject);
var
  MyString:TStringList;
  i:integer;
begin
  MyString := TStringList.Create;
  MyString.LoadFromFile('aa.txt');
  i:=MyString.Count;
  showmessage(inttostr(i));
  MyString.Free;
end;

Answer 3

如果只是TextFile，那么可以使用TStringList类来读取文件，然后根据Count属性就可以确定行数了。

Answer 4

就用 sysu(死树)和 niat97222(Freeman)的方法就行了楼主可以结贴了
给我一点分吧 哈哈哈