프로그래밍 노트

[델파이]Edit에 수치값만 입력 가능하게(소수, 음수입력 가능) 자리수 제한 Edit컨트롤에 정수, 소수, 음수만을 입력할 수 있게 한다. 숫자의 자릿수를 설정하여 자릿수만큼만 입력할 수 있게 한다. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var iKey : Integer; iPos : Integer; iLen : integer; iSel : integer; iAfterPointDigit :integer; iBeforePointDigit :integer; sText : string; begin sText := Edit1.text; iKey := ord(Key); iLen := Length(trim(sText)); iSel := ..

StringGrid의 셀에 색칠하기 예제 StringGrid의 1열은 녹색으로 표시하고 2행은 적색으로 표시하고 StringGrid의 1열과 2행 외의 다른 셀을 클릭하였을 때, 클릭한 셀을 청색으로 표시한다. procedure TForm1.StringGrid1Click(Sender: TObject); var pntCurPos :TPoint; iCol :integer; iRow :integer; begin with StringGrid1 do begin pntCurPos := ScreenToClient(Mouse.CursorPos); // 마우스가 위치가 어느 셀위에 있는지 정보얻기 MouseToCell(pntCurPos.x, pntCurPos.y, iCol, iRow); // 셀 별 오브젝트가 설정되었는..

[델파이]StringGrid에서 오른쪽 정렬과 가운데 정렬하기 예제 오른쪽 정렬하고자하는 StringGrid의 DrawCell 이벤트에 밑의 소스를 카피해서 정렬을 하고자 하는 열이나 행을 설정한다. StringGrid는 기본적으로 왼쪽 정렬 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var hdcTemp : HDC; crdOrgAlign : Cardinal; begin with Sender as TStringGrid do begin hdcTemp := Canvas.Handle; if ARow = 0 then Canvas.Font.Style := C..

VB에서는 문자열 값이 수치값인지 확인하는 IsNumeric이라는 함수가 있다. 이런 것을 델파이에서 쓰려면 아래의 함수를 사용하면 간단하게 문자열이 수치값인지 확인할 수 있다. function IsNum(sStr : string) : boolean; var nErr : integer; nRet : integer; begin Val(sStr, nRet, nErr); Result := (nErr = 0); end;

선택한 폴더의 들어있는 파일을 리스트 박스에 표시하는 예제 function TfrmMain.GetFileList(sFolder: string): integer; var SrcRec : TSearchRec; nCnt : integer; begin if DirectoryExists(sFolder) then begin nCnt := 0; // '\'가 없으면 붙임 sFolder := IncludeTrailingPathDelimiter(sFolder); // 폴더의 모든 파일 표시 if FindFirst(sFolder + '*.*', faAnyFile, SrcRec) = 0 then try repeat // 폴더, 현 폴더, 상위 폴더 제외 if not((SrcRec.Attr and faDirectory > 0..

파일 유무 체크를 하는데 있어서 네트워크 경유로 파일을 체크할 경우에는 체크하려는 네트워크가 검색이 안 될 경우에는 프로그램이 먹통이 된 것처럼 잠시 멈쳐 버린다 그런 것을 해결하기 위해서 스레드로 이 처리를 하면 지정한 시간만 기다리고 응답이 없으면 다음 처리로 넘어가게 할 수 있다. 네트워크가 아닌 경우에는 FileExists는 폴더나 파일이 없으면 바로 다음 행으로 넘어간다. // 네트워크 파일 유뮤 체크 스레드 TCheckFileThread = class(TThread) private FFileName : String; FResult : Integer; protected procedure Execute;override; published property FileName : String read F..

명령 프롬프트에서 net file을 치면 누가 내 컴퓨터의 어떤 파일을 억세스 하고 있는지 알 수 있다. C:\>net file ID 경로 사용자 이름 잠금 수 ------------------------------------------------------------------------------- 224 D: RARARA 0 289 D:TEST FILE1234.xls RARARA 3 315 D: HAHAHA 0 443 D:\TEST-SYSTEM-소개-V2.ppt HAHAHA 0 명령을 잘 실행했습니다. C:\>net file > net.txt 프로그램 짤 때 이것을 참조하려면 빨간 글씨로 씌여진 것 처럼 하면 위의 내용을 텍스트 파일로 자신이 원하는 곳에 출력할 수 있다. 출력된 파일을 읽어들이면 ..

함수의 고무줄 파리미터 초간단 예제 #include #include void testit ( int i, ...) { va_list argptr; int n; // 가변 인수 수의 초기화 va_start(argptr, i); if ( i == 5 ) { for(int j = 0; j < i; j++) { // 다음 인수 얻기 n = va_arg( argptr, int ); printf( "%d\n", n ); } } else { char *s = va_arg( argptr, char* ); printf( "%s\n", s); } // 가변 인수 수의 리셋 va_end(argptr); } int main() { testit( 5, 12, 34, 56, 78, 90 ); testit( 1, "TEST" );..

델파이에서 날짜 더하고 빼기 예제 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DateUtils; procedure TForm1.Button1Click(Sender: TObject); var dtNow : TDateTime; dtThen : TDateTime; begin // IncDay 한날을 더한 날짜 반환 // IncMonth 한달을 더한 날짜 반환 // IncYear 한년을 더한 날짜 반환 // 오늘 날짜 표시 Label1.Caption := DateToStr(Now()); // 오늘 날에서 지정한 날짜 가감산 Label2.Caption := DateToStr(Inc..

리스트 구조를 파일에 쓰고 읽는 예제이다. 나는 머리가 안좋아서 그런지 리스트 구조가 깨끗하게 이해가 안된다. -.-;; // 리스트 구조 파일 #define DEBUG #include #include // 키 // -------------------------------------------------- typedef int key; // 키 입력 int input_key(char *szDisp, key *pKey) { printf("%s", szDisp); if(scanf("%d", pKey) != 1) return 0; // 입력 에러 return (*pKey > 0); // 입력 코드 양수 체크 } // 키 비교 int compare_key(key KeyA, key KeyB) { return (K..