delphi±àÂë¹æ·¶Îĵµ
delphi±àÂë¹æ·¶Îĵµ
Ŀ¼
1¡¢Ç°ÑÔ 3
2¡¢Ô´³ÌÐòÊéд¹æ·¶ 3
2.1ͨÓÃÔ´´úÂë¸ñʽ¹æ·¶ 3
2.1.1Ëõ½ø 3
2.1.2±ß¾à 3
2.1.3 Begin…EndÓï¾ä 3
2.1.4×¢ÊÍ 4
2.2 OBJECT PASCALÓï¾ä¸ñʽÊéд¹æ·¶ÓëÓ÷¨ 4
2.2.1À¨ºÅ 4
2.2.2±£Áô×ֺ͹ؼü×Ö 4
2.2.3¹ý³ÌºÍº¯Êý 5
2.2.4±äÁ¿ 5
2.2.5ÀàÐÍ 6
2.2.6Óï¾ä 6
2.2.7½á¹¹»¯Òì³£´¦Àí 7
3ÃüÃû¹æ·¶ 8
3.1¹ý³Ì(PROCEDURE)Ó뺯Êý(FUNCTION) 8
3.1.1̟̞ 8
3.1.2ÐβΠ9
3.1.3ÃüÃû³åÍ» 9
3.2±äÁ¿£¨VARIABLE£© 9
3.2.1¾Ö²¿±äÁ¿ 9
3.2.2È«¾Ö±äÁ¿ 9
3.3ÀàÐÍ£¨TYPE£© 9
3.3.1Ò»°ãÀàÐÍ 9
3.3.2¹¹ÔìÀàÐÍ 10
3.3.3ÀàÀàÐÍ£¨Class£© 10
3.3.4Ôª¼þÀàÐÍ 11
3.3.5´°ÌåºÍ¶Ô»°¿òÀàÐÍ 13
3.3.6Êý¾ÝÄ£¿éÀàÐÍ 15
3.4Îļþ 16
3.4.1ÏîÄ¿Îļþ 16
3.4.2´°ÌåÎļþ 16
3.4.3Êý¾ÝÄ£¿éÎļþ 16
3.4.4Ô¶³ÌÊý¾ÝÄ£¿éÎļþ 16
3.4.5µ¥ÔªÎļþ 17
4¡¢DELPHI´úÂë×Ô¶¯¸ñʽ»¯¹¤¾ß 18
1¡¢Ç°ÑÔ
±¾ÎĵµÖ÷ÒªÊÇΪDelphi¿ª·¢ÈËÔ±Ìṩһ¸öÔ´´úÂëÊéд±ê×¼£¬ÒÔ¼°³ÌÐòºÍÎļþµÄÃüÃû±ê×¼£¬Ê¹ËûÃÇÔÚ±à³ÌʱÓÐÒ»Ö¸ñʽ¿É×ñÑ¡£ÕâÑù£¬Ã¿¸ö±à³ÌÈËÔ±±àдµÄ´úÂëÄܹ»±»ÆäËûÈËÀí½â¡£
×¢£º±¾Îĵµ²»°üº¬Óû§½çÃæ±ê×¼¡£Óû§½çÃæ±ê×¼ÊǶÀÁ¢ÓÚÆäËû±ê×¼µÄ£¬²¢ÇÒͬÑùÊÇÖØÒªµÄ¡£
2¡¢Ô´³ÌÐòÊéд¹æ·¶
2.1ͨÓÃÔ´´úÂë¸ñʽ¹æ·¶
2.1.1Ëõ½ø
Ëõ½ø¾ÍÊÇÿ¼¶¼äÓÐÁ½¸ö¿Õ¸ñ¡£²»ÒªÔÚÔ´´úÂëÖзÅÖÃÖÆ±í·û¡£ÕâÊÇÒòΪ£¬ÖƱí·ûµÄ¿í¶ÈËæ×Ų»Í¬µÄÉèÖúʹúÂë¹ÜÀíʵÓóÌÐò(´òÓ¡¡¢Îĵµ¼°°æ±¾¿ØÖƵÈ)¶ø²»Í¬¡£
ͨ¹ýʹÓÃTools|Environment ²Ëµ¥£¬ÔÚEnvironment Options ¶Ô»°¿òµÄGeneralÒ³ÉÏ£¬²»ÒªÑ¡ÖÐUse Tab Character ºÍOptional Fill ¸´Ñ¡¿ò£¬ÕâÑù£¬ÖƱí·û¾Í²»»á±»±£´æ¡£
2.1.2±ß¾à
±ß¾àÉèÖÃΪ80¸ö×Ö·û¡£Ô´´úÂëÒ»°ã²»»áÒòдһ¸öµ¥´Ê¶ø³¬¹ý±ß¾à£¬µ«±¾¹æÔò±È½ÏÁé»î¡£Ö»Òª¿ÉÄÜ£¬³¤¶È³¬¹ýÒ»ÐеÄÓï¾äÓ¦µ±ÓöººÅ»òÔËËã·û»»ÐС£»»Ðкó£¬Ó¦Ëõ½øÁ½¸ö×Ö·û¡£
2.1.3 Begin…EndÓï¾ä
begin Óï¾ä±ØÐëµ¥¶ÀÕ¼Ò»ÐС£ÀýÈ磬ÏÂÃæµÚÒ»ÐÐÊÇ´íÎóµÄ£¬¶øµÚ¶þÐÐÕýÈ·£º
for i:=0 to 10 do begin // ´í, begin Óëf o r ÔÚͬһÐÐ
for i:=0 to 10 do // ¶Ô, begin ÔÚÁíÍâÒ»ÐÐÖÐ
begin
±¾¹æÔòµÄÒ»¸öÌØÊâÇé¿öÊÇ£¬µ±begin Ϊelse Óï¾äµÄÒ»²¿·Öʱ£¬ÀýÈ磺
if some statement = then
begin
. . .
end
else begin
Some Other Statement;
end;
×¢Ò⣺end Óï¾ä×ܵ¥¶ÀÒ»ÐС£µ±begin ²»Îªelse Óï¾äµÄÒ»²¿·Öʱ£¬ÏàÓ¦µÄend Óï¾äÓëbegin Óï¾äµÄËõ½øÁ¿Ï
Ïà¹ØÎĵµ£º
Õâ¸ö±¾À´ÎÒÎÒÔÚDELPHIºÐ×Ó¿´µ½µÄ£¬ºóÀ´ÎÒ¶ÔÆä×÷ÁËÒ»µãÐ޸ģ¬ÕâÀïÉÏÈ«²¿´úÂ룬¿ÉÒÔÖ±½ÓÓÃ
Ê×ÏÈÓÐÁ½¸ö×Ô¶¨µÄת»»º¯Êý£º
function myStrToHex(s:string):string; //×Ö´®×ª16½øÖÆ
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......
TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const ......
ÖØÔØ CreateParams ·½·¨¼´¿É
ÉùÃ÷£º
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......
Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔǰµÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂǰµÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......