파란크리스마스

Antlr 도구를 이용해서 만들어본 자바파서입니다. 간단하게 샘플 Grammer 을 이용해서 만들어 보았습니다. 파싱하는 자바 소스는 컴파일 가능한 소스가 아니면 Grammer에 어긋나기 때문에 파싱이 되지 않습니다. (사용된 Grammer가 최신 JDK에 만족하지 않을 수 있으므로 최신 JDK 문법도 파싱이 안 될수 있음) Package, Import, Class, Method을 몇번째 라인, 열, 사용된 이름을 객체화해서 담아 두었습니다. 더 자세한 정보를 담으려 했으나, Delphi로 자바 파싱에 관심이 있는 사람이 있는지 궁금하네요. (손들어 보세요.) 파싱한 결과를 객체화 하기 위해서 클래스를 설계하는 일도 만만치 않는 일이라 여기에서 중단합니다. (누가 클래스를 설계주시면 객체에 담아 보겠습니..

1. 이벤트 핸들러 생성 Type TAddConnectionInfoEvent = procedure(AConnInfo : TConnectionInfo) of object; 2. 이벤트 속성으로 정의 Type TERDModel=class private fOnAddConnectionInfo : TAddConnectionInfoEvent; public procedure AddConnectionInfo(aConnectionInfo : TConnectionInfo); property OnAddConnectionInfo : TAddConnectionInfoEvent read fOnAddConnectionInfo write fOnAddConnectionInfo; end; 3. 이벤트 호출 procedure TERDMo..

다운받는곳 : Soft Gems Homepage (http://www.soft-gems.net/)  속성 VT.TreeOptions.SelectionOptions := [toDisableDrawSelection,toExtendedFocus,toMiddleClickSelect,toMultiSelect,toRightClickSelect{,toCenterScrollIntoView}]; 이벤트 OnFocusChanged procedure Xxx.VTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex); var Data: PAlignData; begin // Data := Sender.GetNodeData(Node); e..

출처 - http://cc.embarcadero.com/Item/26667 DCocoR 예제를 간단하게 수정하여 만들어 보았습니다. ExprUnit.atg ---------------------------------------- COMPILER ExprUnit FRAME "delphi.frm" header = (. .) uses = (.SysUtils,Variants,StrUtils.) private = (. .) protected = (. .) public = (. function Evaluate(const str: String): integer; .) publicProps = (. .) precreate = (. .) implementation = (. function TExprUnit.Evaluat..

출처 : http://fendee.egloos.com/9909821 http://delphi.about.com/od/delphitips2007/qt/parse_cmd_line.htm function ParamStr(Pos : Integer): string - end -

FileCopy 출처 : http://delphi.about.com/od/fileio/a/untypedfiles.htm procedure FileCopy(const FileFrom, FileTo: string) ; var FromF, ToF: file; NumRead, NumWritten: Integer; Buffer: array[1..2048] of Byte; begin AssignFile(FromF, FileFrom) ; Reset(FromF, 1) ; AssignFile(ToF, FileTo) ; Rewrite(ToF, 1) ; repeat BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead) ; BlockWrite(ToF, Buffer, NumRead, NumW..

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

출처 : http://www.xxlinux.com/linux/dev/Delphi/2007-10-30/11392.html http://dolba.net/old_k2club/bbs/bbs.php3?board=delphi&mode=view&id=345&page=32&recnum=359&keyword=&flag= http://www.pic16.com/BBS/dispbbs.asp?boardID=31&ID=17357&page=3 function StrToBin(const S: string): string; const BitArray: array[0..15] of string = ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '100..