读入的内容写到Memo1_Test显示出来,测试用 ___delphi___

读入的内容写到Memo1_Test显示出来,测试用 EdTitle.Text:=pStr;
Memo1_Body.Lines.Add(pStr);

while not Eof(pMyFile) do
begin

Readln(pMyFile,pStr);
trim(pStr);
if pStr<>'' then
Memo1_Body.Lines.Add(pStr)
else
begin
Button2Click(Sender);
Timer1.Enabled:=true;


end;


　　　　　　　　　　　　　 查看评论 回复