델파이 Delphi/꿀팁 SAP RFC 가져오기 - 1 별도 class로 만들어서 관리하고 있으나, 최소 로직으로만 간단하게 적어보았습니다. const RESULT_CODE = 1; RESULT_MESSAGE = 2; var I: Integer; oLogon: TSAPLogonControl; oSAPFunction: TSAPFunctions; varConnection: Variant; varFunction: Variant; varTable: Variant; varReturn: Variant; begin oLogon := TSAPLogonControl.Create(nil); oSAPFunction := TSAPFunctions.Create(nil); varConnection := oLogon.NewConnection; varConnection.Applicati.. Delphi/정보나누기 cxImageButtonGroup의 border 제거하기 cxImageButtonGroup의 전체에 미묘한 Border가 들어가 있는데, 이미지가 원하는 크기로 나오지 않아 제거하였습니다. uses .. , cxImageButton ; type TcxImageButtonGroup = class(cxImageButton.TcxImageButtonGroup) protected procedure AdjustClientRect(var Rect: TRect); override; public end; implementation procedure TcxImageButtonGroup.AdjustClientRect(var Rect: TRect); var AViewData: TcxCustomEditViewData; ARect: TRect; begin if IsDestroying.. Delphi/끄적이기 XSuperObject에서 Object 빠르게 읽기..? XSuperObject를 사용해서 Object로 이루어진 Json을 전부 읽고 처리해야 할 때, var oDataSet: ISuperObjec; oData: ISuperObject; begin oDataSet := SO('JSON_DATA'); oDataSet.First; while not oDataSet.Eof do begin oData := oDataSet.O[oDataSet.CurrentKey]; {To do} oDataSet.Next; end; end; while문을 처리하는데 약 3초 이상이 걸린 반면에 var oDataSet: ISuperObjec; begin oDataSet := SO('JSON_DATA'); TParallel.For(0, oDataSet.Count - 1, procedure.. 이전 1 ··· 4 5 6 7 8 9 10 ··· 71 다음
