델파이 컴파일러를 사용 합니다
파스칼 언어.
폴더내의 모든 함수를 가져옵니다.
짧은 코드이며, 간단히 수정하여 다른 형태의 함수로 사용이 편리합니다.
ListBox1.Items <-- TString

procedure TMainForm.GetFileListAll(path:PWideChar;ListAdd:TStrings);
var
SrhRec:TSearchRec;
begin
  FindFirst(IncludeTrailingPathDelimiter(path)+AllFilter,faAnyFile,SrhRec);
  repeat
     if(SrhRec.Name<>'.')and(SrhRec.Name<>'..')then
     begin
       if((SrhRec.Attr and faDirectory)>0)then
       begin
         GetFileListAll(PWideChar(IncludeTrailingPathDelimiter(path)+SrhRec.Name),ListAdd);
       end
       else
       begin
         ListAdd.Add(SrhRec.Name);
       end;
     end;
   until(FindNext(SrhRec)<>0);
  FindClose(SrhRec);
end;

콜백_JSON

델파이 샘플소스

웹페이지
임포트
이메일

달력