�����Fhttp://www.econos.de/delphi/cs.html
�󒍁F �Ɠ��ȃ��[�����ڂɕt���܂��B�|�󂵂Ă݂����̂́A�����ߏo���邩�ǂ����́c�c�����ł��B

2004/09/13 0.1.0 ����
2006/04/18 0.2.0 �S�̓I�Ɍ�����


�T�C�g���֘A�����N�FObject Pascal �X�^�C���K�C�h , The Delphi Bug List ���{���



Delphi 4 �J���҃K�C�h �R�[�f�B���O�W��

Copyright © 1998 Xavier Pacheco and Steve Teixeira

Modifications © 1998 Econos - Stefan Hoffmeister
Version 1.1.0
29 September 1998
Republished with permission

�ύX����Ă��Ȃ��I���W�i���o�[�W�����͈ȉ��ɂ���܂�:

Delphi 4 Developer's Guide Homepage

���̕����̂قƂ�ǑS�Ă̓��e�́AXavier Pacheco �� Steve Teixeira �Ƃɂ���č쐬���ꂽ�I���W�i���̕��������ɂ��Ă��܂��B���̕�������邽�߂ɁA�ق�̏����̕ύX�������������Ă��܂��B

Delphi Information Resources �ɖ߂�

����

��ʓI�ȃ\�[�X�R�[�h�̃t�H�[�}�b�g�K�� Object Pascal �t�@�C�� �t�H�[���ƃf�[�^���W���[�� �p�b�P�[�W �R���|�[�l���g
 

����

���̕����� Delphi 4 Developer's Guide �Ŏg�p����Ă��� Delphi �v���O���~���O�̃R�[�f�B���O�W���ɂ‚��ďq�ׂĂ��܂��B�����̗�O�������A�S�ʓI�ɂ��̕����́ABorland International �ɂ���Ďg�p����Ă��邵�΂��� "����Ȃ�" �t�H�[�}�b�g�K�C�h���C���ɏ]���Ă��܂��BDelphi 4 Developer's Guide �ɂ��̕������܂߂Ă���ړI�́A�J���`�[�������̃R�[�f�B���O�ɑ΂��Ĉ�т����X�^�C���������ł�����@��񋟂��邱�Ƃł��B���̖ړI�́A�`�[���̃v���O���}�S�������̃v���O���}�ɂ���ď����ꂽ�R�[�h�𗝉��ł���悤�ɂ��邱�Ƃł��B����́A��ѐ����������邱�Ƃɂ����“ǐ��̍����R�[�h���쐬���邱�ƂŒB������܂��B

�R�[�f�B���O�W���ɑ��݂���ł��낤�S�Ă����̕������܂�ł����ł͌����Ă���܂���B�������Ȃ���A���Ȃ��̕W���𓾂�����ɂ͏\���ȏڍׂ��܂�ł��܂��B���Ȃ��̃j�[�Y�ɍ��킹�邽�߂ɁA�����̕W�������R�ɗ��p�E�C�����Ă��������B�������Ȃ���ABorland �̊J���X�^�b�t�ɂ���Ďg�p����Ă��邱�̕W�����炠�܂肩�����ꂷ���Ȃ����Ƃ𐄏����܂��B���B������𐄏����闝�R�́A���Ȃ������Ȃ��̃`�[���ɐV�����v���O���}��A��ė����Ƃ��A�ނ炪�����Ƃ�����Ă������ȕW���� Borland �̕W��������ł��B���̃R�[�f�B���O�W���̕����Ɠ����悤�ɁA���̕����͕K�v�ɉ����Đi�����čs���܂��B���̂��߁A�ŐV�̃o�[�W�����̓I�����C���� http://www.xapware.com/ddg/ �ɂČ��‚��邱�Ƃ��o���܂��B[����: ����͂��̕����� �I���W�i���� �C������Ă��Ȃ��o�[�W�����ɓK�p����܂��B]���̕����� ���[�U�[�C���^�[�t�F�C�X�W�� �������܂���B����͕ʂ̂��̂ł����A�������d�v�ȃg�s�b�N�ł��B�T�[�h�p�[�e�B�̏��Ђ� Microsoft �̕��������̎�̃K�C�h���C�����\���ɃJ�o�[���Ă���̂ŁA���B�͂킴�킴���̏��𕡐�����̂ł͂Ȃ��A���̏��𗘗p�”\�� Microsoft Developers Network �₻�̑��̏�񌹂��������Ƃɂ��܂����B

Econos �� Stefan Hoffmeister �ɂ���Ă��̕����ɓK�p���ꂽ�ύX�́A�Ԃ� �F�t������Ă��܂��B���̕ύX�̓I���W�i�������̕��͂̕ύX�܂��͒lj��ł���A���C�A�E�g�⏑���̕ύX�ł͂���܂���B

 

��ʓI�ȃ\�[�X�R�[�h�̃t�H�[�}�b�g�K��

�C���f���g

�C���f���g�� 1 ���x�������� 2 �‚̋󔒕����ɂ��܂��B�\�[�X�t�@�C�����Ƀ^�u������ۑ����Ă͂����܂���B�^�u�����́A���[�U�[�ݒ��\�[�X�Ǘ����[�e�B���e�B(����E�A�[�J�C�u�E�o�[�W�����R���g���[����)�ɂ���ĈقȂ镝�ɓW�J����邽�߂ł��B

�c�[�����j���[�̃G�f�B�^�I�v�V������ "�^�u�����̎g�p" ���I�t�ɂ��A"�I�v�e�B�}���t�B��" ���I���ɂ��邱�ƂŃ^�u�������ۑ������̂��֎~�ł��܂��B

�}�[�W��

�}�[�W���� 80 �����ɃZ�b�g���܂��B��ʂɁA�P����I��������Ƃ��̗�O�������ă\�[�X�͂��̃}�[�W���𒴂���ׂ��ł͂���܂��񂪁A���̃K�C�h���C���͑����_��ł��B�”\�ł���ΕK���A1 �s�𒴂���X�e�[�g�����g�̓R���}�܂��͉��Z�q�̌�Ő܂�Ԃ��ׂ��ł��B�X�e�[�g�����g��܂�Ԃ��ꍇ�A�_���I�ɂ܂Ƃ܂��������������C���f���g���x���ɂȂ�悤���C���f���g����ׂ��ł��B

�R�����g

�R�����g�ɂ͒ʏ� { } �̃y�A���g�p����ׂ��ł��B

�����ЂƂ‚̃R�����g�\�L (* *) �́A�J�����Ɉꎞ�I�ɃR�[�h���폜("�R�����g�A�E�g")����Ƃ��̂��߂ɗ\�񂳂��ׂ��ł��B

// �̓R�����g����s�̏ꍇ�Ɍ����Ďg�p����ׂ��ł��B

������`

������`�͒����� - "{", "}" - �Ƒ啶���̏����R�}���h�Ƃŏ����ׂ��ł��B

�R�[�h�̉“ǐ������߂邽�߂ɁA�e������`�̃u���b�N�̏I���ɂ����������L�q���܂��B

�����͒ʏ�̃u���b�N�Ɠ������@�ŃC���f���g����ׂ��ł��B
��

  if ... then
  begin
    {$IFDEF VER90}
      raise Exception.CreateRes(SError);
    {$ELSE}
      raise Exception.Create(SError);
    {$ENDIF VER90}
  end;

Begin..End

begin �X�e�[�g�����g�͂��ꂾ���ŒP�Ƃ̍s�ɂ��܂��B�Ⴆ�Έȉ��� 1 �s�ڂ͌��ŁA2 �s�ڂ������ł��B

  for I := 0 to 10 do begin // ���Bbegin �� for �Ɠ����s�ɂ���B

  for I := 0 to 10 do       // �������Bbegin ���ʂ̍s�ɏ�����Ă���B
  begin

���̋K���̗�O�Ƃ��āAbegin �X�e�[�g�����g�� else �̈ꕔ�Ƃ��Č����ꍇ�ɂ͈ȉ��̂悤�ɏ������Ƃ��o���܂��B

  if some statement = ... then
  begin
    ...
  end
  else begin
    SomeOtherStatement;
  end;

�������Ȃ���A���D�܂����������͈ȉ��̒ʂ�ł��B

  if some statement = ... then
  begin
    ...
  end
  else
  begin
    SomeOtherStatement;
  end;

�Ȃ��Ȃ�Abegin �X�e�[�g�����g���Ή����� if �X�e�[�g�����g�Ə�ɓ������x���Ɍ���邽�߂ł��B

end �X�e�[�g�����g�͏�ɂ��ꂾ���ŒP�Ƃ̍s�ɂ��܂��B

begin �X�e�[�g�����g�� else �̈ꕔ�ł͂Ȃ��ꍇ�A�Ή����� end �X�e�[�g�����g�� begin �Ɠ������x���ɃC���f���g���܂��B

 

Object Pascal

����

�J�����ʂƂ��̎��̕����Ƃ̊Ԃɋ󔒂����Ă͂����܂���B�����悤�ɁA�‚����ʂƂ��̑O�̕����Ƃ̊Ԃɂ��󔒂����Ă͂����܂���B�ȉ��̗�́A���ʂɊւ��������󔒂̋󂯕��Ɛ������󔒂̋󂯕��Ƃ������Ă��܂��B

  CallProc( AParameter ); // ���
  CallProc(AParameter);   // ������

�X�e�[�g�����g���ɗ]���Ȋ��ʂ��܂߂Ă͂����܂���B�\�[�X�R�[�h���ňӐ}����Ӗ��𐬂��̂ɕK�v�ȏꏊ�ł̂݊��ʂ��g�p����ׂ��ł��B�ȉ��̗�́A������p�@�Ɛ������p�@�Ƃ������Ă��܂��B

  if (I = 42) then              // ��� - �]���Ȋ���
  if (I = 42) or (J = 42) then  // ������ - �Œ���̊���

�\���ƃL�[���[�h

Object Pascal ����̗\���ƃL�[���[�h�́A��ɂ��ׂď������ł���ׂ��ł��B�f�t�H���g�ł͕��@���n�C���C�g���� IDE �̋@�\�������̒P��𑾎��ŕ\�����܂��B�����̒P��ɑ啶�����g�p����ׂ��ł͂���܂���B

�葱���Ɗ֐� (���[�`��)

���� / �t�H�[�}�b�g

�“ǐ������߂邽�߂ɁA���[�`���̖��O�͑啶���Ŏn�܂�L�������`���ɂ���ׂ��ł��B�ȉ��͌�����葱�����̗�ł��F

  procedure thisisapoorlyformattedroutinename;

���͓K�؂ɃL���s�^���C�Y���ꂽ���[�`�����̗�ł��F

  procedure ThisIsMuchMoreReadableRoutineName;

���[�`���ɂ͏������e��\���Ӗ��̂��閼�O��t����ׂ��ł��B���炩�̃A�N�V�������N�������[�`���ɂ́A���̃A�N�V�����̓�����O�ɕt���܂��B��F

  procedure FormatHardDrive;

���̓p�����[�^�̒l���Z�b�g���郋�[�`���͐擪�� Set ��t����ׂ��ł��B��F

  procedure SetUserName;

�l���擾���郋�[�`���͐擪�� Get ��t����ׂ��ł��B��F

  function GetUserName: string;

����

�t�H�[�}�b�g

�”\�ł���΁A�����^�̈����͂ЂƂ‚̃X�e�[�g�����g�ɂ܂Ƃ߂�ׂ��ł��B

  procedure Foo(Param1, Param2, Param3: Integer; Param4: string);
����

���ׂĂ̈����̖��O�͂��̖ړI��\���Ӗ��̂��閼�O�ɂ��A�T�^�I�ɂ͂��̃��[�`���ɓn����鎯�ʎq�̖��O�Ɋ�Â��܂��B�K�؂ł���΁A�����̑O�ɕ��� A ��u���܂��B��F

  procedure SomeProc(AUserName: string; AUserAge: integer);

���̃v���t�B�N�X "A" �́A���̈������N���X���̃v���p�e�B��t�B�[���h�̖��O�Ɠ������O�̏ꍇ�̂����܂����𖳂������߂̏K���ł��B

�����̏���

�ȉ��Ɏ��������̏����t���́A���W�X�^�Ăяo���̊��p�ɏd����u���Ă��܂��B

(�Ăяo�����ɂ����)�����Ƃ��ǂ��g�p�����������ŏ��ɒu���A���g���Ȃ����������̌�ɍ�����E�̏��ɕ��ׂ�ׂ��ł��B

���͈������o�͈����̑O�ɍ�����E�̏��ɒu���ׂ��ł��B

�����Ƃ���ʓI�Ȉ����������Ȉ����ւƍ�����E�̏��ɒu���ׂ��ł��B��F
SomeProc(APlanet, AContinent, ACountry, AState, ACity)

���̋K���̗�O�̓C�x���g�n���h���ł��B�C�x���g�n���h���̏ꍇ�ATObject �^�� Sender �Ƃ������O�̈��������΂��΍ŏ��̈����Ƃ��ēn����܂��B

�萔����

���R�[�h�E�z��EShortString�E�C���^�[�t�F�C�X�̈��������[�`�����ŕύX����Ȃ��ꍇ�A���̈����� const ��t����ׂ��ł��B����ɂ��A�����̕ύX����Ȃ��p�����[�^�������Ƃ������̗ǂ����@�Ŏ󂯓n���R�[�h���R���p�C�����������邱�Ƃ��m���ɂȂ�܂��B

���̑��̌^�̈����ł��A���ꂪ���[�`�����ŕύX����Ȃ��ꍇ�ɂ͔C�ӂ� const �p�����[�^�Ƃ��Ē�`���č\���܂���B����͌����ɂ͉e������܂��񂪁A���̃��[�`�����ĂԐl�Ƀp�����[�^�̗p�r�Ɋւ����葽���̏���񋟂��܂��B

���O�̏Փ�

�g�p���Ă����‚̃��j�b�g���������O�̃��[�`�����܂ނƂ��ɂ��̃��[�`�����Ăяo���ƁAuses �߂ɍŌ�Ɍ���郆�j�b�g�ɑ����郋�[�`�����Ă΂�܂��Buses �߂Ɉˑ��������̂����܂���������邽�߁A��ɈӐ}���郆�j�b�g����t���Ă��̃��\�b�h���Ăт܂��B�Ⴆ�΁A

  SysUtils.FindClose(SR);

�܂���

  Windows.FindClose(Handle);

�ϐ�

�ϐ��̖����ƃt�H�[�}�b�g

�ϐ��ɂ͂��̖ړI��\���Ӗ��̂��閼�O��t���܂��B

��ʂɃ��[�v����ϐ��ɂ� I�EJ�EK �̂悤�� 1 �����̖��O���t�����܂����A����͗Ⴆ�� UserIndex �̂悤�ȁA���Ӗ��̂��閼�O�̂ق����D�܂����ł��傤�B

Boolean �^�̕ϐ��̖��O�́A���� True �� False �̈Ӗ��𖾂炩�ɂ���̂ɏ\���Ȃقǐ����I�ł���ׂ��ł��B

�ϐ��錾

�ϐ���錾����Ƃ��A�ЂƂ‚̌^�ɑ΂��ĕ����̐錾��u���ׂ��ł͂���܂���B�e�ϐ��ɂ͏�ɂ��ꂼ��̌^���w�肵�܂��B��F

  var
    i: Integer;
    j: Integer;

�e�ϐ��錾�̑O�ɃL�[���[�h var ��u���Ă��\���܂���B��F

  var i: Integer;
  var j: Integer;

���[�J���ϐ�

�葱�����Ŏg�p����郍�[�J���ϐ��́A���̂��ׂĂ̕ϐ��̂��߂̎g�p�@�Ɩ����K���Ƃɏ]���܂��B�ꎞ�ϐ����K�؂ɖ������܂��B

���[�J���ϐ��̏��������K�v�ȏꍇ�A���[�`���̓�����̒����ōs���܂��B���[�J���� AnsiString �^�ϐ��͎����I�ɋ󕶎���ɏ���������A���[�J���� interface �^�� dispinterface �^�̕ϐ��͎����I�� nil �ɏ���������A���[�J���� Variant �^����� OleVariant �^�̕ϐ��͎����I�� Unassigned �ɏ���������܂��B

�O���[�o���ϐ��̎g�p

�O���[�o���ϐ��̎g�p�͊��߂��܂��񂪁A�K�v�ł���Ύg�p���Ă��\���܂���B�������g�p����ꍇ�ł��A���ꂪ�g�p�����R���e�L�X�g���ł̂݃O���[�o���ł���悤�Ɉێ����邱�Ƃ���������܂��B�Ⴆ�ΒP��̃��j�b�g�̎������̃X�R�[�v�ł̂݃O���[�o���ł��邱�ƂȂǂ�������܂��B

�����̃��j�b�g����g�p�����O���[�o���f�[�^�́A���ׂẴ��j�b�g����g�p����鋤�ʂ̃��j�b�g�Ɉړ�����ׂ��ł��B

�O���[�o���f�[�^�� var �Z�N�V�������Œ��ڏ��������邱�Ƃ�������Ă��܂��B�O���[�o���f�[�^�͎����I�Ƀ[���ŏ���������邱�Ƃ�Y��Ȃ��ł��������B���������ăO���[�o���ϐ��� 0�� nil�A''�AUnassigned �Ƃ����� "���" �l�ŏ��������Ȃ��ł��������B���̗��R�̂ЂƂ‚́A�[���ŏ����������O���[�o���ϐ��� exe �t�@�C�����ɗ̈�����Ȃ����߂ł��B�[���ŏ����������f�[�^�̓A�v���P�[�V�����̃X�^�[�g�A�b�v���Ƀ��������ɂ̂݊��蓖�Ă���'���z'�f�[�^�Z�O�����g���ɕۑ�����܂��B�[���ȊO�ŏ����������O���[�o���f�[�^�� exe �t�@�C�����ɗ̈���߂܂��B

�O���[�o���ϐ����[���ŏ����������Ƃ����O��𖾎�����R�����g��lj�����ׂ��ł��B��F

  var
    i: Integer { = 0 };

�^

�L���s�^���C�Y

�\���̌^���͂��ׂď������ŏ����ׂ��ł��BWin32 API �̌^���͈�ʂɂ��ׂđ啶���ł��̂ŁAWindows.pas �₻�̑��� API ���j�b�g���Ŏ�����邻�ꂼ��̌^�̊���ɂ��������ׂ��ł��B���̑��̕ϐ����͍ŏ��̕�����啶���ɂ��A�c��̓L�������`���ɂ���ׂ��ł��B��F

  var
    MyString: string;  // reserved word
    WindowHandle: HWND; // Win32 API type
    I: Integer;         // type identifier introduced in System unit

���������_�^

Real �^�͌Â� Pascal �R�[�h�Ƃ̌���݊����̂��߂ɂ̂ݑ��݂��Ă��邽�߁A�g�p�͊��߂��܂���B��ʓI�ȕ��������_�̖ړI�ɂ� Double ���g�p���Ă��������BDouble �̓v���Z�b�T���߂ƃo�X�Ƃ̍œK���𑣂��^�ł���AIEEE ����`����W���t�H�[�}�b�g�ł�����܂��BExtended �� Double �����L���͈͂��K�v�ȏꍇ�ɂ̂ݎg�p���Ă��������BExtended �� Intel ���L�̌^�ł���AJava �ł̓T�|�[�g����܂���BSingle �͕��������_�ϐ��̕����I�ȃo�C�g�����d�v�ȏꍇ(�Ⴆ�Α��̌���� DLL ���g�p����悤�ȏꍇ)�ɂ̂ݎg�p���Ă��������B

�񋓌^

�񋓌^�̖��O�͂��̗񋓂̖ړI��ǂ��\�����O�łȂ���΂����܂���B���ꂪ�^�錾���ƕ�����悤�ɁA�^���� 1 �����ڂ� T �ɂ��܂��B�񋓌^�̊e���ʎq�́A���̗񋓌^�̖��O�Ɋ֘A���� 2 �����܂��� 3 �����̏�������O�ɕt����悤�ɂ��܂��B��F

  TSongType = (stRock, stClassical, stCountry);

�񋓌^�̕ϐ��̃C���X�^���X���́AFavoriteSongType1 �� FavoriteSongType2 �̂悤�ȋ�̓I�Ȗ��O��t���闝�R���Ȃ�����A�^������ 1 �����ڂ� T �����������O(SongType)�ɂ��܂��B

Variant �� OleVariant

Variant �^����� OleVariant �^�̎g�p�͈�ʂɊ��߂��܂��񂪁ACOM �� �f�[�^�x�[�X�Ȃǂ̊J�����ɂ��肪���ȁA���s���ɂ����f�[�^�^��m�邱�Ƃ��o���Ȃ��ꍇ�ɂ͂ǂ����Ă��K�v�ɂȂ�܂��B�I�[�g���[�V������ ActiveX �R���g���[���̂悤�� COM �x�[�X�̃v���O���~���O�ɂ� OleVariant ���g�p���A�� COM �v���O���~���O�ɂ� Variant ���g�p���܂��B���̗��R�́AVariant �� Delphi �l�C�e�B�u�̕������(string �^�Ɠ�����)�����悭�i�[���܂����AOleVariant �͂����镶����� Ole ������(WideChar ������)�ɕϊ����A�Q�ƃJ�E���^���g�p���ꂸ�A��ɃR�s�[����Ă��܂����߂ł��B

�\�������ꂽ�^

�z��^

�z��^�̌^���͂��̔z��̖ړI��ǂ��\�����O�łȂ���΂����܂���B�^���� 1 �����ڂ� T �ɂ��Ȃ���΂����܂���B�z��^�ւ̃|�C���^��錾����ꍇ�A1 �����ڂ� P �ɂ��A�z��^�̐錾�̒��O�Ő錾���Ȃ���΂����܂���B

  type
    PCycleArray = ^TCycleArray;
    TCycleArray = array[1..100] of Integer;

�z��^�̃C���X�^���X�ɂ́A�^������ 1 �����ڂ� T �����������O��t���܂��B

���R�[�h�^

���R�[�h�^�ɂ͂��̖ړI��ǂ��\�����O��t����ׂ��ł��B�^���� 1 �����ڂ� T �ɂ��Ȃ���΂����܂���B���R�[�h�^�ւ̃|�C���^��錾����ꍇ�A1 �����ڂ� P �ɂ��A���R�[�h�^�̐錾�̒��O�Ő錾���Ȃ���΂����܂���B�e�v�f�̌^�錾�́A�ЂƂ‰E�̃��x���ɃC���f���g���Ă��\���܂���B��F

  type
    PEmployee = ^TEmployee;
    TEmployee = record
      Name: string;
      Rate: Double;
    end;

��

if ��

if/then/else ���̒��ł����Ƃ��N����₷���P�[�X�� then �߂ɒu���A���H�ȃP�[�X�� else �߂ɒu���ׂ��ł��B

if ����A�����ď������Ƃ͔����A�”\�Ȃ����� case �����g�p����悤�ɂ��܂��B

if ���� 5 �i�K���[���l�X�g���Ă͂����܂���B��薾�ĂȃA�v���[�`���l���Ă��������B

if ���ɗ]���Ȋ��ʂ��g�p���Ă͂����܂���B

�ЂƂ‚� if ���ŕ����̏������e�X�g����ꍇ�A�v�Z�ʂ̏��Ȃ��������珇�ɍ�����E�ւƕ��ׂ�ׂ��ł��B����ɂ��R���p�C���ɑg�ݍ��܂ꂽ�Z���]���̉��b���󂯂邱�Ƃ��ł��܂��B�Ⴆ�΁ACondition1 �� Condition2 ���v�Z�ʂ����Ȃ��ACondition2 �� Condition3 ���v�Z�ʂ����Ȃ��ꍇ�A�ȉ��̂悤��if �����L�q����ׂ��ł��B

  if Condition1 and Condition2 and Condition3 then

�����̏������e�X�g����Ƃ��A�e������ʁX�̍s�ɏ����ق����]�܂����ꍇ������܂��B����͓��ɁA�ЂƂ‚܂��͕����̏����������ꍇ�ɂ��Ă͂܂�܂��B���̃X�^�C����I�ԏꍇ�A�e�������݂��ɑ����悤�ɃC���f���g���܂��B

  if Condition1 and
     Condition2 and
     Condition3 then

�ʏ�A������E�ւƓǂނ����A�ォ�牺�ւƓǂނق����ȒP�ł��B���ɒ������G�ȍ\���̏ꍇ�͂Ȃ�����ł��B

if ���̈ꕔ����s�𒴂���ꍇ�A�����̍s���܂Ƃ߂邽�߂� begin/end ���g�p����ׂ��ł��B���̋K���́A1 �s�̃R�����g�����������ꍇ��A�ЂƂ‚̕����܂�Ԃ���ĕ����s�ɂ܂�����ꍇ�ɂ��K�p����܂��B

else �߂͑Ή����� if �߂ɏ�ɑ�����ׂ��ł��B

case ��

��ʓI�ȃg�s�b�N

case �����̌X�� case �́A���l���܂��̓A���t�@�x�b�g���ɕ��ׂ�ׂ��ł��B���[�U�[��`�^���g�p���Ă���ꍇ�A�e�������̌^�̒�`���ɏ]���ĕ��ׂ܂��B

�����̏󋵂ł́Acase �����d�v�x��q�b�g����p�x�̏��ɕ��ׂ�ق����]�܂�����������܂���B

�e case �̎��s���̓V���v���ɂȂ�悤�ɂ��A��ʂ� 4�E5 �s�𒴂���ׂ��ł͂���܂���B���s���������ƕ��G�ȏꍇ�A���̃R�[�h�͕ʂ̎葱����֐��ɒu���ׂ��ł��B���̖ړI�ɂ̓��[�J���葱���⃍�[�J���֐����ƂĂ��K���Ă��܂��B

case ���ł� else �߂̎g�p�̓f�t�H���g�̏ꍇ�Ɍ�����ׂ��ł��Belse �߂ł͗Ⴆ�Η�O�𐶐�����Ȃǂ��āA�G���[���o�ƑO��̖������Ƃ̂��߂Ɏg�p����ׂ��ł��B

case ���̊e���̓C���f���g����Ȃ���΂����܂���B���ׂĂ̏������� begin..end �u���b�N���ɏ����ׂ��ł��Belse �߂� case ���ɑ����܂��B��F

  case Condition of

    condition:
      begin
        ...
      end;

  else { case }
    ...
  end;

case ���� else �߂ɂ́A���ꂪ case ���ɑ����邱�Ƃ������R�����g��t����ׂ��ł��B

�t�H�[�}�b�g

�C���f���g�Ɩ��O�t���Ƃ̋K���Ɋւ��āAcase ���͂��̑��̍\���Ɠ����K���ɏ]���܂��B

while ��

while ���[�v�𔲂��邽�߂� Exit �葱�����g�p���邱�Ƃ͊��߂��܂���B�”\�ł���΁A���[�v�����������g�p���ă��[�v���甲����ׂ��ł��B

while ���[�v�̂��߂̏������R�[�h�͂��� while ���[�v�̓�����̒��O�ɏ����ׂ��ł��B���̑��̊֌W�̂Ȃ����ɂ���Đ؂藣�����ׂ��ł͂���܂���B

���ׂĂ̌㏈���̓��[�v�̒���ɍs���ׂ��ł��B

for ��

���߂�ꂽ�񐔂����R�[�h�����s���Ȃ���΂Ȃ�Ȃ��ꍇ�Awhile ���̑����for �����g�p����ׂ��ł��B

�X�e�b�v����(2 �ȏ�̉��Z�E���Z)���K�v�ȏꍇ�A�������Ă�����̃��[�v�[����n�܂�I�������܂ŌJ��Ԃ� while �����g�p���܂��B��F

  i := AList.Count-1;
  while i => 0 do
    i := i - 2;

repeat ��

repeat ���� while �Ǝ��Ă���A���l�̈�ʓI�K�C�h���C���ɏ]���ׂ��ł��B

with ��

��ʓI�ȃg�s�b�N

with ���͏\���ɒ��ӂ��ĐT�d�Ɏg�p����ׂ��ł��Bwith ���̑��p�͔����Awith ���̒��ŕ����̃I�u�W�F�N�g�⃌�R�[�h���g�p����ꍇ�͒��ӂ��Ă��������B��F

  with Record1, Record2 do

���̂悤�ȃR�[�h�̓v���O���}�����������邤���A���‚���o�O�̌����ƂȂ�܂��B

�t�H�[�}�b�g

�C���f���g�Ɩ��O�t���Ƃ̋K���Ɋւ��āAwith ���͂��̕����Ő�������Ă���K���ɏ]���܂��B

�\������O����

��ʓI�ȃg�s�b�N

��O�����̓G���[�����ƃ��\�[�X�ی�Ƃ̂��߂ɕp�ɂɎg�p�����ׂ��ł��B����͂‚܂�A���\�[�X�����蓖�Ă�̂ł���΁A���̃��\�[�X���m���ɊJ�����邽�߂� try..finally ���g�p����ׂ����Ƃ������Ƃł��B���̋K���̗�O�́A���\�[�X�̊��蓖��/�J�������j�b�g�� initialization / finalization �ōs���ꍇ�ƁA�I�u�W�F�N�g�� constructor / destructor �ōs���ꍇ�ł��B

try..finally �̎g�p

�”\�ł���΃��\�[�X�̊��蓖�Ė��� try..finally �\�����g�p���܂��B�Ⴆ�Έȉ��̂悤�ȃR�[�h�̓o�O�̌����ɂȂ�”\��������܂��B

  SomeClass1 := TSomeClass.Create
  SomeClass2 := TSomeClass.Create;
  try
    { do some code }
  finally
    SomeClass1.Free;
    SomeClass2.Free;
  end;

�����S�ȕ��@�͎��̒ʂ�ł��F

  SomeClass1 := TSomeClass.Create
  try
    SomeClass2 := TSomeClass.Create;
    try
      { do some code }
    finally
      SomeClass2.Free;
    end;
  finally
    SomeClass1.Free;
  end;

try..except �̎g�p

��O�������ɉ��炩�̏��������s�������ꍇ�ɂ̂� try..except ���g�p���Ă��������B��ʂɁA�G���[���b�Z�[�W����ʂɕ\�����邽�߂����� try..except ���g�p����ׂ��ł͂���܂���B�Ȃ��Ȃ炻��� Application �ɂ���Ď����I�ɍs���邽�߂ł��B except �߂ʼn��炩�̏��������s������Ƀf�t�H���g�̗�O�������Ăяo�������ꍇ�A���̗�O�n���h���ւ̗�O���Đ������邽�߂� raise ���g�p���Ă��������B

try..except..else �̎g�p

try..except �ł� else �߂̎g�p�́A�������Ă͂Ȃ�Ȃ���O���܂߂Ă��ׂĂ̗�O���u���b�N���Ă��܂����߁A���߂��܂���B

�N���X

���� / �t�H�[�}�b�g

�N���X�̌^���͂��̃N���X�̖ړI��ǂ��\�����O�ɂ��܂��B�^���͂��ꂪ�^�錾�ƕ�����悤�ɕ��� T ��O�ɒu���Ȃ���΂����܂���B��F

  type
    TCustomer = class(TObject)

��ʂɁA�N���X�̃C���X�^���X���̓N���X������O�u�� T �����������O�ƈ�v���܂��B��F

  var
    Customer: TCustomer;

�t�B�[���h

���� / �t�H�[�}�b�g

�N���X�̃t�B�[���h���́A���ꂪ�t�B�[���h���Ƃ������Ƃ�\�����߂Ƃ��� F ��O�ɒu�����Ƃ������A�ϐ��̖����Ɠ����K���ɏ]���܂��B

�Ž���

���ׂẴt�B�[���h�� private �ł���ׂ��ł��B�N���X�̊O����A�N�Z�X�����”\��������t�B�[���h�ɂ̓v���p�e�B��ʂ��ăA�N�Z�X�ł���悤�ɂ��܂��B

�錾

�e�t�B�[���h�͂��ꂼ��̌^�Ƌ��ɕʁX�̍s�ɐ錾����ׂ��ł��B��F

  TNewClass = class(TObject)
  private
    FField1: Integer;
    FField2: Integer;
  end;

���\�b�h

���� / �t�H�[�}�b�g

���\�b�h���́A���̕����ɏ�����Ă���葱���E�֐��̂��߂̖����Ɠ����K���ɏ]���܂��B

�ÓI���\�b�h�̎g�p

�q�N���X�ŃI�[�o�[���C�h���ꂽ���Ȃ��ꍇ�ɐÓI���\�b�h���g�p���܂��B

���z���\�b�h / ���I���\�b�h�̎g�p

���z���\�b�h�͎q�N���X�ŃI�[�o�[���C�h�����ꍇ�Ɏg�p���܂��B(���ڂ܂��͊Ԑڂ�)�����̎q�N���X�����݂���N���X�ł̂ݓ��I���\�b�h���g�p����ׂ��ł��B�Ⴆ�΁A�܂�ɃI�[�o�[���C�h������‚̃��\�b�h�� 100 �̎q�N���X�Ƃ����ƒN���X�ł́A���� 100 �̎q�N���X�Ŏg�p����郁������ߖ񂷂邽�߂ɁA���̃��\�b�h�� dynamic �ɂ���ׂ��ł��B

�������Ȃ���A���z���\�b�h�̑���ɓ��I���\�b�h���g�p���邱�ƂŃ������v�����팸�����ۏ؂͂���܂���B����ɁA���\�[�X����ʂƂ����ϓ_���猩���ꍇ�A���I���\�b�h�ɂ�闘�v�͂����킸���Ȃ��̂ł��B���������āA���悤�Ɍ������Ƃ��o���܂��F

�ʏ�͉��z���\�b�h���g�p���A��O�I�� �󋵂ł̂ݓ��I���\�b�h���g�p���܂��B

���ۃ��\�b�h

�C���X�^���X�������N���X�ł͒��ۃ��\�b�h���g�p���Ă͂����܂���B�C���X�^���X�������č���邱�Ƃ̂Ȃ����N���X�ł̂ݒ��ۃ��\�b�h���g�p���Ă��������B

�v���p�e�B�A�N�Z�X���\�b�h

���ׂẴA�N�Z�X���\�b�h�́A�N���X�錾�� private ���܂��� protected ���ɒu���Ȃ���΂����܂���B

�v���p�e�B�̃A�N�Z�X���\�b�h�̖����́A�葱����֐��Ɠ����K���ɏ]���܂��B���[�h�A�N�Z�T���\�b�h(�ǂݎ�胁�\�b�h)�� Get ��O�u���Ȃ���΂����܂���B���C�g�A�N�Z�T���\�b�h(�������݃��\�b�h)�� Set ��O�u���Ȃ���΂����܂���B�������݃��\�b�h�̈����� Value �Ƃ������O�ɂ��A���̌^�͂��ꂪ�\���Ă���v���p�e�B�̌^�ɂȂ�܂��B

  TSomeClass = class(TObject)
  private
    FSomeField: Integer;
  protected
    function GetSomeField: Integer;
    procedure SetSomeField(Value: Integer);
  public
    property SomeField: Integer read GetSomeField write SetSomeField;
  end;

�v���p�e�B

���� / �t�H�[�}�b�g

private �̃t�B�[���h�ւ̃A�N�Z�X��񋟂���v���p�e�B�́A�t�B�[���h������ F �����������O�ɂ��܂��B

�v���p�e�B���͓����ł͂Ȃ������ɂ���ׂ��ł��B�v���p�e�B�͏���\���A���\�b�h�͓����\���܂��B

�z��^�v���p�e�B�͕����`�ɂ��A�ʏ�̃v���p�e�B���͒P���`�ɂ���ׂ��ł��B

�A�N�Z�X���\�b�h�̎g�p

�K�{�ł͂���܂��񂪁Aprivate �̃t�B�[���h��\���v���p�e�B�ւ̏������݃��\�b�h�̎g�p�͍ŏ����ɂ��邱�Ƃ����߂��܂��B

 

�t�@�C��

�v���W�F�N�g�t�@�C��

�v���W�F�N�g�t�@�C���͐����I�Ȗ��O�ɂ��܂��B�Ⴆ�� The Delphi 4 Developer's Guide Bug Manager �ɂ� DDGBugs.dpr �Ƃ��������O��t���A�V�X�e������\������v���O�����ɂ� SysInfo.dpr �̂悤�Ȗ��O��t���܂��B

�t�H�[���t�@�C��

�t�H�[���t�@�C���͂��̃t�H�[���̖ړI��\�������̌��� Frm ��t�������O�ɂ܂��B�Ⴆ�� About �t�H�[���ɂ� AboutFrm.dfm �Ƃ������O��t���A���C���t�H�[���ɂ� MainFrm.dfm �Ƃ������O��t���܂��B

�f�[�^���W���[���t�@�C��

�f�[�^���W���[���ɂ́A���̃f�[�^���W���[���̖ړI��������閼�O��t���܂��B���O�̌��� DM ��t���܂��B�Ⴆ�Όڋq�f�[�^���W���[��(Customers data module)�ɂ́ACustomersDM.dfm �̂悤�ȃt�H�[���t�@�C������t���܂��B

�����[�g�f�[�^���W���[���t�@�C��

�����[�g�f�[�^���W���[���ɂ́A���̃����[�g�f�[�^���W���[���̖ړI��������閼�O��t���܂��B���O�̌��� RDM ��t���܂��B�Ⴆ�Όڋq�����[�g�f�[�^���W���[��(Customers remote data module)�ɂ� CustomersRDM.dfm �̂悤�ȃt�H�[���t�@�C������t���܂��B

���j�b�g�t�@�C��

���j�b�g��

���j�b�g�t�@�C���ɂ͐����I�Ȗ��O��t���܂��B�Ⴆ�΃A�v���P�[�V�����̃��C���t�H�[�����܂ރ��j�b�g�́AMainFrm.pas �Ƃ��������O�ɂȂ�ł��傤�B

Uses ��

interface ���� uses �߂ɂ͂��� interface ���ŕK�v�Ƃ���郆�j�b�g�������܂܂��悤�ɂ��܂��BDelphi �ɂ���Ď����I�ɒlj������]���ȃ��j�b�g�͂��ׂč폜���Ă��������B

implementation ���� uses �߂ɂ͂��� implementation ���ŕK�v�Ƃ���郆�j�b�g�������܂܂��悤�ɂ��܂��B�]���ȃ��j�b�g�͍폜���Ă��������B

interface ��

interface ���ɂ͊O���̃��j�b�g����A�N�Z�X�����^�E�ϐ��E�葱��/�֐��Ȃǂ̑O���錾�������܂܂��悤�ɂ��܂��B�O������A�N�Z�X����Ȃ��錾�� implementation ���ɒu���܂��B

implementation ��

���j�b�g���Ńv���C�x�[�g�Ȃ��ׂĂ̌^�E�ϐ��E�葱��/�֐��Ȃǂ̐錾�� implementation ���Ɋ܂߂�ׂ��ł��B

initialization ��

���j�b�g�� initialization ���Ɏ��Ԃ̂�����R�[�h��u���Ă͂����܂���B�A�v���P�[�V�����̏����\���������‚����Ă��܂��܂��B

finalization ��

initialization ���Ŋ��蓖�Ă����ׂẴ��\�[�X���m���ɊJ������悤�ɂ��Ă��������B

�t�H�[�����j�b�g

�t�H�[���ɕt�����郆�j�b�g�t�@�C���ɂ́A�Ή�����t�H�[���t�@�C���Ɠ������O��t���܂��B�Ⴆ�� About �t�H�[���ɂ� AboutFrm.pas �Ƃ������O��t���A���C���t�H�[���ɂ� MainFrm.pas �Ƃ������j�b�g�t�@�C������t���܂��B

�f�[�^���W���[�����j�b�g

�f�[�^���W���[���ɕt�����郆�j�b�g�t�@�C���ɂ́A�Ή�����t�H�[���t�@�C���Ɠ������O��t���܂��B�Ⴆ�Όڋq�f�[�^���W���[��(Customers data module)�ɂ� CustomersDM.pas �̂悤�ȃ��j�b�g����t���܂��B

��ʓI�ȃ��j�b�g

��ʓI�ȃ��j�b�g�́A���̃��j�b�g�̖ړI��ǂ��\�����O�ɂ��܂��B�Ⴆ�΃��[�e�B���e�B���j�b�g�ɂ� BugUtilities.pas �Ƃ��������O��t���A�O���[�o���ϐ����܂ރ��j�b�g�ɂ� CustomerGlobals.pas �̂悤�Ȗ��O��t���܂��B

�v���W�F�N�g�Ŏg�p����Ă��邷�ׂẴp�b�P�[�W�ԂŃ��j�b�g������ӂłȂ���΂Ȃ�Ȃ����Ƃ�Y��Ȃ��ł��������B��ʓI�����郆�j�b�g���╁�ʂ����郆�j�b�g���͊��߂��܂���B

�R���|�[�l���g���j�b�g

�R���|�[�l���g��R���|�[�l���g�̃Z�b�g���`���Ă��郆�j�b�g�����ꂼ���ʂ��邽�߂ɁA�R���|�[�l���g���j�b�g�͂��ꂼ��ʁX�̃f�B���N�g���ɒu���܂��B�v���W�F�N�g�Ɠ����f�B���N�g���ɒu���Ă͂����܂���B���j�b�g���͂��̓��e��ǂ��\�����O�łȂ���΂����܂���B

���ӁF�R���|�[�l���g�̖����Ɋւ��邳��Ȃ���́A���[�U�[��`�R���|�[�l���g �̃Z�N�V�������Q�Ƃ��Ă��������B

�t�@�C���w�b�_

���ׂẴ\�[�X�t�@�C���E�v���W�F�N�g�t�@�C���E���j�b�g���ɂ́A���ʒm�̂��߂̃t�@�C���w�b�_���܂߂邱�Ƃ����߂��܂��B�K�؂ȃt�@�C���w�b�_�͎��̏����܂܂Ȃ���΂����܂���B

  {
  Copyright © YEAR by AUTHORS
  }

�ʏ�͂��̃w�b�_�ɁA���j�b�g�̖ړI��\�� 1 �s�̐����ƘA�����@�Ƃ�lj����A�Ⴆ�Έȉ��̂悤�ɂ��܂��B

{***************************************************************}
{                                                               }
{  This line describes the purpose of the unit                  }
{                                                               }
{  Copyright (c) 1998 WidgetMakers, Ltd.                        }
{                        [email protected]              }
{                                                               }
{     All rights reserved.                                      }
{                                                               }
{***************************************************************}
 

�t�H�[���ƃf�[�^���W���[��

�t�H�[��

�t�H�[���̌^�̖����K��

�t�H�[���̌^�ɂ͂��̃t�H�[���̖ړI��������閼�O��t���܂��B�^��`�� 1 �����ڂ� T �Ƃ��A���O�����̌�ɑ����A�Ō�� Form ��t���܂��B�Ⴆ�� About �t�H�[���̌^���͈ȉ��̂悤�ɂ��܂��B

  TAboutForm = class(TForm)

���C���t�H�[���̒�`�͈ȉ��̂悤�ɂ��܂��B

  TMainForm = class(TForm)

�ڋq�o�^�t�H�[��(customer entry form)�ɂ͈ȉ��̂悤�Ȗ��O��t���܂��B

  TCustomerEntryForm = class(TForm)

�t�H�[���̃C���X�^���X�̖����K��

�t�H�[���̃C���X�^���X�́A�Ή�����^������ 1 �����ڂ� T �����������O�ɂ��܂��B�Ⴆ�Ώ�L�̃t�H�[���̏ꍇ�A�ȉ��̂悤�ȃC���X�^���X���ɂ��܂��B

�^�� �C���X�^���X��
TAboutForm AboutForm
TMainForm MainForm
TCustomerEntryForm CustomerEntryForm

���������t�H�[��

���ɗ��R���Ȃ�����A������������̂̓��C���t�H�[�������ɂ��܂��B���̑��̂��ׂẴt�H�[���́A�v���W�F�N�g�I�v�V�����̃_�C�A���O�{�b�N�X�ɂ��鎩�������̃��X�g����폜���Ă��������B����Ȃ���͎��̃Z�N�V�������Q�Ƃ��Ă��������B

���[�_���t�H�[�����C���X�^���X������֐�

���ׂẴt�H�[���ɁA���̃t�H�[���𐶐����A�Z�b�g�A�b�v���A���̃t�H�[�������[�_���\�����A�Ō�ɊJ������Ƃ����C���X�^���X���֐����܂ނ悤�ɂ��܂��B���̊֐��͂��̃t�H�[���� Modal Result ��Ԃ��܂��B���̊֐��ւ̈����́A���̕����ŋK�肳��Ă���"�����̎󂯓n��"�̋K���ɏ]���܂��B����̓R�[�h�̍ė��p�ƕێ�Ƃ�e�Ղɂ��邽�߂ɃJ�v�Z�������邽�߂̊֐��ł��B

�t�H�[���ϐ��̓��j�b�g����폜���A�C���X�^���X���֐��̒��Ń��[�J���ϐ��Ƃ��Đ錾���܂��B������s���ɂ́A�v���W�F�N�g�I�v�V�����_�C�A���O�ɂ��鎩�������̃��X�g���炻�̃t�H�[�����폜����K�v�����邱�Ƃɒ��ӂ��Ă��������B���������t�H�[�� ���Q�Ƃ��Ă��������B

�Ⴆ�Ύ��̃��j�b�g�́A���[�U�[�f�[�^���擾����t�H�[���� GetUserData �֐��ł��B

  unit UserDataFrm;
  interface
  uses
    Windows, Messages, SysUtils, Classes, Graphics,
    Controls, Forms, Dialogs, StdCtrls;
  type
    TUserDataForm = class(TForm)
      edtUserName: TEdit;
      edtUserID: TEdit;
    private
      { Private declarations }
    public
      { Public declarations }
    end;

  function GetUserData(var aUserName: string; var aUserID: Integer): Word;

  implementation

  {$R *.DFM}

  function GetUserData(var aUserName: string; var aUserID: Integer): Word;
  var
    UserDataForm: TUserDataForm;
  begin

    UserDataForm := TUserDataForm.Create(Application);
    try

      UserDataForm.Caption := 'Getting User Data';
      Result := UserDataForm.ShowModal;
      if Result = mrOK then
      begin
        aUserName := UserDataForm.edtUserName.Text;
        aUserID := StrToInt(UserDataForm.edtUserID.Text);
      end;

    finally
      UserDataForm.Free;
    end;

  end;

  end.

�f�[�^���W���[��

�f�[�^���W���[�������K��

DataModule �̌^�ɂ͂��̃f�[�^���W���[���̖ړI��������閼�O��t���܂��B�^��`�� 1 �����ڂ� T �Ƃ��A���O�����̌�ɑ����A�Ō�� "DataModule" ��t���܂��B�Ⴆ�Όڋq�f�[�^���W���[��(Customer data module)�̌^���͈ȉ��̂悤�ɂ��܂��B

  TCustomerDataModule = class(TDataModule)

�Ⴆ�Β����f�[�^���W���[��(Orders data module)�ɂ͈ȉ��̂悤�Ȗ��O��t���܂��B

  TOrdersDataModule = class(TDataModule)

�f�[�^���W���[���̃C���X�^���X�̖����K��

�f�[�^���W���[���̃C���X�^���X�́A���̌^������O�u�� T �����������O�ɂ��܂��B�Ⴆ�ΑO�q�̃f�[�^���W���[���̌^�̏ꍇ�A�ȉ��̂悤�ȃC���X�^���X���ɂ��܂��B

�^�� �C���X�^���X��
TCustomerDataModule CustomerDataModule
TOrdersDataModule OrdersDataModule
 

�p�b�P�[�W

���s���p�b�P�[�W vs �݌v���p�b�P�[�W

���s���p�b�P�[�W�ɂ́A���̃p�b�P�[�W���̑��̃R���|�[�l���g�ɂ���ĕK�v�Ƃ���郆�j�b�g/�R���|�[�l���g�݂̂��܂܂��悤�ɂ��܂��B�v���p�e�B�G�f�B�^/�R���|�[�l���g�G�f�B�^�₻�̑��̐݌v���݂̂ɕK�v�ȃR�[�h���܂ރ��j�b�g�́A�݌v���p�b�P�[�W�ɒu���ׂ��ł��B�R���|�[�l���g��o�^���邽�߂̃��j�b�g�͐݌v���p�b�P�[�W�ɒu���܂��B

�t�@�C���̖����K��

�p�b�P�[�W�͈ȉ��̃e���v���[�g�ɂ��������Ė������܂��B

"iiilibvv.pkg" - �݌v���p�b�P�[�W

"iiistdvv.pkg" - ���s���p�b�P�[�W

������ "iii" �͎��ʎq�̃v���t�B�N�X��\�� 3 �����ł��B���̃v���t�B�N�X�͉�Ђ�l��A���̑��̔C�ӂ̗v�f����肷�邽�߂Ɏg�p�ł��܂��B

"vv" �̓p�b�P�[�W���Ӑ}���Ă��� Delphi �̃o�[�W�����ɑΉ����邻�̃p�b�P�[�W�̃o�[�W������\���Ă��܂��B

���s���p�b�P�[�W���݌v���p�b�P�[�W����\�����߂ɁA�p�b�P�[�W���� "lib" �܂��� "std" ���܂߂邱�Ƃɒ��ӂ��Ă��������B

�݌v���p�b�P�[�W�Ǝ��s���p�b�P�[�W�Ƃ��������݂���ꍇ�A�t�@�C���͓����悤�Ȗ��O�ɂȂ�܂��B�Ⴆ�� Delphi 4 Developer's Guide �̂��߂̃p�b�P�[�W�͈ȉ��̂悤�ɂȂ�܂��B

DdgLib40.pkg - �݌v���p�b�P�[�W

DdgStd40.pkg - ���s���p�b�P�[�W

 

�R���|�[�l���g

���[�U�[��`�R���|�[�l���g

�v���t�B�N�X��\�� 3 ������t���邱�Ƃ������A�R���|�[�l���g�� "�N���X" �̃Z�N�V�����Œ�`����Ă���̂Ɠ����K���ɂ��������ׂ��ł��B���̃v���t�B�N�X�͉�Ђ�l��A���̑��̔C�ӂ̗v�f����肷�邽�߂Ɏg�p�ł��܂��B �Ⴆ�� Delphi 4 Developer's Guide �̂��߂ɏ����ꂽ���v(Clock)�R���|�[�l���g�͎��̂悤�ɒ�`���܂��B

 TddgClock = class(TComponent)

3 �����̃v���t�B�N�X���������ŏ������Ƃɒ��ӂ��Ă��������B

�R���|�[�l���g���j�b�g

�R���|�[�l���g���j�b�g�́A��v�ȃR���|�[�l���g����‚����܂ނׂ��ł��B��v�ȃR���|�[�l���g�Ƃ́A�R���|�[�l���g�p���b�g�Ɍ����C�ӂ̃R���|�[�l���g�ł��B��v�ȃR���|�[�l���g�Ɠ������j�b�g�ɁA�C�ӂ̕⏕�I�ȃR���|�[�l���g/�I�u�W�F�N�g��u�����Ƃ��o���܂��B

�o�^���j�b�g�̎g�p

�R���|�[�l���g�̓o�^�葱���̓R���|�[�l���g���j�b�g����؂藣���A�ʂ̃��j�b�g�ɒu���ׂ��ł��B�C�ӂ̃R���|�[�l���g�E�v���p�e�B�G�f�B�^�E�R���|�[�l���g�G�f�B�^�E�G�L�X�p�[�g�Ȃǂ�o�^���邽�߂ɓo�^���j�b�g���g�p����ׂ��ł��B

�R���|�[�l���g�̓o�^�͐݌v���p�b�P�[�W���ł̂ݍs����ׂ��ł��B���������ēo�^���j�b�g�͎��s���p�b�P�[�W�Ɋ܂߂��A�݌v���p�b�P�[�W�Ɋ܂߂�ׂ��ł��B

�o�^���j�b�g�͈ȉ��̂悤�ɖ������邱�Ƃ���������܂��B

 XxxReg.pas

������ "Xxx" �� 3 �����̃v���t�B�N�X�ŁA��Ђ�l��A���̑��̔C�ӂ̗v�f����肷�邽�߂Ɏg�p����܂��B�Ⴆ�� Delphi 4 Developer's Guide ���̃R���|�[�l���g�̂��߂̓o�^���j�b�g�� DdgReg.pas �̂悤�Ȗ��O�ɂ��܂��B

�R���|�[�l���g�̃C���X�^���X�̖����K��

���ׂẴR���|�[�l���g�ɂ͐����I�Ȗ��O��t���Ȃ���΂����܂���BDelphi �ɂ���ĕt������f�t�H���g�̖��O�͎c���܂���B�R���|�[�l���g�ɂ͌^��\���������̃v���t�B�N�X��t���܂��B�R���|�[�l���g�Ƀ|�X�g�t�B�N�X�ł͂Ȃ��v���t�B�N�X��t���闝�R�́A�I�u�W�F�N�g�C���X�y�N�^��R�[�h�G�N�X�v���[����ŃR���|�[�l���g�̌^�ɂ�錟����e�Ղɂ��邽�߂ł��B

�R���|�[�l���g�̃v���t�B�N�X

�ȉ��̃v���t�B�N�X�� Delphi 4 �ɕt�����Ă���W���R���|�[�l���g�Ɋ��蓖�Ă�����̂ł��B�T�[�h�p�[�e�B���R���|�[�l���g�ɂ���Ēlj������R���|�[�l���g�����̃��X�g�ɒlj����Ă��������B

Standard �^�u

�v���t�B�N�X �R���|�[�l���g
mm TMainMenu
pm TPopupMenu
mmi TMainMenuItem
pmi TPopupMenuItem
lbl TLabel
edt TEdit
mem TMemo
btn TButton
chk TCheckBox
rb TRadioButton
lb TListBox
cb TComboBox
scb TScrollBar
gb TGroupBox
rg TRadioGroup
pnl TPanel
cl TCommandList

Additional �^�u

�v���t�B�N�X �R���|�[�l���g
bbtn TBitBtn
sb TSpeedButton
me TMaskEdit
sg TStringGrid
dg TDrawGrid
img TImage
shp TShape
bvl TBevel
sbx TScrollBox
clb TCheckListbox
spl TSplitter
stx TStaticText
cht TChart

Win32 �^�u

�v���t�B�N�X �R���|�[�l���g
tbc TTabControl
pgc TPageControl
il TImageList
re TRichEdit
tbr TTrackBar
prb TProgressBar
ud TUpDown
hk THotKey
ani TAnimate
dtp TDateTimePicker
tv TTreeView
lv TListView
hdr THeaderControl
stb TStatusBar
tlb TToolBar
clb TCoolBar

System �^�u

�v���t�B�N�X �R���|�[�l���g
tm TTimer
pb TPaintBox
mp TMediaPlayer
olec TOleContainer
ddcc TDDEClientConv
ddci TDDEClientItem
ddsc TDDEServerConv
ddsi TDDEServerItem

Internet �^�u

�v���t�B�N�X �R���|�[�l���g
csk TClientSocket
ssk TServerSocket
wbd TWebDispatcher
pp TPageProducer
tp TQueryTableProducer
dstp TDataSetTableProducer
nmdt TNMDayTime
nec TNMEcho
nf TNMFinger
nftp TNMFtp
nhttp TNMHttp
nMsg TNMMsg
nmsg TNMMSGServ
nntp TNMNNTP
npop TNMPop3
nuup TNMUUProcessor
smtp TNMSMTP
nst TNMStrm
nsts TNMStrmServ
ntm TNMTime
nudp TNMUdp
psk TPowerSock
ngs TNMGeneralServer
html THtml
url TNMUrl
sml TSimpleMail

Data Access �^�u

�v���t�B�N�X �R���|�[�l���g
ds TDataSource
tbl TTable
qry TQuery
sp TStoredProc
db TDataBase
ssn TSession
bm TBatchMove
usql TUpdateSQL

Data Controls �^�u

�v���t�B�N�X �R���|�[�l���g
dbg TDBGrid
dbn TDBNavigator
dbt TDBText
dbe TDBEdit
dbm TDBMemo
dbi TDBImage
dblb TDBListBox
dbcb TDBComboBox
dbch TDBCheckBox
dbrg TDBRadioGroup
dbll TDBLookupListBox
dblc TDBLookupComboBox
dbre TDBRichEdit
dbcg TDBCtrlGrid
dbch TDBChart

Decision Cube �^�u

�v���t�B�N�X �R���|�[�l���g
dcb TDecisionCube
dcq TDecisionQuery
dcs TDecisionSource
dcp TDecisionPivot
dcg TDecisionGrid
dcgr TDecisionGraph

QReport �^�u

�v���t�B�N�X �R���|�[�l���g
qr TQuickReport
qrsd TQRSubDetail
qrb TQRBand
qrcb TQRChildBand
qrg TQRGroup
qrl TQRLabel
qrt TQRText
qre TQRExpr
qrs TQRSysData
qrm TQRMemo
qrrt TQRRichText
qrdr TQRDBRichText
qrsh TQRShape
qri TQRImage
qrdi TQRDBMImage
qrcr TQRCompositeReport
qrp TQRPreview
qrch TQRChart

Dialogs �^�u

�_�C�A���O�{�b�N�X�͎��ۂɂ̓R���|�[�l���g�ɂ���ăJ�v�Z�������ꂽ�t�H�[���ł��B���̂��߁A�t�H�[���̖����K���Ɏ����K���ɏ]���܂��B�^��`�̓R���|�[�l���g���Ƃ��Ă��炩���ߒ�`����Ă��܂��B�C���X�^���X���� Delphi �ɂ���ĕt�����鐔���̃|�X�g�t�B�N�X����菜���A���̌^�Ɠ������O�ɂ��܂��B�ȉ��͂��̗�ł��B

�^ �C���X�^���X��
TOpenDialog OpenDialog
TSaveDialog SaveDialog
TOpenPictureDialog OpenPictureDialog
TSavePictureDialog SavePictureDialog
TFontDialog FontDialog
TColorDialog ColorDialog
TPrintDialog PrintDialog
TPrintSetupDialog PrinterSetupDialog
TFindDialog FindDialog
TReplaceDialog ReplaceDialog

Win31 �^�u

�v���t�B�N�X �R���|�[�l���g
dbll TDBLookupList
dblc TDBLookupCombo
ts TTabSet
ol TOutline
tnb TTabbedNoteBook
nb TNoteBook
hdr THeader
flb TFileListBox
dlb TDirectoryListBox
dcb TDriveComboBox
fcb TFilterComboBox

Samples �^�u

�v���t�B�N�X �R���|�[�l���g
gg TGauge
cg TColorGrid
spb TSpinButton
spe TSpinEdit
dol TDirectoryOutline
cal TCalendar
ibea TIBEventAlerter

ActiveX �^�u

�v���t�B�N�X �R���|�[�l���g
cfx TChartFX
vsp TVSSpell
f1b TF1Book
vtc TVTChart
grp TGraph

Midas �^�u

�v���t�B�N�X �R���|�[�l���g
prv TProvider
cds TClientDataSet
qcds TQueryClientDataSet
dcom TDCOMConnection
olee TOleEnterpriseConnection
sck TSocketConnection
rms TRemoteServer
mid TmidasConnection

Delphi Information Resources �ɖ߂�B


Copyright © 1998 Econos - Stefan Hoffmeister