프로그래밍 노트

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 := Edit1.SelStart;
  iAfterPointDigit := 3;
  iBeforePointDigit := 3;

  if iKey = $08 then exit;  // Back space

  // 수치와 소숫점과 마이너스만 입력 가능하게
  if not(iKey in [$2E, $2D, $30..$39]) then begin Key := #0; exit; end;

  iPos :=  Pos('-', sText);
  // 마이너스가 두개 입력되지 않게
  if (iPos > 0) and (iKey = $2D) then begin Key := #0; exit; end
  else if (iPos = 0) and (iKey = $2D) and (iSel > 0) then
    begin Key := #0; exit; end;

  iPos :=  Pos('.', sText);
  // 소숫점 두개 안들어가게
  if (iPos <> 0) and (iKey = $2E) then begin Key := #0; exit;  end
  // 숫자가 입력되지 않았을 때, 소수점 입력 안되게
  else if (iPos = 0) and (iKey = $2E) and (iLen = 0) then
    begin Key := #0; exit; end;

  // 소수점 있을 때 소수점 앞의 자릿수 제한
  if (iPos > 0 ) then
  begin
    if ((iLen - iPos - 1) > (iBeforePointDigit - 1)) then
      begin Key := #0; exit; end;
  end
  // 소수점 없을 때 소수점 앞의 자릿수 제한
  else
  begin
    if (iLen > iBeforePointDigit - 1) and (iKey <> $2E) then
      begin Key := #0; exit; end;
  end;

  // 소숫점 뒤의 자리수 제한
  if (iPos > 0 ) and ((iPos + iAfterPointDigit - 1) < iLen) then
    if iSel > iPos then begin Key := #0; exit; end;
end;

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);

    // 셀 별 오브젝트가 설정되었는지 확인
    // 오브젝트가 설정되어 있지 않을 경우 색을 오브젝트로 설정
    if Assigned(Objects[iCol, iRow]) then
      Objects[iCol, iRow] := nil
    else
      Objects[iCol, iRow] := TObject(clBlue);

  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do
  begin

    // 셀 별 어브젝트가 설정되었는지 확인
    if Assigned(Objects[ACol, ARow]) then
    begin
      // 색을 셀에 채우기
      Canvas.Brush.Color := TColor(Objects[ACol, ARow]);
      Canvas.FillRect(Rect);
    end;

    // 1열 녹색 채우기
    if ACol  = 1 then
    begin
      Canvas.Brush.Color := TColor(clGreen);
      Canvas.FillRect(Rect);
    end;

    // 2행 적색 채우기
    if ARow  = 2 then
    begin
      Canvas.Brush.Color := TColor(clRed);
      Canvas.FillRect(Rect);
    end;

    // 글자 표시
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
  end;
end;

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 := Canvas.Font.Style + [fsBold];

    // 오른쪽 정렬
    if ((ACol = 2) or (ACol = 0)) and (ARow <> 0) then
    begin
      crdOrgAlign := SetTextAlign(hdcTemp, TA_RIGHT);
      Canvas.TextRect(Rect,
                      Rect.Right - 2,
                      Rect.Top + 2,
                      Cells[ACol, ARow]);
      SetTextAlign(hdcTemp, crdOrgAlign);
    end
    // 가운데 정렬
    else if (ACol = 3) and (ARow <> 0) then
    begin
      crdOrgAlign := SetTextAlign(hdcTemp, TA_CENTER);
      Canvas.TextRect(Rect,
                      (Rect.Left + Rect.Right) DIV 2,
                      Rect.Top + 2,
                      Cells[ACol, ARow]);
      SetTextAlign(hdcTemp, crdOrgAlign);
    end
    // 맨 윗줄 가운데 정렬
    else if (ARow = 0) then
    begin
      crdOrgAlign := SetTextAlign(hdcTemp, TA_CENTER);
      Canvas.TextRect(Rect,
                      (Rect.Left + Rect.Right) DIV 2,
                      Rect.Top + 2,
                      Cells[ACol, ARow]);
      SetTextAlign(hdcTemp, crdOrgAlign);
    end
  end;
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)) and
               (SrcRec.Name <> '.') and (SrcRec.Name <> '..') then
           begin
             Inc(nCnt);
             // 파일명 추가
             lstLog.Items.Add(SrcRec.Name);
           end;
       until (FindNext(SrcRec) <> 0);
       Result := nCnt;
    finally
      FindClose(SrcRec);
    end;
  end;
end;

  // 네트워크 파일 유뮤 체크 스레드
  TCheckFileThread = class(TThread)
  private
    FFileName : String;
    FResult   : Integer;
  protected
    procedure Execute;override;
  published
    property FileName : String read FFilename write FFilename;
    property Result : Integer read FResult write FResult;
  end;

// 스레드 본체 : 파일 유무 체크
procedure TCheckFileThread.Execute;
begin
    Result := -1;
    // 파일 유무 체크
    if FileExists(FileName) = True then
      // 파일 유
      Result := 0
    else
      // 파일 무
      Result := 1;
    Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    CheckFile : TCheckFileThread;
    tick : Cardinal;
begin

    // 파일 유무 체크 스레드 기동
    CheckFile := TCheckFileThread.Create(True);
    CheckFile.Result := -2;
    CheckFile.FreeOnTerminate := False;
    // wwwi가 검색하려는 컴퓨터명(ip어드레스를 입력해도 됨)
    CheckFile.FileName := '\\wwwi\haha.txt';
    CheckFile.Resume;

    tick := GetTickCount;
    // 지정한 시간 만큼 대기하고 응답이 없으면 다음으로 넘어가기
    while (CheckFile.Terminated = False) and (GetTickCount - tick < 1000) do
    begin
      Application.ProcessMessages;
    end;

    case CheckFile.Result of
     -1:// Timeout
      begin
        // 타임아웃으로 끝났을 경우 스레드 종료
        TerminateThread(CheckFile.Handle, 0);
        Button1.Caption := 'Timeout';
      end;
      0:// Ok
      begin
        Button1.Caption := 'Ok';
      end;
      1:// no file
      begin
        Button1.Caption := 'no file';
      end;
    end;
    CheckFile.Free;
end;

#include <stdio.h>
#include <stdarg.h>

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" );     

    return 0;
}

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(IncDay(Now(), -30));

  // 오늘에서 한달 더하기
  Label3.Caption := DateToStr(IncMonth(Now()));

  dtNow := Now();

  // TDateTime형에 데이터 입력
  dtThen := EncodeDateTime(2008, 9, 9, 12, 12, 12, 0);

  // DaysBetween
  //  : TDateTime 값의 차를 하루(24) 단위로 반환
  Label4.Caption := FloatToStr(DaysBetween(dtNow, dtThen));

  // DaySpan
  //  : TDateTime 값의 차의 그래도 반환
  Label5.Caption := FloatToStr(DaySpan(dtNow, dtThen));
end;