把要处理的文件装入到memo1_test中，启动处理定时器timer1 ___de

把要处理的文件装入到memo1_test中，启动处理定时器timer1 procedure TForm1.Button4Click(Sender: TObject);
var
pMyFile:textfile;
pStr : string;

begin

Memo1_test.Clear;

if OpenDialog1.Execute then
begin
Assignfile(pMyFile,OpenDialog1.FileName);
Reset(pMyFile);

//读文章
while not Eof(pMyFile) do
begin
Readln(pMyFile,pStr);
//读入的内容写到Memo1_Test显示出来,测试用

Memo1_test.Lines.Add(pStr);

next;
end;
CloseFile(pMyFile);

bStartInput:=true;
//输入内容网页，网页的输入内容使用textarea控件
WebBrowser1.Navigate('http://www.dianzixuexi.com/member/article_add.php');

//启动定时器,开始自动输入文章
// Timer1.Enabled:=True;


end;

end;


　　　　　　　　　　　　　 查看评论 回复