�g�b�v�y�[�W - �|��h�L�������g - Econos - Delphi 4 �J���҃K�C�h �R�[�f�B���O�W��
�����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 ���{���
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�����͈ȉ��ɂ���܂�:
���̕����̂قƂ�ǑS�Ă̓��e�́AXavier Pacheco �� Steve Teixeira �Ƃɂ���č쐬���ꂽ�I���W�i���̕��������ɂ��Ă��܂��B���̕�������邽�߂ɁA�ق�̏����̕ύX�������������Ă��܂��B
���̕����� 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
�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���� 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�ɂ͒ʏ� { } �̃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 �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
�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 // ������ - �Œ���̊��� |
Object Pascal ����̗\���ƃL�[���[�h�́A��ɂ��ׂď������ł���ׂ��ł��B�f�t�H���g�ł͕��@���n�C���C�g���� IDE �̋@�\�������̒P����ŕ\�����܂��B�����̒P��ɑ啶�����g�p����ׂ��ł͂���܂���B
�ǐ������߂邽�߂Ɂ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; |
�\�ł���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
�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); |
�ϐ��ɂ͂��̖ړ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; |
�葱�����Ŏ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�͊��߂��܂��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 }; |
�\���̌^���͂��ׂď������ŏ����ׂ��ł��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 �^�̎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��̖ړ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�^�ɂ͂��̖ړ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/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 �����̌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
�C���f���g�Ɩ��O�t���Ƃ̋K���Ɋւ��āAcase ���͂��̑��̍\���Ɠ����K���ɏ]���܂��B
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
���߂�ꂽ�����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 ���� while �Ǝ��Ă���A���l�̈�ʓI�K�C�h���C���ɏ]���ׂ��ł��B
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
�C���f���g�Ɩ��O�t���Ƃ̋K���Ɋւ��āAwith ���͂��̕����Ő�������Ă���K���ɏ]���܂��B
��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
�\�ł�����\�[�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; |
��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�́A�������Ă͂Ȃ�Ȃ���O���܂߂Ă��ׂĂ̗�O���u���b�N���Ă��܂����߁A���߂��܂���B
�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; |
�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���́A���̕����ɏ�����Ă���葱���E���̂��߂̖����Ɠ����K���ɏ]���܂��B
�q�N���X�ŃI�[�o�[���C�h���ꂽ���Ȃ��ꍇ�ɐÓI���\�b�h���g�p���܂��B
���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
�C���X�^���X�������N���X�ł͒��ۃ��\�b�h���g�p���Ă͂����܂���B�C���X�^���X�������č���邱�Ƃ̂Ȃ����N���X�ł̂ݒ��ۃ��\�b�h���g�p���Ă��������B
���ׂẴ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; |
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
�K�{�ł͂���܂��Aprivate �̃t�B�[���h��\���v���p�e�B�ւ̏������݃��\�b�h�̎g�p�͍ŏ����ɂ��邱�Ƃ����߂��܂��B
�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�[���̖ړI��\�������̌��� Frm ��t�������O�ɂ܂��B�Ⴆ�� About �t�H�[���ɂ� AboutFrm.dfm �Ƃ������O��t���A���C���t�H�[���ɂ� MainFrm.dfm �Ƃ������O��t���܂��B
�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���[���ɂ́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���ɂ͐����I�Ȗ��O��t���܂��B�Ⴆ�A�v���P�[�V�����̃��C���t�H�[�����܂ރ��j�b�g�́AMainFrm.pas �Ƃ��������O�ɂȂ�ł��傤�B
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 ���ɂ͊O���̃��j�b�g����A�N�Z�X�����^�E�ϐ��E�葱��/���Ȃǂ̑O���錾�������܂܂��悤�ɂ��܂��B�O������A�N�Z�X����Ȃ��錾�� implementation ���ɒu���܂��B
���j�b�g���Ńv���C�x�[�g�Ȃ��ׂĂ̌^�E�ϐ��E�葱��/���Ȃǂ̐錾�� implementation ���Ɋ܂߂�ׂ��ł��B
���j�b�g�� initialization ���Ɏ��Ԃ̂�����R�[�h��u���Ă͂����܂���B�A�v���P�[�V�����̏����\�������������Ă��܂��܂��B
initialization ���Ŋ��蓖�Ă����ׂẴ��\�[�X���m���ɊJ������悤�ɂ��Ă��������B
�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���[���ɕ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�́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��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
���ׂẴ\�[�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�[���̌^�ɂ͂��̃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�́A�Ή�����^������ 1 �����ڂ� T �����������O�ɂ��܂��B�Ⴆ�Ώ�L�̃t�H�[���̏ꍇ�A�ȉ��̂悤�ȃC���X�^���X���ɂ��܂��B
�^�� | �C���X�^���X�� |
TAboutForm | AboutForm |
TMainForm | MainForm |
TCustomerEntryForm | CustomerEntryForm |
���ɗ��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�[���Ɂ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. |
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�́A���̌^������O�u�� T �����������O�ɂ��܂��B�Ⴆ�ΑO�q�̃f�[�^���W���[���̌^�̏ꍇ�A�ȉ��̂悤�ȃC���X�^���X���ɂ��܂��B
�^�� | �C���X�^���X�� |
TCustomerDataModule | CustomerDataModule |
TOrdersDataModule | OrdersDataModule |
���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
�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
�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�́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
�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�ɂ͐����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
�ȉ��̃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
�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 |
�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 |
�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 |
�v���t�B�N�X | �R���|�[�l���g |
tm | TTimer |
pb | TPaintBox |
mp | TMediaPlayer |
olec | TOleContainer |
ddcc | TDDEClientConv |
ddci | TDDEClientItem |
ddsc | TDDEServerConv |
ddsi | TDDEServerItem |
�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 |
�v���t�B�N�X | �R���|�[�l���g |
ds | TDataSource |
tbl | TTable |
qry | TQuery |
sp | TStoredProc |
db | TDataBase |
ssn | TSession |
bm | TBatchMove |
usql | TUpdateSQL |
�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 |
�v���t�B�N�X | �R���|�[�l���g |
dcb | TDecisionCube |
dcq | TDecisionQuery |
dcs | TDecisionSource |
dcp | TDecisionPivot |
dcg | TDecisionGrid |
dcgr | TDecisionGraph |
�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 |
�_�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 |
�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 |
�v���t�B�N�X | �R���|�[�l���g |
gg | TGauge |
cg | TColorGrid |
spb | TSpinButton |
spe | TSpinEdit |
dol | TDirectoryOutline |
cal | TCalendar |
ibea | TIBEventAlerter |
�v���t�B�N�X | �R���|�[�l���g |
cfx | TChartFX |
vsp | TVSSpell |
f1b | TF1Book |
vtc | TVTChart |
grp | TGraph |
�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
�g�b�v�y�[�W - �|��h�L�������g - Econos - Delphi 4 �J���҃K�C�h �R�[�f�B���O�W��