파란크리스마스

출처 : http://delphi.about.com/cs/adptips2002/a/bltip1002_5.htm type TByteArr = array of byte; function StringToBytes(aString: String): TByteArr; var i: integer; begin SetLength( Result, Length(aString)) ; for i := 0 to Length(aString) - 1 do Result[i] := ord(aString[i + 1]) { - 48} ; end; function BytesToString(aBytes : TByteArr): String; begin Result := PChar(aBytes); end; procedure TForm1.Butto..

출처 : http://delphi.about.com/od/beginners/l/blrtldatetime.htm http://wwwi.tistory.com/category/델파이 http://www.zetblog.net/Zcontent_list.php?category_idx=61 CompareDate uses DateUtils; //# 같으면 0 출력 ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-01'), StrToDate('2007-04-01')))); //# 오른쪽이 더 크면 -1 출력 ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-01'), StrToDate('2007-04-02')))); //# 왼쪽이 더..

출처 : http://www.swissdelphicenter.ch/torry/showcode.php?id=147 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } id1 : Integer; procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; public { Pu..

출처 http://kurapa.com/content-a411_%25ED%2588%25AC%25EB%25AA%2585%25EC%259C%2588%25EB%258F%2584%25EC%259A%25B0 http://careerblog.scout.co.kr/home/?pSeq=665762&blogURL=http://neodreamer.tistory.com/39 http://careerblog.scout.co.kr/search/?searchtype=4&searchtext=CodeGear // 투명 윈도우 만들기 procedure TfmMain.Button1Click(Sender: TObject); begin SetWindowLong(handle, GWL_EXSTYLE, GetWindowLong(handle, GW..

java 소스를 Delphi로 변환 프로그램을 간단하게 만들어 보았습니다. 원래 필요로 했던 것은 사칙연산이나 제어문 정도라서 일주일 투자해서 간단하게 만들어 보았습니다. JavaCC을 이용했으며, jj 파일을 제외하고 Java 소스를 첨부합니다. 사용법: java -jar java2delphi.jar Formatter.java 위와 같이 명령을 하시면 Formatter.pas의 결과물을 얻을 수 있습니다. 아래에 일부 변환된 예를 입니다. public int sum(int s1, int s2) { return s1 + s2; } function TFormatter.sum(s1 : integer; s2 : integer): int; begin result := s1+s2; end;-------------..

▶ SOAP SOAP(Simple Object Access Protocol)에 대한 설명은 다른 사이트에 잘 나와 있으니 찾아 보세요. 여기에서는 Java로 SOAP 서버를 만들고, Tomcat으로 Web 서비스 하여, 클라이언트는 Delphi로 만들어 보겠습니다. 이와 같은 예가 외국 사이트를 찾아 보아도 별로 없더군요. 그래서 허접한 설명이지만 도움이 될까 해서 올립니다. (기회가 되면 배열이나, Dataset도 구현 하고 싶지만 시간이 없어서...) 일부 소스와 내용은 에어콘 출판사의 차세대 자바 SOAP AXUS을 참조 했습니다. ▶ 준비물 JDK 1.4.x 이상 (http://java.sun.com) Tomcat 4.1.36 (http://tomcat.apache.org/) AXIS 1.4 (h..

정규표현식이나, Lex&Yacc을 델파이만 개발 하신 분이라면 처음 들어 보신 분들도 계실 것이라고 생각됩니다. 저도 6년 넘게 개발하면서 최근에 알게 되었고, 그 활용 범위가 무궁무진 하다는 것도 알게 되었죠. 이 글을 있는 개발자 분들도 이 글을 계기로 Lex&Yacc에 대해서 관심을 가졌으면 합니다. Lex&Yacc은 컴파일러를 만들기 위한 도구로 GCC나 대부분의 컴파일러가 Lex&Yacc을 사용하고 있습니다. Lex&Yacc의 활용 범위는 소스를 분석하거나, 소스에서 주석만 제거하거나, 간단한 스크립트 언어를 만들 수도 있습니다. C언어나 JAVA의 경우 많은 Lex&Yacc 도구가 많이 있지만 Delphi의 경우 2개 정도 있는 것 같고, 제가 사용하고 있는 Delphi Lex&Yacc은 Tu..

델파이의 경우도 JAVA와 같이 객체의 상속은 하나만 되고, Interface의 상속은 다중으로 되고 있습니다. 객체의 어떠한 성격을 Interface로 만들고 그 것을 Collection 객체에 담아 두었다가 다시 사용할 수 있는 것은 OOP 프로그램을 하면서 유용하게 사용할 수 있을 것입니다. 최근에 TInterfaceList 가 있는 것을 알게 되었네요. 그래서 여기 Tip에 올립니다. type IDatabase = interface function GetDatabaseName() : String; end; TDatabase = class(TInterfacedObject, IDatabase) private FDtabaseName : String; public procedure SetDatabaseN..