본문 바로가기

Delphi/꿀팁

Delphi/꿀팁 [mORMot] MongoDB의 Aggregate 사용하기 var Coll: TMongoCollection; sTemp: string;begin Coll := DB.CollectionOrCreate['Collection']; sTemp := '{$match:{..}, $group:{..}, $..}'; Showmessage(Coll.AggregateJSONFromJson(sTemp));end;
Delphi/꿀팁 파일명으로 프로세스 종료하기 uses TlHelp32; function TaskKill(sFileName: string): Boolean;const PROCESS_TERMINATE = $0001;var bLoop: Boolean; sTmpFileName: string; SnapshotHandle: THandle; ProcessEntry32: TProcessEntry32;begin Result := False; SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); ProcessEntry32.dwSize := SizeOf(ProcessEntry32); bLoop := Process32First(SnapshotHandle, ProcessEntry32); while bLoo..
Delphi/꿀팁 TcxGrid에서 다중 선택된 Row값들을 가져오기 var I : Integer; begin with .Controller do begin for I := 0 to SelectedRowCount - 1 do begin SelectedRows[I].Values[.Index]; end; end;

티스토리툴바