목록Delphi (10)

개발자의 사투

Delphi JSONObject 값 가져오기

var tempObj : TJSONObject; begin tempObj := TJSONObject.Create; tempObj.AddPair('A', '1') tempObj.AddPair('B', '2') tempObj.AddPair('C', '3') showmessage(tempObj.Get('A').JsonValue.Value); // '1' end; array 찾아올때 ///(TJSONArray.Items[i] as TJSONObject).Get('A').JsonValue.Value;
컴방/델파이 2020. 2. 18. 16:07
delphi DrawGrid 이미지 삽입하기

TImageList 만들고 이미지등록. 그리드 DrawCell이벤트 선언 procedure aaa.grdItemsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var aCanvas: TCanvas; bitmap: TBitmap; begin aCanvas := (Sender as TUDrawGrid).Canvas; aCanvas.FillRect(Rect); try bitmap := TBitmap.Create; imgList.GetBitmap(0, bitmap); aCanvas.Draw(Rect.Left + (grdItems.ColWidths[ACol] div 2) - (bitmap.Width div 2)..
컴방/델파이 2020. 2. 7. 08:51
delphi TList

var aTList: TList; aTList:= TList.Create; aTList.Add(Class);
컴방/델파이 2020. 2. 7. 08:47
delphi E1026 File not Found 델파이 E1026

Tool -> Option -> Library -> Library path 에 다음항목 추가. $(BDSLIB)\$(Platform)\release $(BDSUSERDIR)\Imports $(BDS)\Imports $(BDSCOMMONDIR)\Dcp $(BDS)\include
컴방/델파이 2020. 2. 3. 11:05
델파이 Grid Scroll 자연스럽게 하기

델파이 그리드 스크롤 설정. procedure Form.gridMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin if grid.RowCount - grid.TopRow > grid.VisibleRowCount then grid.TopRow := grid.TopRow + 1; end; procedure Form.gridMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin if grid.TopRow > 0 then grid.TopRow := grid.TopRow -..
컴방/델파이 2020. 1. 30. 11:10
델파이 BorderStyle속성 string으로 변경하기

var ss : string; ss := GetEnumName(TypeInfo(TFormBorderStyle), Ord(Form.BorderStyle));
컴방/델파이 2020. 1. 23. 10:23
델파이 폼 리사이즈 delphi Form Resize

resize저장용... 부모쪽 폼 사이즈가 바뀔때만 자식폼 사이즈도 변경해줄려고 만듬.. procedure aaa.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin if (TPanel(FSaveOwner).Height Self.Height) or (TPanel(FSaveOwner).Width Self.Width) then Resize := True else Resize := False; end; procedure aaa.FormResize(Sender: TObject); begin Self.Height := TPanel(FSaveOwner).Height; Self.Width := TPane..
컴방/델파이 2020. 1. 21. 13:33
델파이 JSON 파일 읽기(delphi Json File Read)

uses System.IOUtils; var aJsonObject: TJTJSONObject; aJsonArray : TJSONArray; data: TBytes; tempString: String; begin aJsonObject:= nil; aJsonArray := nil; data := TEncoding.ASCII.GetBytes(TFile.ReadAllText('FILE_PATH' + 'sampleTest.json')); tempString := TEncoding.UTF8.GetString(data); apaging := TJSONObject.ParseJSONValue(tempString) as TJSONObject; aList := apaging.GetValue('list') as TJSONAr..
컴방/델파이 2020. 1. 16. 15:29
델파이 클릭, 더블클릭 구분

지적 환영합니다. 전역 변수 FTempBool : Boolean; procedure TFrm.grdClick(Sender: TObject); begin TThread.CreateAnonymousThread(procedure begin Sleep(300); if FTempBool then begin 구현 {*****선택사항 TThread.Synchronize(TThread.CurrentThread, procedure begin SelectClickEvent(); end); *****선택사항} end; end).Start; end; procedure TFrm.grdDblClick(Sender: TObject); begin FTempBool := False; end; procedure TFrm.grdClick..
컴방/델파이 2020. 1. 15. 13:11
델파이 객체 자동 Free

shared_ptr 개요(한글) : http://egloos.zum.com/sweeper/v/2826435 델파이 shared_ptr(git) https://github.com/arafangion/delphisharedpointer 델파이 smartPointer https://en.delphipraxis.net/topic/402-smart-pointers-generics-vrs-non-generic-implementastion/ https://github.com/marcocantu/DelphiSessions/blob/master/DelphiLanguageCodeRage2018/02_SmartPointers/SmartPointerClass.pas =========================== 추가 참고..
컴방/델파이 2020. 1. 14. 15:51
Prev 1 Next