Delphi Êý×é Ïê½â
¼¼Êõ½»Á÷,DH½²½â. Ê×ÏÈÎÒÃÇÒªÖªµÀʲôÊÇÊý×é?Êý×éÊÇÒ»¶ÑÏàͬÌØÐÔÊý¾ÝµÄÒ»¸ö¼¯ºÏ,Ò²¾ÍÊÇÿ¸öÔªËصÄÀàÐͱØÐëÊÇÒ»ÑùµÄ,µ±È»ÔÚÆäËûһЩÈõÓï·¨µÄÓïÑÔÀïÃæ,Êý×éµÄÔªËØ¿ÉÒÔǧÆæ°Ù¹Ö.
Àý×Ó: Var
A: Array[ 0..2 ] Of Integer ;
Begin
A[ 0 ] := 1 ;
A[ 1 ] := 1.0 ; //ÕâÀïÊÇ´íµÄ,ÒòΪÿ¸öÔªËض¼±ØÐëÊÇIntegerÀàÐÍ
End ;
DelphiÖÐÊý×é·ÖÀà:
1 ¶¨³¤ºÍ²»¶¨³¤.
¶¨³¤Êý×é:Ò²¾ÍÊdz¤¶ÈÔÚÉùÃ÷µÄʱºò¾ÍÈ·¶¨ÁË,ºóÃæÊDz»ÄܸıäµÄ,¶øÔÚ¶¨³¤Êý×éÖÐ,ÆðʼÐòºÅ²»±Ø´Ó0¿ªÊ¼,¿ÉÒÔ×Ô¼º¶¨.ÀýÈç:
Var
A: Array[ 2..3 ] Of Integer ;
Begin
A[ 2 ] := 1 ;
SetLength(A,3);//ÕâÀï»á³ö´í,¶¨³¤Êý×é²»ÄÜÔÙ·ÖÅä
End ;
´ÓÉÏÃæÎÒÃÇ¿ÉÒÔ¿´µ½ÆðʼÐòºÅÊÇ2,µ«ÊDz½³¤ÊÇ1,ÊDz»ÄܸıäµÄ.ΪʲôÎÒÃÇ¿´µ½ºÜ¶àÊý×éµÄÆðʼÐòºÅ¶¼ÊÇ0ÄØ?Ï°¹ß¶øÒÑ.´ó¼Ò¶¼Ï°¹ßÔÚ²ÞËùÀïÃæÈ¥ÐêÐê,¶øÄãÒ»¸öÈËÏ°¹ßÔڹ㳡ÉÏÃæÐêÐê,ÄÇô´ó¼Ò¶¼»á˵Äã²»ÎÄÃ÷ÁË.µ«ÊÇÈç¹û´ó¼ÒÒ»¿ªÊ¼¶¼ÊÇÔڹ㳡ÉÏÃæÐêÐêµÄ»°,²»ËµÁËÌ«¶ñÐÄÁË.
À´¿´Ò»¸öÌØÊâµÄÓ÷¨:
type
THuangJacky = (hjA,hjB,hjC);
const
//Ó÷¨1
B:array[0..2] of string= ('A','B','C');
//Ó÷¨2
C:array[THuangJacky] of string= ('A','B','C');
Var
H:THuangJacky;
S:string;
Begin
S:=B[Ord(H)];
S:=C[H];
//B[H] ºÍ C[1]¶¼»á³ö´í
End ;
Ó÷¨1 ºÍÓ÷¨2Äã¾õµÃÄÇÖÖÓÃ×ÅˬһЩ?
´ÓÉÏÃæÀý×Ó¿ÉÒÔ¿´³öÀ´Ö»ÒªÊÇÐòÊýÀàÐͶ¼¿ÉÒÔµ±Êý×éµÄÐòºÅ.µ«ÊÇÎÒÃÇÓõÄʱºòÐòºÅ¾Í±ØÐëÊÇÉùÃ÷µÄÄÇÖÖÐòÊýÀàÐÍ,ËùÒÔÉÏÃæ´úÂë×¢ÊÍÖвŻáд³ö2ÖÖ´íÎóµÄÇé¿ö.
²»¶¨³¤Êý×é:¶¯Ì¬Êý×é,Ò²¾ÍÊÇÉùÃ÷µÄʱºòûÓÐ˵³¤¶ÈÊǶàÉÙ,ÔÚʹÓÃÇ°±ØÐëÉùÃ÷,³¤¶È¿ÉÒÔÔÙ·ÖÅä.ÐòºÅ±ØÐë´Ó0¿ªÊ¼.¿´¸ö¼òµ¥µÄÀý×Ó
Var
A: Array Of Integer ;
Begin
SetLength( A, 3 ) ; //Êý×éÒ»¹²ÓÐ3¸öÔªËØ
A[ 0 ] := 1 ;
A[ 1 ] := 2 ;
A[ 2 ] := 3 ;
//A[3]ûÓÐËü,ÓÐËüµÄ»°,ÄãÊýһϼ¸¸öÁË?²»»áÊýÊý,ÄÇÎÒÍƼöÄãÈ¥½ÖµÀ¿ÚСѧ¿´Ò»ÏÂ
SetLength( A, 4 ) ; //Èç¹û±ä³¤³¤¶È,Ö±½ÓÔö¼ÓºóÃæµÄÔªËØ
A[ 3 ] := 4 ; //ÏÖÔÚÓÐËüÁË.
SetLength( A, 3 ) ; //Èç¹û³¤¶È±ä¶Ì,³¬³ö²¿·Ö»á±»È¥µô
// A[3]ÓÖûÓÐËüÁË
End ;
ÓÐʱºò´ó¼ÒÕâÑùÒªÏÈÉ趨³¤¶È,È»ºóÔÙ¸³Öµ,ÊDz»ÊǺÜÂé·³?ûÓÐÒ»ÆøºÇ³ÉµÄ¸Ð¾õ.ºÃ°É,ÔÙ˵һÕÐ:
Type
TA = Array Of Integer ;
Var
A: TA ;
Begin
A := TA.Create( 1, 2, 3 ) ;
//´ËÕÐÇëÎðÔÚD7ÉÏÃæʹÓ
Ïà¹ØÎĵµ£º
ÆÁÄ»µÄ·Ö±æÂÊÓÃÕâ¸ö
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
ͬÉÏ¡£
.¶øÇÒ»ñµÃÆÁÄ»ÉϵÄÏñËغÃÏñÓ¦¸ÃʹÓÃ
screen.pixelsperinchº¯Êý
int GetDeviceCaps(
  ......
ö¾ÙÀàÐÍ
¡¡¡¡Pascal³ÌÐò²»½öÓÃÓÚÊýÖµ´¦Àí£¬»¹¸ü¹ã·ºµØÓÃÓÚ´¦Àí·ÇÊýÖµµÄÊý¾Ý¡£ÀýÈ磬ÐÔ±ð¡¢Ô·ݡ¢ÐÇÆÚ¼¸¡¢ÑÕÉ«¡¢µ¥Î»Ãû¡¢Ñ§Àú¡¢Ö°ÒµµÈ¡£
1¡¢Ã¶¾ÙÀàÐ͵Ķ¨Òå
¸ñʽ:¡¡type ö¾ÙÀàÐͱêʶ·û=(±êʶ·û1,±êʶ·û2,¡,±êʶ·ûn)
2¡¢Ã¶¾ÙÀàÐÍÊý¾ÝÌصã
¢Ù ö¾ÙÔªËØÖ»ÄÜÊDZêʶ·û£»
ÀýÈ磬ÏÂÁÐÀàÐͶ¨ÒåÊǺϷ¨µÄ£º
¡¡ ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TlHelp32;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Pub ......
¸ù¾Ý¼ôÌù°åµÄÔÀí£¬ÔÚ»ñÈ¡¼ôÌù°åÄÚÈÝ֮ǰ£¬±ØÐëÖ¸¶¨Òª»ñÈ¡ÄÚÈݵĸñʽ¡£ÓÉÓÚ¼ôÌù°åÖеÄÊý¾Ý¿ÉÄÜ´æÔÚ¶àÖÖ¸ñʽ£¬ËùÒÔÓбØÒª¶Ô¼ôÌù°åµÄ¸ñʽÀàÐÍÏÈ×öһЩÁ˽⡣WдÏÂÁËÒÔϵIJâÊÔ´úÂ룺
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
Buffer: PChar;
s: string;
begin
M ......