要处理的文件总行数 ___delphi___

要处理的文件总行数 iCount:=Memo1_Test.Lines.Count;

//
while g_iLine<=iCount do
begin //while 11111

//还有数据要处理
pStr:=Memo1_Test.Lines[g_iLine];

pTmpStr:=TrimString(pStr);
//trim(pStr); 这个有bug,不能完全去掉空格

//如果是空行，执行下一行
if ( length(pTmpStr)=0) then
begin
g_iLine:=g_iLine+1;
continue;
end;



　　　　　　　　　　　　　 查看评论 回复