파란크리스마스

출처 http://rainflys.tistory.com/84 http://www.borlandforum.com/impboard/impboard.dll?action=read&db=del_qna&no=3570 http://bloodguy.tistory.com/entry/Delphi-바탕화면-시작메뉴프로그램-등-특수-디렉토리-가져오기 현재 실행 폴더 구하기runpath:=ExtractFilePath(Application.ExeName); Memo 스크롤 마지막으로 이동procedure TForm1.Memo1Change(Sender: TObject); begin Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count); end; Format format('%0.10d',[10]..

출처 : http://www.delphitricks.com/source-code/systeminfo/get_windows_system_temporary_directory.html { Getting the Temporary Directory } function GetTempDir: string; var Buffer: array[0..MAX_PATH] of Char; begin GetTempPath(SizeOf(Buffer) - 1, Buffer); Result := StrPas(Buffer); end; function GetTempPath: string; var TmpDir: PChar; begin TmpDir := StrAlloc(MAX_PATH); GetTempPath(TmpDir, MAX_PATH);..

- CustomDataSource 사용시 동적인 Count 사용 OptionsData.SmartLoad := True; - 트리노드의 초기 + 표시 OptionsData.CheckHasChildren := false;

출처 : http://kjs1981.tistory.com/entry/%EB%8D%B8%ED%8C%8C%EC%9D%B4-Drag-Drop%EC%9D%98-%EC%A0%95%EB%A6%AC-%ED%8E%8C-softech%EA%B3%A8%EB%B1%85%EC%9D%B4pppkornet21net 1. 소스 : cxVirtualTreeList1.DragMode = dmAutomatic DragMode = dmAutomatic의 경우 모든 객체에 대해서 Darg 모드가 적용되지만 특정객체만 선택적으로 Drag 모드가 적용되게 하려면 DragMode = dmManual 로 수정하고 MouseDown 이벤트에서 BeginDrag(False); 로 해준다. cxVirtualTreeList1.DragMode = dmMa..

Delphi에서 StrToInt을 하는 경우 Exception 발생하는데, Debug 시에는 귀찮을 때가 있어 Tip을 올립니다. SysUtil.pas의 StrToInt 내부를 보면, Var 함수를 사용하고 있는데, 3번째 인자의 값이 0이 아니면 Exception을 발생하도록 되어 있습니다. function StrToInt(const S: string): Integer; var E: Integer; begin Val(S, Result, E); if E 0 then ConvertErrorFmt(@SInvalidInteger, [S]); end; 사용예) 아래의 예를 보시면 Result 값을 0으로 초기화 하고 Var의 3번째 인자의 값이 0이면 Result에 값에 담아서 반환하도록 했습니다. functi..

uses StrUtils; procedure TForm1.Button1Click(Sender: TObject); var tmpDirStr : String; offset : integer; function GetFindStr(SubFindStr : String; var offset : integer):string; var offsetOld, offset2 : integer; begin Result := ''; offset2 := 0; if SubFindStr[offset] = '/' then inc(offset2); offsetOld := offset; offset := PosEx('/', SubFindStr, offset + offset2); if offset>0 then begin Result := M..

원본 사이트 : http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10231553.html procedure TForm1.Button1Click(Sender: TObject); function GetLocale(ALcid: Integer): string; var s: string; begin Result := '[Unknown]'; SetLength(s, 128); if GetLocaleInfo(ALcid, LOCALE_SENGLANGUAGE, PChar(s), 128) > 0 then begin Result := StrPas(PChar(s)); if GetLocaleInfo(ALcid, LOCALE_SENGCOUNTRY, PCh..

출처 : http://users.iafrica.com/d/da/dart/zen/Articles/TTreeView/TTreeView_eg05.html -- end --