류종택의 프로그래밍 강의실

unit _fmMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TfmMain = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); private FSaveDwmCompositionEnabled : boolean; public end; var fmMain: TfmMain; implementa..

프로그래밍/Delphi 2013. 1. 5. 22:53

익명 메소드를 이용해서 LinkeList로 구현 된 데이터 구조에 대한 Iteration을 작성 해보았습니다. 우선, 익명 메소드의 타입을 선언합니다. type TSimpleIterateProcedure = reference to procedure(ALinkedListNode:TLinkedListNode); 우리가 작성하는 클래스는 TLinkedList라고 했을 때, Iterate 메소드를 아래와 같이 구현합니다. procedure TLinkedList.Iterate(AProcedure: TSimpleIterateProcedure); ... begin Current := Head; while Current Tail do begin AProcedure(Current); Current := Current.R..

프로그래밍/Delphi 2012. 11. 19. 02:10

검색 능력이 딸려서인지 구현된 소스는 못 찾았습니다. 하나 찾긴 했지만, 코드 스타일이 내가 원하는 상태가 아닌지라 ㅡ.ㅡ;; 간단하게 아래처럼 따로 구현해봤습니다. 구현이라고 할 것 까지는 ㅡ.ㅡa소스 설명은 워낙에 간단해서 따로 드릴 필요를 으흠.. 그냥 스택이라고 생각하시면 됩니다. Interlocked 함수를 이용해서 구현 된 것이라, 멀티 스레드 상황에서 임계영역으로 자원을 Block하지 않고 사용하여 퍼포먼스에 이득이 있습니다. 그 이외에는 그냥 무시하시면 되시겠습니다 ^^; type TSLIST_HEADER = record case integer of 0 : (Alignment : int64); 1 : ( Next : pointer; Depth : word; Sequence : word; )..

프로그래밍/Delphi 2012. 10. 19. 17:48

외국산 제품에 비해서 국내 환경에 잘 맞물려 돌아 갈 듯 하네요. 웹과 모바일까지 지원한다고 하니 참고하세요. 아래는 제품 사이트 링크 입니다. http://www.realgrid.net/

프로그래밍/Delphi 2012. 9. 7. 13:33

제 책의 재고를 가지고 계신 분께서 기존의 사이트를 닫으시고, 인터파크 중고서점에서 판매하시고 계십니다. 실제로 책은 중고가 아닙니다. http://book.interpark.com/product/UBizDisplay.do?_method=detail&sc.prdNo=207941317&bookblockname=b_sch&booklinkname=bprd_img 참고하시기 바랍니다.

프로그래밍/Delphi 2012. 9. 5. 17:11

Indy 컴포넌트들이 사용하기 대단히 편리하게 잘 만들어져 있지만, 패킷 단위로 처리하고 싶은 요구사항 때문에 소켓으로 직접 작업하고는 했었습니다. 그러다가 오늘 문득 "TStream 클래스를 상속받아서 처리하면 간단하겠구나"하는 뒤 늦은 깨달음이 ㅠ.ㅠ "없으면 만들어서 한다"가 기본 자세이다 보니, 쓸 때 없는 곳에 힘을 빼고 말았네요 ㅡ.ㅡ; 코드가 간단해서 설명은 생략합니다 ^^; (메모장에는 다운로드가 끝난 다음에 한 거번에 표시됩니다) unit _fmMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Fo..

프로그래밍/Delphi 2012. 9. 2. 20:25

자동 업데이트 프로그램을 새로 만들다가 필요해서 작성한 함수입니다. Vista 이상에서는 권한 상승이 필요합니다. XP 서비스팩 어느 버전 이전에서는 레지스트리에 추가해줘야 할 것 입니다. 구글링하다가 그렇게 본 거 같습니다 ^^; 사용법은 AddExceptionToFirewall('등록 할 파일 이름 (패스 포함)') 입니다. 소스: http://code.google.com/p/ryulib4delphi/source/browse/trunk/XE2/FireWall.pas

프로그래밍/Delphi 2012. 8. 13. 12:30

자동 업데이트 프로그램을 다시 만들 일이 생겨서 작업하던 중에 만든 함수 입니다. 구글 형님이 추천해주신 김영대님의 소스를 조금 수정했습니다. 김영대님 원본: http://www.howto.pe.kr/zboard/zboard.php?id=delphi_tiptrick&page=3&sn1=&divpage=1&sn=off&ss=on&sc=on&select_arrange=hit&desc=desc&no=913 수정된 소스: http://code.google.com/p/ryulib4delphi/source/browse/trunk/XE2/Disk.pasfunction SetEveryoneAllowedToUseFile(AFileName:string):boolean; SetEveryoneAllowedToUseFile('..

프로그래밍/Delphi 2012. 8. 13. 12:22