본문 바로가기

전체 글

Delphi/꿀팁 문자열로 함수 호출하기 - 2 2018/11/14 - [ - Delphi] - 문자열로 함수 호출하기 - 1 typeTProcList = classpublicprocedure TestStringCallMethod1;function TestStringCallMethod2(s1, s2, s3 : string): Boolean;end; ...implementation usesRtti;procedure ExecMethod(MethodName:string; const Args: array of TValue);varR : TRttiContext;T : TRttiType;M : TRttiMethod;beginT := R.GetType(TProcList); for M in t.GetMethods dobeginif (m.Parent = t) and ..
Delphi/꿀팁 문자열로 함수 호출하기 - 1 uses..., Generics.Collections; typeTProcList = class(TDictionary); TForm1 = class(TForm)...procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);publicProcList : TProcList;procedure TestStringCallMethod;end; procedure TForm1.FormCreate(Sender: TObject);beginProcList := TProcList.Create(); //호출할 함수명과 함수 저장ProcList.Add('TestStringCallMethod', TestStringCallMethod);end; proce..
느린 ListBox를 커스텀 해서 속도 향상시키기
Delphi/꿀팁 느린 ListBox를 커스텀 해서 속도 향상시키기 1. ListBox에 추가할 Frame을 만듭니다.간단하게 Label 하나와 Button 하나 그리고 ScrollBox를 추가하였습니다. 그리고 버튼에 클릭이벤트를 추가합니다.procedure TFrame1.Button1Click(Sender: TObject);beginShowMessage(Label1.Text);end; 2. 메인에 ListBox를 추가합니다. 커스텀한 리스트 아이템을 추가하는 소스입니다.procedure TForm1.btnAddItemClick(Sender: TObject);varitem : TListBoxItem;addFrame : TFrame1;I : Integer;beginListBox1.BeginUpdate;for I := 0 to 9 dobeginitem := TListBox..

티스토리툴바