::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-06 21:08:37, Hit : 5021, Vote : 1507
 윈도우즈의 "국가별 설정" 읽어오기

// 아래 예제에서 보여준 국가별 설정값 이외의 국가별 설정값은
// sysutils.pas 에서 "procedure GetFormatSettings;" 로 검색하거나
// windows.pas 에서 "LOCALE_"으로 검색해보면 자세한 내용이 있습니다

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, numedit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  DefaultLCID: LCID;
  sthousand, sgrouping: String;
begin
  DefaultLCID := GetThreadLocale;

  // 자릿수 구분기호
  sthousand := GetLocaleChar(DefaultLCID, LOCALE_STHOUSAND, ',');
  ShowMessage(sthousand);

  // 자릿수 구분단위
  sgrouping := GetLocaleStr(DefaultLCID, LOCALE_SGROUPING, '3');
  if Pos(';', sgrouping) > 0 then
    sgrouping := Copy(sgrouping, 1, Pos(';', sgrouping)-1);
  ShowMessage(sgrouping);
end;

end.





651   [시스템] OS가 NT인지 95인지 판단하려면...  김영대 2003/03/06 4169 1191
650   [시스템] 2기가 이상의 하드의 남은 용량 알아내기...  김영대 2003/03/06 7444 2076
649   [시스템] CPU의 사용률 구하기  김영대 2003/03/06 3259 831
648   [윈도우즈 API] 비트맵을 프린트 하려면...  김영대 2003/03/06 3227 984
647   [시스템] IME창을 없애려면...  김영대 2003/03/06 5488 1695
646   [윈도우즈 API] 바탕화면의 아이콘 제목을 투명하게 하자...  김영대 2003/03/06 5195 1587
645   [윈도우즈 API] 레지스트리가 변경된 사실을 알리려면...  김영대 2003/03/06 4324 1157
644   [데이터베이스] TMemoField와 TMemo 사이의 자료교환  김영대 2003/03/06 5285 1522
643   [일반/컴포넌트] String과 Case문의 사용  김영대 2003/03/06 3701 1029
642   [일반/컴포넌트] X 의 Y 승 ?  김영대 2003/03/06 5536 1686
641   [윈도우즈 API] 폼의 최대/최소화 막기  김영대 2003/03/06 4972 1330
640   [시스템] 프린터에 escape 코드를 전달하는 방법  김영대 2003/03/06 3791 1107
  [시스템] 윈도우즈의 "국가별 설정" 읽어오기  김영대 2003/03/06 5021 1507
638   [윈도우즈 API] 파일의 Universal Naming Convention (UNC)  김영대 2003/03/06 5224 1614
637   [시스템] 현재 CD의 Track과 시간 구하기  김영대 2003/03/06 5217 1401
636   [일반/컴포넌트] 주어진 파일에서 문자열 찾기  김영대 2003/03/06 4348 1082
635   [일반/컴포넌트] 문자열 역으로 만들기(reverse a string)  김영대 2003/03/06 4797 1438
634   [일반/컴포넌트] 주민등록번호를 검사하는 법  김영대 2003/03/06 3860 971
633   [일반/컴포넌트] 사업자 등록번호를 검사하는 법  김영대 2003/03/06 6743 1747
632   [일반/컴포넌트] 동적으로 class의 instance 만들기  김영대 2003/03/06 3769 1049
631   [윈도우즈 API] 다른 윈도우 스크롤 시키기  김영대 2003/03/06 6137 1687
630   [일반/컴포넌트] 디렉토리 복사루틴 (하부디렉토리 까지 몽땅)  김영대 2003/03/06 4579 1055
629   [일반/컴포넌트] 디렉토리 삭제루틴(하부디렉토리 몽땅)  김영대 2003/03/06 3519 956
628   [일반/컴포넌트] 임의의 디렉토리 만들어내기(입력한 상위 디렉토리부터 몽땅)  김영대 2003/03/06 2661 685
627   [일반/컴포넌트] Enter 키로 Tab 키처럼 콘트롤 이동하기  김영대 2003/03/06 3150 870
626   [일반/컴포넌트] 동적으로 메뉴(memu)에 Item 추가하기  김영대 2003/03/06 4840 1258
625   [일반/컴포넌트] Memo 의 UNDO 가능여부 검사와 UNDO 시키기  김영대 2003/03/06 2798 739
624   [알고리즘] Shell Sort algorithm  김영대 2003/03/06 5668 1733
623   [알고리즘] Bubble Sort algorithm  김영대 2003/03/06 2502 660
622   [알고리즘] Quick Sort algorithm  김영대 2003/03/06 3103 894
621   [일반/컴포넌트] Algorithm to sort a TStringGrid #1  김영대 2003/03/06 3097 811
620   [일반/컴포넌트] TListView Subcolumn Sorting  김영대 2003/03/06 4470 1147
619   [일반/컴포넌트] 폼 인쇄하기  김영대 2003/03/06 2881 768
618   [시스템] 마우스의 좌/우 기능설정과 버튼갯수 알기  김영대 2003/03/06 7274 1970
617   [네트웍/인터넷] 네트워크의 컴퓨터 이름,작업 그룹,컴퓨터 설명  김영대 2003/03/06 5060 1134
616   [일반/컴포넌트] 문자열에 들어있는 한글과 영문의 문자수  김영대 2003/03/06 3788 963
615   [시스템] 윈도우즈 국가별 설정의 언어 알아내기  김영대 2003/03/06 4486 1250
614   [네트웍/인터넷] 네트워크 환경의 컴퓨터 리스트 구하기  김영대 2003/03/06 5931 1521
613   [일반/컴포넌트] ListBox에 배경그림 넣기  김영대 2003/03/06 4237 1054
612   [데이터베이스] JPEG(JPG), BMP 를 DB에 저장하고 불러오기  김영대 2003/03/06 5530 1243

[1][2][3][4][5][6][7][8] 9 [10]..[25] [다음 10개]
 

Copyright 1999-2020 Zeroboard / skin by zero