R rjiajia Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-19 #4 assignfile(f,filename); reset(f);i:=0;ss:='';//打开文件初始化变量 repeat ss:=readln(f,ss); i:=i+1; until (i=n) or (eof(f)); if i<>n then ss:='';//没有第n行 closefile(f); //ss就是你要的第n行数据 办法虽笨，但可以满足你的要求。。。呵
assignfile(f,filename); reset(f);i:=0;ss:='';//打开文件初始化变量 repeat ss:=readln(f,ss); i:=i+1; until (i=n) or (eof(f)); if i<>n then ss:='';//没有第n行 closefile(f); //ss就是你要的第n行数据 办法虽笨，但可以满足你的要求。。。呵
H HANFI Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-19 #5 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1334128
憔 憔悴 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-19 #6 用这个吧 var s:TstringList; i:integer; fileName:string; begin FileName:='d:/www.txt'; i:=5;//第5行 s:=TstringList.Create; try s.LoadFromFile(FileName);{文件的路径全名} if s.Count>=i then//如果文件有5行以上的话 showmessage(s.strings[i-1]);//这个就是你要的东西 finally s.Free; end; end;
用这个吧 var s:TstringList; i:integer; fileName:string; begin FileName:='d:/www.txt'; i:=5;//第5行 s:=TstringList.Create; try s.LoadFromFile(FileName);{文件的路径全名} if s.Count>=i then//如果文件有5行以上的话 showmessage(s.strings[i-1]);//这个就是你要的东西 finally s.Free; end; end;
Z zqs10597249 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-19 #7 memo1.Clear;//当然用TStringList也可以 PnlPrint.Refresh; try memo1.Lines.LoadFromFile(edit1.text); except messagedlg('载入文件出错！',mtInformation ,[mbok],0); exit; end;
memo1.Clear;//当然用TStringList也可以 PnlPrint.Refresh; try memo1.Lines.LoadFromFile(edit1.text); except messagedlg('载入文件出错！',mtInformation ,[mbok],0); exit; end;
R rjiajia Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-19 #8 我以前用TstringList.loadfromfile时会有这样的问题 在一台32M内存上运行一个不大的文件时(>3000行)就会出问题，但在128M的机上运行 一切正常，不知何故，也不知如何解决？
我以前用TstringList.loadfromfile时会有这样的问题 在一台32M内存上运行一个不大的文件时(>3000行)就会出问题，但在128M的机上运行 一切正常，不知何故，也不知如何解决？
