空格后面的作为标题 ___delphi___

begin g_iLine:=g_iLine+1;
continue;
end;

Memo1_Body.Clear;

//空格后面的作为标题
EdTitle.Text:=pStr;
//也作为内容
Memo1_Body.Lines.Add(pStr);

g_iLine:=g_iLine + 1 ; //指向下一行
while g_iLine <=iCount do
begin //while 222222
pStr:=Memo1_Test.Lines[g_iLine];

pTmpStr:=TrimString(pStr);
//trim(pStr); trim有bug

if length(pTmpStr)>=1 then
begin

Memo1_Body.Lines.Add(pStr+'
');

end
else
begin
Button2Click(Sender);
exit;

end;


g_iLine:=g_iLine + 1 ; //指向下一行
next;
end; //while 222222


next;
end; //while 11111


　　　　　　　　　　　　　 查看评论 回复