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

-- ============================================= -- Author:marsland@hanmail.net -- Create date: 2011-11-11 -- Description:문자열 나누기 -- ============================================= ALTER FUNCTION [dbo].[fn_Split] ( @pSource VARCHAR(MAX), @pSeparator VARCHAR(1) ) RETURNS @TAB_RETURN TABLE ( ItemIndexINT, ItemValueVARCHAR(1000) ) AS BEGIN DECLARE @buffer VARCHAR(MAX); DECLARE @item VARCHAR(MAX); DEC..

-- ============================================= -- Author : marsland@hanmail.net -- Create date: 2011-11-11 -- Description: 문자열에서 숫자만 리턴한다. -- ============================================= CREATE FUNCTION [dbo].[fn_ExtractNumber] ( @in_valueVARCHAR(MAX) ) RETURNS @TAB_RETURN TABLE ( ItemVARCHAR(MAX) ) AS BEGIN DECLARE @cnt INT; SET @cnt = 1; DECLARE @buffer VARCHAR(MAX); SET @buffer = ''; WHILE..

여성부 자유게시판 바로가기 : http://www.mogef.go.kr/korea/view/customer/customer01.jsp 요즘들어 여성부에 대해 말이 아주 많습니다. 특히 여성부 홈페이지 자유게시판에 재미있는 제보(?)가 많이 올라온다는 소식을 접하고 한 번 가봤습니다. 아~~ 아주 가관이더군요. 말로는 표현을 못할정도로요.. 수 많은 게시글이 올라오고 있구요, 제가 잠시 봤는데 그 중에 몇 가지 캡쳐해서 올리겠습니다. 여성부 자유게시판에도 실명이 모자이크 처리 없이 보이기 때문에 실명은 따로 모자이크 처리 하지 않았습니다. 심심하신분들은 가서 잠시 웃고 오셔도 좋을 듯 싶습니다.

요즘들어 아이패드&갤럭시탭에 관해서 관심이 아주 많아졌습니다. 둘 다 전화기능만 되면(갤럭시탭1 에서는 전화기능이 됨 - KT제외) 참 좋은데.. 정말 좋은데.. 이 것 때문에 구입하기가 망설여지네요. 어떻게든 좀 싸게 구입해보고자 이리저리 알아봤는데, 각종 사이트나 쇼핑몰에서 파는 가격은 고만고만하더군요. 그러다가 10원경매를 알게되어 어느 사이트에 가입하고 실제로 경매에 참여해 봤습죠. 제가 참여한 물품은 갤럭시 플레이어 인데요, 그냥.. 경매시간이 제일 짧은걸로 연습삼아 해봤습니다. 10원경매.. 참 매력적이죠. 경매 사이트에 나와있는 갤럭시 플레이어의 즉시구매 가격은 40만원이더군요. 사이트마다 즉시구매 가격은 일반적으로 구할 수 있는 가격보다 조금(?) 비싸더군요. 어느 분이 가격이 너무 높게 ..

안녕하세요. Lotto520 연금복권 당첨확인 프로그램을 만들고 Lotto645 로또 당첨확인 프로그램도 뚝딱 만들어봤습니다. 기존에 있던 틀을 그대로 사용해서 시간은 그리 많이 걸리지 않았습니다. 이것도 마찬가지로 유용하게 사용하셨으면 좋겠습니다. 회차정보는 콤보박스를 변경하면 해당 당첨번호를 불러옵니다. "추가" 버튼은 확인할 로또번호를 추가합니다. "삭제" 버튼은 등록한 모든 로또번호를 삭제합니다. "저장" 버튼은 등록한 로또번호를 텍스트 파일로 저장합니다. "읽기" 버튼은 저장한 텍스트 파일에서 로또번호를 읽어옵니다. "결과확인" 버튼은 해당 회차 당첨번호와 자신이 등록한 로또번호를 비교하여 당첨결과를 알려줍니다. 몇 년전부터 매주 로또를 사는데.. 4등도 한 번 안걸리네요 ㅠ_ㅠ Lotto645..

연금복권이 생기고나서 1회부터 구입하고 있습니다. 덕분에 복권 구입비용이 2배로 늘었네요. 로또 1만원, 연금복권 1만원 ㅋㅋ 수작업으로 당첨번호를 맞춰보는데 불편하기도 하고 혹시 틀렸나싶어 몇 번씩 확인하고 그래서.. 프로그램으로 만들었습니다. 보시는 화면은 제가 구입한 연금복권 4회 번호입니다 ㅋㅋ 6등 1개, 7등 2개 걸렸네요 -_-;; 화면의 좌측은 해당 회차에 대한 당첨번호이구요, 좌측 상단에 당첨정보 콤보박스를 변경하시면 해당 회차에 대한 당첨번호를 가져옵니다. 화면의 우측은 제가 구입하고 프로그램에 등록한 연금복권의 번호입니다. "추가" 버튼은 복권번호를 입력하는 버튼입니다. "삭제" 버튼은 등록한 복권번호를 모두 삭제하는 버튼입니다. (개별적으로 삭제는 없으며 복권번호를 수정하고 싶으시면..

자동증가값을 사용해서 프로그램을 개발을 하면서 테스트하다보면 값이 올라간다. 실제로 오픈이나 테스트가 끝나면 다시 자동증가값을 초기화해서 이쁘게(?) 정렬되게 하고 싶다면, 아래와 같이 해주면 자동증가값이 초기화가 된다. DBCC CHECKIDENT('테이블명', RESEED, 0);

제 고향은 시골입니다. 초등학교때 제가 사는 시골보다 더 시골에서 사촌 누님이 수능을 본다고 저희집에 몇 일 머물렀습니다. 집에 엄청 큰 모기가 들어왔는데, 어린 저로써는 그 큰 모기가 마냥 무서워서 건드리지도 못하고 소리지르고 도망다니면서, 난리부르스를 한 껏 추고 있다보니 사촌 누님이 오셔서 저 모기는 수컷 모기라고, 수컷 모기는 사람의 피를 먹는 것이 아니라, 이슬을 먹고 산다고 하더군요. 그러면서 수컷 모기를 손으로 잡아서 밖으로 보내주더라구요. 얼마전 회사에서 워크샵을 갔는데, 비도 오고 날파래기도 많고 모기도 많았는데, 문득 큰 모기(그냥 큰 모기를 보면 수컷모긴가보다 합니다 ^^;)를 봤습니다. 그 모기를 보니 예전에 수컷 모기는 이슬을 먹고 산다는 사촌 누님이 떠올라서 글 남겨봅니다. 올리..

우선 인터넷 쿠키가 뭐인지 살펴보자. 인터넷 쿠키란 인터넷 웹사이트의 방문기록을 남겨 사용자와 웹사이트 사이를 매개해 주는 정보이다. 고객이 특정 홈페이지를 접속할 때 생성되는 정보를 담은 임시 파일로 크기는 4KB 이하로 작다. 쿠키는 애초 인터넷 사용자들의 홈페이지 접속을 돕기 위해 만들어졌다. 특정 사이트를 처음 방문하면 아이디와 비밀번호를 기록한 쿠키가 만들어지고 다음에 접속했을 때 별도 절차 없이 사이트에 빠르게 연결할 수 있다. 쿠키는 사용하는 웹브라우저가 자동으로 만들기도 하고 갱신하기도 하며 웹사이트로 기록을 전달하기도 한다. 따라서 개인의 사생활을 침해할 소지가 있다. 이용자가 인터넷에서 어떤 내용을 봤는지, 어떤 상품을 샀는지 등 모든 정보가 기록되기 때문이다. 온라인 광고업체들은 쿠키..

Version 11.60 자식폼을 최소화 했을 경우에 태스크바로 내려가지 않고 좌측 하단으로 내려간다 -_-; 외국에서는 저렇게 사용하는지, 아니면 MDI 환경을 고려한 것인지는 몰라도.. 나는 여간 신경쓰이고 못마땅하다 ㅋㅋㅋㅋㅋ 소스 붙잡고 엎어치기 몇 번 한 결과.. TspDynamicSkinForm 컴포넌트의 MinimizeDefault 를 True로 바꿔주면 된다. 기본적으로 컴포넌트가 생성이 될 때 False 로 셋팅을 하기 때문에 좌측 하단으로 내려가게 된다. 자.. 이제 Form의 Create의 부분에서 TspDynamicSkinForm 컴포넌트의 MinimizeDefault 속성을 True로 바꿔보자. 아차! TspDynamicSkinForm 컴포넌트를 사용해서 창을 띄웠을 경우 자식폼은..

Version 11.60 TspDynamicSkinForm 컴포넌트를 사용해서 다중폼을 만들었을 경우에, 메인폼이 프로그램에서 생성한 다른 폼 뒤로 갈 경우 아래와 같은 잔상(?)이 생긴다. 아.. 정말 짜증난다. 워낙 영어랑 친하지도 않아서 제작사에 메일을 보내서 알아볼 수도 없고... 어떻게 어떻게 소스타고 들어가서 확인해 본 결과.. 프로젝트 소스에서 Application.MainFormOnTaskbar 를 False 로 바꿔주거나 주석처리(기본값이 False) 해주면 된다. program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} begin Application.Initial..

프로그래밍을 하다보면 자주 사용하는 함수나 폼이 없는 unit를 생성해서 초기화를 해야 할 경우가 있다. unit에 프로시저나 함수를 한 개 만들어서 초기화 하는 경우도 있겠지만.. 나 같은 경우 아래와 같이 사용한다. unit Unit1; interface uses Classes; var TestStringList : TStringList; implementation initialization TestStringList := TStringList.Create; finalization FreeAndNil(TestStringList); end. 맨 아래 initialization 에서 초기화를 하고, finalization 에서 메모리를 반납한다. 참 쉽죠잉~?

현재 사용중인 익스플로러 버전을 확인하는 함수이다. 레지스트리를 사용하기 때문에 비스타 혹은 윈도우7에서 사용할 경우에는 UAC 권한을 상승시켜서 봐야한다. 또 소스를 보면 알겠지만 Major 버전만 가져오는것이지만, 필요에 따라 바꿔서 쓰자. function ExplorerVerCheck : Integer; var Reg : TRegistry; Buffer : String; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer', False); Buffer := Copy(Reg.ReadString('Version'), 1, 1); Result ..

파일명에는 들어가서는 안 될 문자가 몇 개 있다. 1. \ 2. / 3. : 4. * 5. ? 6. " 7. 9. | 물론 탐색기같은 곳에서 저런 문자를 쓰면 친절하게 알려주지면, 소스내에서 코딩을 할 때 무심코 저런 문자를 쓰거나, 날짜 형식(14:32) 같은 것을 파일명에 포함해버리면 에러가 난다. 예외처리를 잘 해두면 원인을 파악하는데 빠르지만, 그렇지 않을 경우에는 헤메는 경우가 있.. (나만 그랬나? -_-;) 아래와 같은 함수로 파일명을 체크한 후에 안전하게 저장을 하면 끗~ function FileNameValidCheck(const FileName: String) : Boolean; var i : Integer; begin Result := True; i := GetFileAt..