Question

delphi xe2 运行程序报错，高手帮我看一下哈

uses System.ioutils;

procedure TForm1.butGetFilesClick(Sender: TObject);
var
filesarray: tstringdynarray;
icount: integer;
begin
filesarray := tdirectory.getfilesystementries(tdirectory.GetCurrentDirectory +
'/../..');
for icount := Low(filesarray) to High(filesarray) do
begin(
ListBox1.Items.Add(filesarray[icount]);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Caption := 'hello';
Edit1.Text := tdirectory.GetCurrentDirectory;
end;
end.
报错：
[DCC Error] Unit1.pas(42): E2029 ')' expected but ';' found
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
42行：ListBox1.Items.Add(filesarray[icount]);

Answer 1

你看一下语句：
begin(
ListBox

注意，begin后面多了半个括号 (