본문 바로가기

전체 글

Delphi/꿀팁 [mORMot] MongoDB의 Document에서 Array 가져오기 mORMot의 SynCommons를 추가합니다. uses SynCommons;MongoDB의 Document를 가져옵니다.procedure ConvertVariantToArray; var Coll : TMongoCollection; Docs : TVariantDynArray; JsonArr : string; DocArr : TVariantDynArray;begin Coll := DB.CollectionOrCreate['myCollection']; Coll.FindDocs(Docs, null); JsonArr := Docs[I].Array; //Array를 Json 형식으로 가져옵니다. DocArr := JSONToVariantDynArray(JsonArr ); //Json을 다시 Array로 변경 for..
Delphi/꿀팁 JSONObject에 Array 추가하기 uses .., JSON; var jsonObj: TJSONObject; jsonArrObj: TJSONObject; jsonArr: TJSONArray; begin jsonObj := TJSONObject.Create; jsonArr := TJSONArray.Create; for I := 0 to 10 do begin jsonArrObj := TJSONObject.Create; jsonArrObj.AddPair('Count', TJSONNumber.Create(I)); jsonArr.AddElement(jsonArrObj); end; jsonObj.AddPair('Array', jsonArr); end;
Delphi/간단하게 간단하게 파일 검색하기 SysUtils를 추가합니다.uses SysUtils; 파일 리스트 불러오기var TempList : TSearchRec; sPath : string;begin sPath := '불러올 폴더 경로'; if FindFirst(sPath + '\찾을 파일명', faAnyFile, TempList) = 0 then //ex) 찾을 파일명 // * -> 모든 파일 // *.exe -> 확장자가 exe인 것만 찾기 // TeakHyun.* -> 파일명이 TeakHyun인 것 다 찾기 등.. //faAnyFile, faDirectory 등.. begin repeat if not (TempList.Name = '.') and not (TempList.Name = '..') then //상위루트는 제외 begin Sh..

티스토리툴바