如上.
解决方案 »
- [李维]Borland畢業之旅,DevCo的熱身活動
- 与报表相关的问题!
- 我的软件打包后,在一个干净的系统里安装,出现provider cannot be found的错误
- sunnf接分,原因见里面url
- 一个关于fontDialog的问题.请教各位了......
- 表单上有好些个ADO控件,在关闭此表单时是否需要手动关闭这些控件呢?
- 元旦快乐!大家有好的兆头!接分啦
- Tab控制焦点移动问题:从Edit1移动到Edit2,在Edit1中怎么检测按键是否是Tab,如果是Tab,则Edit2.SetFocus;
- FastReport的问题??
- 高手快来拿分!!! 关于主从表更新问题
- CSDN为什么这么慢??
- 请不要在csdn里面讨论关于外挂的任何问题!!
Memo1.Lines.LoadFromFile('c:\tt.txt');
Showmessage(InttoStr(Memo1.Lines.Count))
不必用memo如果你要计算换行符个数的话
可以用Tmemorystream
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;谢谢指教!
最好使用Tstringlist控件
begin
AssignFile(F,Strings[I]);
Reset(F);
Readln (F,FirstLine);
DBMemo1.Lines.Clear //加这句试试
DBMemo1.Lines.Append(FirstLine);//问题可能在这,在你append的时候原来的dbmemo里有你已经loadfromfile的内容了
CloseFile(F);
end;