请问关于opendialog

Question

代码如下：
if opendialog1.Execute then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
    label3.Caption :='0';
    progressbar1.Min:=0;
    progressbar1.Max:=memo1.Lines.Count;
    progressbar1.Position:=0;
  end;
请问如何设置呢？

Answer 1

回复人： wyj1974() (  ) 信誉：100  2002-2-8 11:34:56  得分:0  
  
代码如下：
if opendialog1.Execute then
begin
if opendialog1.execute then
begin
memo1.Lines.LoadFromFile(Opendialog1.FileName);
label3.Caption :='0';
progressbar1.Min:=0;
progressbar1.Max:=memo1.Lines.Count;
progressbar1.Position:=0;
end;
end; 

Answer 2

所有程序都加上:
try
...
finally
...
end;
就可以了.