프로그래밍 노트

try, except, finally을 한번에 쓰려고 아래와 같이 썼더니 안됬다. Try ... Except ... Finally ... End; 델파이에서 try, except, finally을 한번에 쓰려면 아래와 같이 써야된다고 한다. Try Try ... Except ... End; Finally ... End;

지정한 폴더에 들어있는 파일을 검색해서 TStringList로 반환해주는 함수 예제 서브 폴더 밑의 파일까지도 파일을 까지도 검색하는 함수 // ************************************************************ // 지정한 폴더 밑에 파일을 필터링하여 // 지정한 폴더 밑의 파일 리스트를 얻는 함수 // ************************************************************ procedure GetSearchedFileList(sPath : String; slFileList : TStringList; sWildStr : string; bSchSubFolder : Bool); var sTempPath : String; SchR..

위의 화면과 같은 폴더 다이알로그 표시하기 예제 uses FileCtrl; procedure TForm2.Button1Click(Sender: TObject); var sStr:String; begin if SelectDirectory('폴더 선택', '',sStr) then Button1.Caption := sStr; end; SelectDirectory 함수를 사용하면 폴던 선택 다이얼로그를 표시할 수 있다. uese에는 FileCtrl을 추가해야 된다. SelectDirectory(DisplayMessage : string, RootFolder : string, SeletedFoldername : string) DisplayMessage는 다이알로그에 표시되는 메세지 RootFolder는 표시하는 ..

함수에서 동적 배열과 정적 배열을 파라미터로 넘기는 방법 unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } // 정적 배열형 선언 type TArrVal = array[0..9] of Integer; function Static..

VB에서 사용하는 InStr은 Delphi에서 Pos 함수를 사용하면 된다. procedure TForm1.Button1Click(Sender: TObject); var sSearch : string; iSearch : integer; begin sSearch := '가나다라마바사'; iSearch := Pos('나',sSearch); // 반환값 = 3 iSearch := Pos('파',sSearch); // 반환값 = 0 end; 오래간만에 코드를 보니까 이렇게 간단한 것도 기억이 안나네 -.-;;

TIdFTP로 FTP 클라이언트를 만드는데 여러번 삽질을 했다. 자료가 많이 있거나 샘플이 어디 있는지 알면 좋았겠지만 내 검색 능력으로는 잘 검색되지 않아서 나름 고생했다. ■ FTP 서버 접속 // ftpCt: TIdFTP; 폼에서 선언 ftpCt.Host := edtHost.Text; // 기본 FTP 포트를 사용하는 경우, 설정 안해도 됨 ftpCt.Port := StrToInt(edtPort.Text); // Anonymous(익명)로 접속하는 경우 아래와 같이 설정 ftpCt.Username := 'anonymous';//edtId.Text; // 익명 접속일 경우 패스워드 설정할 필요 없음 //ftpCt.Password := edtPass.Text; // FTP 서버에 접속 ftpCt.Con..

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