请大家看看下面代码为什么错误？[Error] Unit1.pas(40): Missing operator or semicolon(10)

OpenDialog1: TOpenDialog; Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); var f1:textfile;//¶¨ÒåÎļþ±äÁ¿ a:string;begin if opendialog1.Execute then //Èç¹û¶Ô»°¿ò³É¹¦´ò¿ª memo1.Clear ; assignfile(f1,opendialog1.FileName );//°ÑÎļþÃû°ó¶¨µ½Îļþ±äÁ¿ÉÏ reset(f1); while not eof(f1) do //Èç¹ûûÓжÁµ½Îļþĩ⣬¼ÌÐø¶ÁÈ¡ begin application.ProcessMessages //·ÀÖ¹³ÌÐò¼ÙËÀ ReadLn(f1,a); //ReadLn这个地方报错[Error] Unit1.pas(40): Missing operator or semicolon memo1.Lines.Add(a); end; closefile(f1);//¹Ø±ÕÎļþ end;

请问为什么会出错？

ReadLn(f1,a); //ReadLn这个地方报错[Error] Unit1.pas(40): Missing operator or semicolon看了半天也没有看出来错在哪?郁闷至及.....

LZ是新手吧？看你发的帖子都只出10分，我建议你不要来DFW，自己研究、学习即可。

application.ProcessMessages 没有分号结束

从哪里复制来的代码有双字节的空格(备注之前)

if opendialog1.Execute then 后面没有跟 begin end 这个也是错误

新手.从网上ＤＯＷＮ下来的.学习用.准备写个关于文本文件的东西.

多人接受答案了。