프로그래밍 노트

변변치 못한 블로그에 지금까지 찾아 주신 분들에게 감사드립니다. ^^ 크리스마스 즐겁게 보내세요~ 남은 한 해도 잘 정리하시기를 바랍니다~ 어릴 때는 크리스마스가 정말 많이 기다려졌었는데 크니까 그런 크리스마스에 대한 기대감과 두근거림이 없어져가는 것이 왠지 나이를 먹는 것같아 서운하군요. 이젠 나는 아이들에게 그런 기대감을 주어야될 나이인것인가? ^^;;

델파이에서의 VB의 ByRef같이 참조로 변수를 넘기는 방법 unit Unit1; interface uses Forms, StdCtrls, Controls, Classes; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private procedure RefParam(var sParam : string); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var sTest : string; begin sTest := ''; RefParam(sTest); Button1.Capt..

델파이에서 IIF가 없지만 IfThen이 있다. IfThen을 쓰려면 uses절에 Math를 추가해야 된다. Math를 추가하는 것을 봐서 짐작이 가듯 IfThen에서 리턴값은 수치값이다. procedure TForm1.Button1Click(Sender: TObject); var iCheck : integer; begin iCheck := IfThen(CheckBox1.Checked, 1, 0); ShowMessage(IntToStr(iCheck)); end;

델파이에서 텍스트박스에서 오른쪽 클릭하면 뜨는 팝업창 없애기 텍스트 박스에서 숫자입력 만 제한한다고 하여도 오른쪽 클릭에서 붙여넣기를 하면 숫자입력이 가능한 것을 이것을 이용하면 숫자 입력이 불가능하여진다. (반대로 붙이기가 안되서 불편하려나? -.-;) procedure TfrmTest.edtTestContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin // 오른쪽 클릭해서 뜨는 팝업창 불능화 하기 Handled := True; end; 알고나니까 이렇게 쉬운데 이거 찾는데 시간이 너무 오래 걸렸다. T.T 나의 검색 능력이 떨어져서 그런걸까?

누가 소프트웨어의 심장을 만들었는가 에서 발췌 광야의 외침: 선지자의 시대 Alan Turing (1911~1954) : 현대 컴퓨팅의 아버지 책상 위에서 매일 접하는 현대 컴퓨터의 수학적 모델을 제시한 선지자며, "기계는 생각할 수 있는가"라는 화두를 던져 수많은 과학자와 작가들을 고민하게 만든 천재였다. 독일군이 만든 악명 높은 에니그마(Enigma) 암호를 해킹하여 연합군이 2차 세계 대전을 승리하게 만든 숨은 영웅이었으나, 독이 든 사과를 먹고 자살했다. 컴퓨팅 분야의 노벨상이라 불리는 튜링상(Turing Award)이 그가 세상을 뜬 지 12년 만에 만들어졌다. 컴퓨터의 실체가 존재하지 않았던 20세기 초반, 대부분의 사람들은 특정한 일이나 계산을 자동으로 수행하는 기계를 만들려면 매번 그에 맞..

델파이에서 체크박스를 토글버튼처럼 쓰기 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(CheckBox1.Handle, GWL_STYLE, GetWindowLong(CheckBox1.Handle, GWL_STYLE) or BS_PUSHLIKE); end;

클립보드의 데이터를 StringGrid에 붙이기 엑셀에서 데이터를 카피해서 StringGrid에 붙이기 클립보드의 데이터를 쓰기위해서는 uses절에 Clipbrd 를 추가해야 된다. procedure TfrmCable.PasteToGrid(sgrdPaste: TStringGrid; iCol, iRow: integer); const cTab = #9; cCR = #13; cLF = #10; var iCols : integer; iRows : integer; i : integer; sClip : string; sSubs : string; begin // Col,Row 이 음수 일때는 0으로 if iCol < 0 then iCol := 0; if iRow < 0 then iRow := 0; sClip := C..

TEdit에서 숫자만 입력 가능하게 하는 방법 procedure TfrmTest.edtTestKeyPress(Sender: TObject; var Key: Char); begin // 숫자만 입력 가능하게 if (key in ['0'..'9']) or (Key = #8) then else Key := #0; end; 아래와 같이도 할 수 있음 iKey := ord(Key); if iKey = $08 then exit; if not(iKey in [$30..$39]) then begin Key := #0; exit; end;

델파이에서는 표준으로 Jpeg 이미지 파일을 불러올 수는 없지만 Jpeg 유닛을 사용하면 가능하다. Jpeg이미지 보여주기 ◆ Uses절에 Jpeg 추가 procedure TForm1.Button1Click(Sender: TObject); Var jpgImage : TJpegImage; begin // JPEG 이미지 오브젝트 인스턴스화 jpgImage := TJpegImage.Create ; // Jpeg 이미지 불러오기 jpgImage.LoadFromFile('C:hhh.jpg') ; // Image1에 어사인 Image1.Picture.Assign(jpgImage); // 오브젝트 파기 jpgImage.Free; end;

■ Create 문 - 테이블(Table), 인덱스(Index), 시퀀스(Sequence) 만들기 - 각 객체 만들기 ◆ 테이블 만들기 문법 CREATE TABLE 테이블명 ( 필드명 필드형 [ not null ] [ , 필드명 필드형 [ not null ] ]** ) (필드형 = 필드 데이터형) (필드 = 컬럼) 필드 데이터형 설명 char(문자수) 문자열 text(문자수) 문자열 int 정수 real 실수 unit 부호없는 정수 date 날짜 time 시간 money 고정소수점 두 자리 사용 사용예 CREATE TABLE Customer ( CustomerId int not null, Name char(20) not null, NickName char(20) not null, Address text(..