直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写？[2条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

·如何实现“函数”的wait操作functesta() 在执行过程中要从 functestb 中得到一个数组，只有得到的值不为空，就可继续执行，否则一直在 »显示摘要«

摘要：如何实现“函数”的wait操作？functesta() 在执行过程中要从 functestb 中得到一个数组，只有得到的值不为空，就可继续执行，否则一直在等 functestb 返回一个不为空的数组，如何实现？如： function testa() { ..... var value = testb(); .... } function testb() { var value = ......

·( winform ) 如何删除应用程序本身所在目录下的所有txt文件 »显示摘要«

摘要：如何删除应用程序本身所在目录下的所有txt文件? copy的程序部队啊 isolatedstoragefile isofile = isolatedstoragefile.getstore( isolatedstoragescope.user | isolatedstoragescope.assembly | isolatedstoragescope.domain, ......

处理Text文件问题直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写

直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写？

NO.1 作者： windy2000

用TSTRINGLIST实例变量读入TXT文件

stringlist1.loadfromfile(t.txt);
stringlist1.delete(i); //删除指定行
stringlist1.savetofile(t.txt);

NO.2 作者： xiaotao2004

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
i:Integer;
List: TStringList;
begin
List := TStringList.Create;
List.LoadFromFile(test.txt);
for i := 0 to list.count-1 do
begin
list.Delete(0);
end;
list.SaveToFile(test1.txt);
List.Free;
end;

·一个多线程的写法 »显示摘要«

摘要：主线程在创建若干子线程的地方（并启动），需要等待子线程的执行结果例程如下：应该怎么写，让主线程suspend 等待所有子线程terminate？由于设置了freeonterminate ＝ true，也可以是等待所有子线程free掉；我的写法是在启动子线程和取用返回值之间插入： repeat cancontinue := true; for i := 0 to count - ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：