如上.

解决方案 »

  1.   

    Memo1.Lines.Clear ;
      Memo1.Lines.LoadFromFile('c:\tt.txt');
      Showmessage(InttoStr(Memo1.Lines.Count))
      

  2.   

    用Tstringlist即可
    不必用memo如果你要计算换行符个数的话
    可以用Tmemorystream
      

  3.   

    谢谢各位,但抱歉我才学DELPHI两天,我现在只有一个文件名,看了各位还是不知怎么做.有没有一个什么函数像是Getfileline('strfilename')之类的函数啊?
      

  4.   

    procedure TForm1.OpenDialog1CanClose(Sender: TObject;
      var CanClose: Boolean);
     var I:integer;
         X:integer;
         Temp:integer;
         F:TextFile;
         FirstLine:string;Begin         //    
           //为什么在最后有很多(几十行)的在原本文件是处于第一行的数据? 
           //
         
           DBMemo1.Lines.Clear ;
           with OpenDialog1.Files do
             for  I:=0 to Count-1 do
                begin
                table1.Edit;
                DBMemo1.Lines.LoadFromFile(Strings[I]);
                Temp:=DBMemo1.Lines.Count;
                  for   X:=1 to Temp-2 do
                     begin
                     AssignFile(F,Strings[I]);
                     Reset(F);
                     Readln (F,FirstLine);
                     DBMemo1.Lines.Append(FirstLine);
                     CloseFile(F);
                     end;            end;end;谢谢指教!
      

  5.   

    Memo有一个弱点,读取文本,精确的我不知道.多余100KMemo肯定报错希望大家注意使用Memo控件.
    最好使用Tstringlist控件
      

  6.   

    for   X:=1 to Temp-2 do
                     begin
                     AssignFile(F,Strings[I]);
                     Reset(F);
                     Readln (F,FirstLine);
                     DBMemo1.Lines.Clear //加这句试试 
                     DBMemo1.Lines.Append(FirstLine);//问题可能在这,在你append的时候原来的dbmemo里有你已经loadfromfile的内容了
                     CloseFile(F);
                     end;