삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

SQL> SELECT TO_CHAR(1, 'FM0.0') AS PENALTY_POINT FROM EC_PENALTY RESULT> 1.0 SQL> SELECT TO_CHAR(.1, 'FM0.0') AS PENALTY_POINT FROM EC_PENALTY RESULT> 0.1 SQL> SELECT TO_CHAR(1234567890, 'FM999,999,999,999,999') FROM DUAL RESULT> 1,234,567,890 SQL> SELECT TO_CHAR(1234567890, 'FM000,000,000,000,000') FROM DUAL RESULT> 000,001,234,567,890 TO_CHAR 의 뒤의 인자가 Format이다. 9이면 유효하지 않은 자리수는 여백처리, 0이면 유효하지 ..

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindow(Self.Handle, 1000, AW_HIDE or AW_BLEND); end; procedure TForm3.FormShow(Sender: TObject); begin AnimateWindow(Self.Handle, 1000, AW_ACTIVATE or AW_BLEND); end; 출처 : http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_tip&no=264

// 날짜 FieldByName('FIELD').EditMask := '9999-99-99;0;'; // 통화량 (uses DB) TNumericField(FieldByName('FIELD')).DisplayFormat := '#,###';

// 이전 컨트롤 Shift + Tab PostMessage(Handle, WM_NEXTDLGCTL, 1, 0); // 다음 컨트롤 Tab PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);

Procedure Tfrm_Main.SleepProc(milisecond : DWORD); var maxloop : Integer; iindex : integer; begin maxloop := (milisecond div 50)+(milisecond mod 50); for iindex := 1 to maxloop do begin if Application.Terminated then begin Break; Exit; Application.Terminate; end; Sleep(50); Application.ProcessMessages; end; end; TWebBrowser 사용시 sleep를 호출했을 때, 만약 페이지 로딩중이었다면 TWebBrowser까지 먹통이 되어버린다. 위의 함수는 델마당 홈페..

ShellExecute(Handle, 'Open', pchar(MyDownFolder), nil, '', SW_SHOWNORMAL); 3번째 인자값에 열고자 하는 폴더의 경로를 적어주면 됨.

CREATE TABLE CHI_TOTAMT03 AS SELECT * FROM CHI_TOTAMT02 CREATE TABLE [새로운 테이블명] AS SELECT * FROM [복사할 테이블명]

델파이에서 XMLDocument 컴포넌트로 XML 읽고 쓰기 http://blog.naver.com/ckcho/90053728417 델파이에서 XMLDocument 컴포넌트로 XML파일을 읽고 쓰는 방법은 말로 설명하기는 좀 어렵고 그냥 소스를 보는 것이 알기 쉬울 것 같다. 먼저 uses에 XMLDoc, XMLIntf을 추가한다. ■ XML 파일 쓰기 // XML 파일 만들고 쓰기 procedure TForm1.Button1Click(Sender: TObject); Var xdSoft : TXMLDocument; xnRoot : IXMLNode; xnChild : IXMLNode; xnGrandchild : IXMLNode; begin // XML Document 만들기 xdSoft := TXMLDoc..

키-밸류 코딩이라 하여 "Key=Value" 형태의 자료구조를 이용하는 개발방식인데, 델파이에서 TStringlist 정도의 편리함을 생각하면 되겠다. 그런데 이게 XML 파일과도 연계가 되어서 사용이 된다. 음.. 잠깐, 그런데 "Key=Value" 형태라고 하면 1대1 대칭자료형 아니냐? 그런데 1대N 형태의 자료구조도 가능하다는 얘기를 하고 싶은거다. Key 는 보통 String 형으로 많이 사용한다. Value 역시 마찬가지지, 주로 프로퍼티 파일을 읽거나 쓸때 자주 쓰는데, Value 를 단순 String 값이 아니라 String 들의 배열로 다룰 수가 있다. 아래 두가지 XML 파일이 있다. 이건 Plist 라는 iPhone 개발시에 주로 Property 파일로 활용되는 파일이다. 우선 1:1..

Objective-C에서 Singleton 객체를 만드는방법은 다음과 같습니다. // SingletonClass.h #import! @interface SingletonClass : NSObject { } + (SingletonClass *)sharedSingletonClass; @end // SingletonClass.m #import! "SingletonClass.h" @implementation SingletonClass + (SingletonClass *)sharedSingletonClass { static SingletonClass *singletonClass = nil; if(singletonClass == nil) { @synchronized(self) { if(singletonClass =..

리소스를 이용한 파일 입출력은 read는 되나 write가 되지 않습니다. 파일을 쓰려면 각 어플마다 존재하는 Document 디렉토리를 이용하여 관리를 해야합니다. 어플을 설치하게 되면 시뮬레이터나 디바이스에 어플의 고유번호 폴더가 생기게 되는데 그 곳의 Document 폴더는 개발자가 직접 관리를 할 수 있습니다. 시뮬레이터에서의 path는 사용자이름/Library/Application Support/iPhone Simulator/User/Applications/어플고유번호/Documents에서 확인을 할 수 있습니다. 대충 소스를 적어 보자면 NSArray* paths = NSSearchPathForDirectoriesInDomains( NSDocumentDirectory, NSUserDomainM..

아이폰 개발에 입문하시고 싶은데, 무턱대고 고가의 맥북을 지르자니 부담스럽고, 해킨을 설치하자니 어렵고, 간단한 개발 테스트는 해보고 싶으신 분들은 VMWare와 같은 툴을 사용하시면 간단한 개발 테스트를 해볼 수 있습니다. (저는 맥북이 있지만요..) VMWare에 해킨에 설치하듯이 OSX 설치파일을 가지고 설치하는 방법도 있지만 WMWare에 설치 자체가 만만하지 않죠? 인터넷을 통해 WMWare에 이미 설치해서 테스트해볼 수 있는 Virtual Machine 파일을 쉽게 구하실 수 있습니다. 사용방법을 간단히 설명드리겠습니다. 1. 파일은 torrent를 이용해서 다운받겠습니다. 구하기가 제일 쉬운거 같더군요. 구글에서 "VMWare leopard 10.5.7 torrent" 키워드를 입력하고 검색..

procedure GetInstalledProg; var MyList: TStringList; MyRegistry: TRegistry; i: Integer; Str: string; pView : TListItem; begin MyRegistry:=TRegistry.Create; MyList:=TStringList.Create; with MyRegistry do begin RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False)=True then GetKeyNames(MyList); CloseKey; for i:=0 to MyList.Count-1 do begin RootKey:=H..

WebBrowser1.OleObject.Document.DocumentElement.InnerHTML 요렇게 해서 TStringList 에 넣고 주물럭 주물럭 하면 된다.

그냥 생각하기에는 매우 간단할거라 생각을 했었는데... 잠을 못자서 생각이 안났나(비겁한 변명!) -_-; 아무튼.. TList 클래스에 여러가지 타입을 넣어두고 해당하는 Items이 내가 원하는 클래스가 맞는지 확인하고 싶을 때,