프로그래밍 노트

[델파이]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..

델파이에서 날짜 더하고 빼기 예제 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..

미국의 Embarcadero Technologies，Inc.는 2008년 5월7일 미국의 Borland Software Corp.의 개발 툴 부문인 CodeGear를 매수하는 것을 발표했다. 매수를 완료한느 것은 6월 30일을 예정하고 있다. 매수가격은 2300만 달러로 이로 Turbo Pascal등으로 한세대를 풍미했던 Borland 브랜드의 개발툴은 사라지게 된다. Borland Software사는 1990년대에 컴퓨터용 데이터베이스 소프트웨어에서 일등 기업이였던 미국의 Ashton-Tate 사나 워드프로세서의 WordPerfect사를 매수하는등 마이크로소프트에 이어 페키지 소프트웨어에서 2위였었다. Borland사 제품은 거의 모든 것이 마이크로소프트와 경쟁제품이였다. 그러나 마이크로소프트 사와의 ..

델파이 : 사용할 수 있는 COM 포트 정보를 레지스터리에서 가져오기 procedure TfrmMain.FormCreate(Sender: TObject); var i:integer; regCom : TRegistry; begin regCom := TRegistry.Create; with regCom do try RootKey := HKEY_LOCAL_MACHINE; if OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', False)then begin GetValueNames(cmbComPort.Items); for i := 0 to cmbComPort.Items.Count - 1 do begin cmbComPort.items[i] := ReadString(cmbComPort.it..

델파이에서 처음 스레드를 써보고 있는데 이런 에러가 떴다. Thread Error: The handle is invalid (6) 정말 내가 초보이기 때문에 뜨는 에러 였다. TThread의 컨스트럭터가 호출되지 않아서 에러가 뜬다고 한다. 문제가 생기는 스레드의 컨스트럭터의 마지막 부분에 inherited Create(False); 나 inherited Create(True); 를 넣으면 된다.

델파이에서 VC 8.0(VS 2005)에서 작성한 DLL을 사용하는데 개발환경이 셋업되어있지않은 곳에서 사용하는데 문제가 있어서 몇일간 삽질한 내용을 정리하고자한다. 테스트 환경 우선 Visual C++ Ver 8.0에서 DLL을 만들었다. 그리고 그것을 Delphi 2005에서 만든 실행 파일에서 불러서 쓰려했다. 실행파일을 실행한 OS는 Windows XP Professional SP2로 개발환경이 전혀 깔려있지않은 상태였다. ■ 첫번째 삽질 델파이라 만든 실행파일을 실행하면 아래의 메세지가 떴다. "응용 프로그램을 제대로 초기화하지 못했습니다(0xc0150002)." → 문제는 Visual C++ Ver 8.0에서 DLL을 만들 때 Debug 모드로 빌드를 해서 Debug용 DLL로 테스트를 했었다..

델파이에서 원하는 버젼 정보를 문자열로 넘겨주는 함수의 예제 type TVerKind = ( tvComments, // 코멘트 tvCompanyName, // 회사명 tvFileDescription, // 설명 tvFileVersion, // 파일버젼 tvInternalName, // 내부명 tvLegalCopyright, // 저작권 tvLegalTrademarks, // 상표 tvOriginalFilename, // 정식파일명 tvPrivateBuild, // Private Build tvProductName, // 제품명 tvProductVersion, // 제품버젼 tvSpecialBuild); // Special Build const csVerKey: array [TVerKind] of Stri..