unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IsDigit(ch: Char): Boolean;
begin
  Result := ch in ['0'..'9'];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s1, s2: String;
  i: integer;
begin
  s1 := Edit1.text;

  for i:=1 to length(s1) do
  begin
    s2 := '';

    if IsCharAlphaNumeric(s1[i]) then
    begin
      s2 := s2 + '<영문 or 숫자>';

      if IsDigit(s1[i]) then
        s2 := s2 + '<숫자>'
      else if IsCharAlpha(s1[i]) then
      begin
        s2 := s2 + '<영문>';
        if IsCharLower(s1[i]) then
          s2 := s2 + '<소문자>'
        else if IsCharUpper(s1[i]) then
          s2 := s2 + '<대문자>'
      end;
    end
    else if IsDBCSLeadByte(Byte(s1[i])) then
    begin
      // IsDBCSLeadByte()는 double byte character set(DBCS) 의 lead byte인지 검사합니다
      s2 := s2 + '<한글 or 한문>';
    end;
    
    Memo1.Lines.Add(s1[i]+' = '+s2);
  end;  
end;

end.

해당사이트의 referer 차단으로 인해 403 forbidden 에러나 기타 사용자가 지정한 에러로 막혀서

밤새 고민 했는데

의외로 idhttp나 httpcli 자체에 reference 기능이 있어서 허탈했다.

property에 가보면 reference에 해당 사이트의 주소를 입력하면 이미지나 기타 파일들을 잘 가져오는 것을 볼 수 있다.

Where is this error coming from? In the example we are using DataSnap TCP/IP connectivity, which is internally implemented using Indy framework. The Indy implementation has changed between XE and XE3 versions, so there are little changes needed. On the server it is necessary to add "IPPeerServer" to the interface "uses" clause in the "ServerContainerUnit1" and on client we need to add "IPPeerClient" to the interface "uses" clause in the "ClientModuleUnit1". In fact the IDE can add these entries automatically. Just put the cursor somewhere in the "uses" clause of these two files and when you press "Enter" correct entries will be added for You! Cool:-)

I have also added a project group file "SimpleCalcGrp" and updated forms’ captions to "XE3".

---------------------------

델파이 XE의 멀티티어 서버 예제를 XE3에서 실행하면 다음과  같은 에러를 확인 할 수 있다.

uses절에 IPPeerServer를 추가하면 해결.

var
  aaa : Integer;
begin
  aaa :=  StrToIntDef('a',-1);

  edt_1.Text := FormatFloat('#,',aaa);

세자리수 마다 끊어서 , 출력

녕하세요.

StringGrid 내용을 자동으로 스크롤 시키는 팁이 있어서 소개해 드립니다.

StringGrid의 데이터 영역에서 마우스를 클릭한 상태로 상하좌우로 이동하면

데이터 영역이 자동으로 스크롤 됩니다.

루틴은 아래와 같이 간단 합니다.

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  px,py: Integer;
begin
  if not flag then Exit;
  //if not(ssCtrl in Shift) then Exit;

  px := GetScrollPos(StringGrid1.Handle, SB_HORZ);
  py := GetScrollPos(StringGrid1.Handle, SB_VERT);
  px := px - (X - x1);
  py := py - (Y - y1);

  StringGrid1.Perform(WM_HSCROLL, px shl 16 or SB_THUMBPOSITION, 0);
  StringGrid1.Perform(WM_VSCROLL, py shl 16 or SB_THUMBPOSITION, 0);

  x1 := X;
  y1 := Y;
end;

여러가지로 응용이 가능 할 것 같은데요...

팁은 담비님(천리안 FREKBS)님이 99년 4월 1일에 천리안 프로그래머포럼에 올리신 것입니다.
담비님으로부터는 전제하여 올리는 데 대해 허락을 받았습니다.
좋은 정보를 공유하도록 허락해주신 담비님께 감사드립니다.

-----------------------------------------------------------------------
안녕하세요! 담비입니다.

출처 : http://www.inprise.co.jp/tips/cbuilder/cb010/index.html

메모 콤포넌트는 윈도우 클래스의 "EDIT"를 사용하고있지만, 모든 메세지를 커버
하는것은 아니다. 메모 콤포넌트가 제공하고 있지 않는 주요한 메세지들에 관하여
소개한다.

메모 콤포넌트와 메세지
----------------------

Memo Component는 복수행에 걸쳐 문자열을 편집할 수 있는 기본적인 component이다.
이것은, Windows가 제공하는 Window Class인 "EDIT"를 사용하여 실현하고 있다.
Memo Component는, "EDIT" 클래스가 메세지에 의해 제공하고 있는 기능을 많은
method나 property를 사용해 이용할 수 있도록 하고 있다. 그러나, 그다지 사용되지
않는 일부의 메세지에는 대응하는 property와 method가 존재하지 않는다. 아래는,
Memo Component를 사용하여 제공되지 않는 주요한 메세지와 그 사용 예를
나타낸것이다. 다시말하자면 , 콤포넌트에 메세지를 보내기위해 Perform method를
사용할 수 있다. Perform의 첫번째 인수에는 메세지를 두번째 인수에는
WParam(int형), 세번째 인수에는 LParam(int형)을 건네준다. WParam과 LParam은
메세지마다의 역할이 다르다. 이들 인수가 사용되지 않는 경우에는 0을 건네준다.

EM_GETRECT, EM_SETRECT, EM_SETRECTNP
──────────────────
Memo 컴포넌트중에서 편지영역으로 사용할 영역을 취득, 설정한다.
Perform의 LParam에는, 지정하는 범위를 나타내는 RECT형 변수의 주소를 건내준다.
예를 들자면, 다음의 프로그램은, Memo1 컴포넌트의 편집 영역을 Memo1 전체로부터
10 dot 이내로 한다. EM_SETRECTNP는, 메모 컴포넌트의 내용을 다시 그리지는
않는다는 점을 제외하고, EM_SETRECT와 동일하다.

    RECT R := Memo1->ClientRect;
    InflateRect(&R, -10, -10);
    Memo1->Perform(EM_SETRECT, 0, (int)&R);

    RECT R;
    Memo1->Perform(EM_GETRECT, 0, (int)&R);
    int N = (R.bottom - R.top) / Canvas->TextHeight("H");

    Memo1->Perform(EM_SCROLL, SB_LINEDOWN, 0);

    Memo1->Perform(EM_LINESCROLL, 2, 2);

    void __fastcall TForm1::Memo1KeyUp(TObject *Sender, WORD &Key,
          TShiftState Shift)
    {
        Caption = IntToStr(Memo1->Perform(EM_LINEFROMCHAR, -1, 0) + 1);
    }

    DWORD TabStops[1] = { 4 * 2 };
    Memo1->Perform(EM_SETTABSTOPS, 1, (int)TabStops);

    Memo1->Perform(EM_SETMARGINS,
                   EC_LEFTMARGIN : EC_RIGHTMARGIN, MAKELONG(20, 30));

    void __fastcall TForm1::Memo1MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y)  
    {
        DWORD DW = Memo1->Perform(EM_CHARFROMPOS, 0, MAKELONG(X, Y));
        Caption = IntToStr(LOWORD(DW)) + ":" + IntToStr(HIWORD(DW));
    }