프로그래밍 노트

누가 소프트웨어의 심장을 만들었는가 에서 발췌 광야의 외침: 선지자의 시대 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(..

델파이의 리스트박스에서 VB의 ItemData의 기능을 쓰려면 어떻게 하나 찾아보니까 방법이 있었다. ListBox1.Clear; ListBox1.Items.AddObject('사자', TObject(10)); ListBox1.Items.AddObject('호랑이', TObject(20)); ListBox1.Items.AddObject('곰', TObject(35)); 이런식으로 자료를 넣고서 데이터를 가져올때는 밑의 방법으로 가져온다. iID := LongInt(ListBox1.Items.Objects[0]); 그러면 iID에 10이 대입된다. 델파이의 리스트박스에서 아이템을 추가할 때는 아이템별로 오브젝트를 넣을 수 있어서 리스트박스에 추가하는 아이템 하나에 더 많은 정보를 입력할 수 있다.

ANSI SQL 데이터형 Microsoft Access 데이터형 별명 Microsoft SQL Server 데이터형 BIT, BIT VARYING BINARY VARBINARY, BINARY VARYING BIT VARYING BINARY, VARBINARY 미지원 BIT BOOLEAN, LOGICAL, LOGICAL1, YESNO BIT 미지원 TINYINT INTEGER1, BYTE TINYINT 미지원 COUNTER AUTOINCREMENT - 미지원 MONEY CURRENCY MONEY DATE, TIME, TIMESTAMP DATETIME DATE, TIME DATETIME 미지원 UNIQUEIDENTIFIER GUID UNIQUEIDENTIFIER DECIMAL DECIMAL NUMERIC, ..

데이터형 크기 설명 BINARY 1 바이트 어떤 데이터형도 저장될 수 있는 데이터형. 어떻게 데이터를 넣느냐에 따라서 데이터를 가져올때도 그에 맞게 가져와야된다. (문자당 1바이트) BIT 1 바이트 예/아니오 값 TINYINT 1 바이트 0 ~ 255 정수값 MONEY 8 바이트 –922,337,203,685,477.5808 ~ 922,337,203,685,477.5807 정수값 DATETIME 8 바이트 100 ~ 9999 사이의 날짜 시간값 UNIQUEIDENTIFIER 128 비트 원격 프로시져 호출시 키 넘버로 사용 REAL 4 바이트 단정도 부동소수 음수값 –3.402823E38 ~ –1.401298E-45, 양수값 1.401298E-45 ~ 3.402823E38, 0 FLOAT 8 바이트 배..

델파이로 MDB 데이터베이스 만들기 MDB 패스워드 설정하기 MDB 패스워드 변경하기 MDB 최적화하기 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, ActiveX, StdCtrls; // 데이터베이스 생성(MDB) function CreateDB(const sPath: string; var sErr: string): Boolean; const csConnStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="%s"'; var oleCatalog: OleVariant; sConnStr: string; begin Result := false;..