삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

팁모음집 금주가 몇번째 주인지 어떻게 구합니까 function kcIsLeapYear( nYear: Integer ): Boolean; // 윤년을 계산하는 함수 begin Result := (nYear mod 4 = 0) and ((nYear mod 100 0) or (nYear mod 400 = 0)); end; function kcMonthDays( nMonth, nYear: Integer ): Integer; // 한달에 몇일이 있는지를 계산하는 함수 const DaysPerMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); begin Result := DaysPerMonth[nMonth]; if (n..

이따금씩 확장자는 BMP인데 개발할 때 TBITMAP로 하면 에러가 생길 경우가 있다. 이런 경우에는 다른 포맷의 이미지를 확장자만 바꾸었을 경우 발생한다. 해당 이미지를 선택하고 "확인" 버튼을 누르면 이 포맷이 어떠한 이미지 포맷인지 알려준다. Delphi 5

uses TypInfo; type TDeviceType = ( dtNone, dtPhone, dtPDA, dtNDA, dtMTP, dtXSync, dtMax ); GetEnumName(TypeInfo(TDeviceType), Ord(dtNDA)) ); 이렇게 할 경우 dtNDA 값이 문자열로 전달된다. 문자열에 대해 enum 값을 알아 낼 때는 GetEnumValue라는 함수를 사용하면 된다.

서버에서 Http 로 파일 받을 때 방법이다. procedure TForm1.DownloadProgressEvent(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean); begin if( (Progress

procedure TForm1.Button1Click(Sender: TObject); var StringList : TStringList; i : Integer; begin StringList := TStringList.Create; try StringList.Delimiter := ','; StringList.StrictDelimiter := True; // 이 부분을 빼면 빈공간도 구분해버린다. StringList.DelimitedText := 'abc de ff asfas,afsb dfgfg'; for i := StringList.Count-1 downto 0 do begin Memo1.Lines.Add(StringList.Strings[i]); end; finally FreeAndNil(Strin..

오.. 이제 델파이로 iPhone 개발이 가능해지는건가.. 하루 빨리 출시되어서 델파이로 iPhone 개발이 가능해지면 좋을텐데, Object-C 로 개발할려니.. 문법을 잘 몰라서 많이 헤메고 있는지라 ^^; http://www.ddaily.co.kr/news/news_view.php?uid=57847

interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; {new constant definitions} const NIF_INFO = $10; NIF_MESSAGE = 1; NIF_ICON = 2; NOTIFYICON_VERSION = 3; NIF_TIP = 4; NIM_SETVERSION = $00000004; NIM_SETFOCUS = $00000003; NIIF_INFO = $00000001; NIIF_WARNING = $00000002; NIIF_ERROR = $00000003; NIN_BALLOONSHOW = WM_USER + 2; NIN_BALLOONHIDE = WM_USER + 3; NIN..

// Uses에 ShlObj, ShellApi 추가 function GetFolderPath(iFolder : Integer) : String; var iID : PItemIDList; szPath : PChar; begin Result := ``; szPath := StrAlloc(MAX_PATH); if SHGetSpecialFolderLocation(Application.Handle, iFolder, iID) = NOERROR then begina SHGetPathFromIDList(iID, szPath); Result := StrPas(szPath); end; StrDispose(szPath); end;

const shlwapi32 = 'shlwapi.dll';function StrFormatByteSize(Size: int64): String;var P : array[0..255] Of WideChar;begin Result := StrFormatByteSizeW(Size, P, SizeOf(P));end;Function StrFormatByteSizeW; External shlwapi32 name 'StrFormatByteSizeW';