急需各位高手帮忙，请问....

Question

try this:
  if FindFirst(APath + '*.pas', faArchive, Sr) = 0 then
  try
    repeat
      AName := APath + Sr.Name;
      label1.Caption := AName;
      Application.ProcessMessages;
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;

Answer 1

因为repeat...until先执行循环体，后执行循环条件。while...do正好相反。
FindFirst后应该先对sr.Name进行一下处理。