프로그래밍 노트

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

델파이에서의 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 나의 검색 능력이 떨어져서 그런걸까?