Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DELPHI»ù´¡½Ì³Ì¶ÁÊé±Ê¼Ç

ÉèÖÃ×ÖÌåµÄ¹ý³Ì
Procedure TForm1.FontDlgApply(Sender:Tobject);
begin
Button1.Font:= FontDialog1.Font;
end;¡¡
¸Ã³ÌÐòÖ»Óе±Óû§°´¶¯About¿òµÄ°´Å¥»ò±»About´°¿ØÖÆÍ¼±ê¹Ø±Õ´°¿Úºó£¬²Å»á»Øµ½Ö÷´°ÌåÖУ¬¶ø²»ÄÜÓëµÚÒ»¸ö´°Ìå·¢Éú½»»¥ÐÐΪ¡£Õâ¾ÍÊÇ·½·¨ShowºÍShowModalµÄÖ÷Òª²»Í¬Ö®´¦
¼¯ºÏÀàÐÍÊÇһȺÏàͬÀàÐÍÔªËØµÄ×éºÏ£¬ÕâЩÀàÐͱØÐëÊÇÓÐÏÞÀàÐÍÈçÕûÐΡ¢²¼¶ûÐÍ¡¢×Ö·ûÐÍ¡¢Ã¶¾ÙÐͺÍ×Ó½çÐÍ¡£ÔÚ¼ì²éÒ»¸öÖµÊÇ·ñÊôÓÚÒ»¸öÌØ¶¨¼¯ºÏʱ£¬¼¯ºÏÀàÐͷdz£ÓÐÓá£ÏÂÃæµÄÀý³Ì¿ÉÒÔ˵Ã÷¼¯ºÏÀàÐ͵ÄÓ÷¨£º
type
Tvowels=set of Char;
var
Vowels:TVowels;
±í´ïʽEdit1.Text[1] in VowelsµÄ½á¹ûÊDz¼¶ûÐ͵ģ¬inÊÇÔËËã·û£¬ÓÃÀ´ÅжÏ×ÖĸÊÇ·ñ´æÔÚÓÚ¼¯ºÏÖС£
¼Ç¼ÀàÐÍ¡¡
¼Ç¼ÊÇÄúµÄ³ÌÐò¿ÉÒÔ³É×é·ÃÎʵÄһȺÊý¾ÝµÄ¼¯ºÏ
type
TEmployee=record
Name : string[20];
YearHired:1990..2000;
Salsry: Double;
Position: string[20];
end;¡¡
ʹÓÃwith¿ªÓòÓï¾ä£¬ÆäÐÎʽΪ
with ¼Ç¼±äÁ¿Ãû do Óï¾ä
ÔÚwithÓï¾äÖУ¬ÒýÓüǼ±äÁ¿Ãû²»ÔÙ¹ÚÒԼǼ±äÁ¿Ãû£¬ÒÔ¼ò»¯¶Ô¼Ç¼ÖÐÓòµÄÒýÓÃд·¨¡£
with PromotedEmployee do
begin
Name :='';
YearHired := 1993;
Salary := 2000.00
Position := 'editor';
end;
Object PascalµÄ¿âµ¥ÔªUnit¡¡
UnitsÊdz£Á¿¡¢±äÁ¿¡¢Êý¾ÝÀàÐÍ¡¢¹ý³ÌºÍº¯ÊýµÄ¼¯ºÏ£¬¶øÇÒÄܹ»±»¶à¸öÓ¦ÓóÌÐòËù¹²Ïí
unit <¿âµ¥ÔªÃû³Æ>¡¡
interface¡¡
uses <Ñ¡ÔñÐԵĿⵥԪÁбí>
{¹«ÓÐ˵Ã÷}¡¡
implementation¡¡
uses <Ñ¡ÔñÐԵĿⵥԪÁбí>
{˽ÓÐ˵Ã÷}
{¹ý³ÌºÍº¯ÊýµÄÖ´Ðв¿·Ö}
   initialization {Ñ¡ÔñÐÔµÄ}
{Ñ¡ÔñÐԵijõʼ»¯³ÌÐò}
end.¡¡
½¨Á¢Óë´°ÌåÎ޹صÄпⵥԪ¡¡
Èç¹ûÄúÏëÔÚ¹¤³ÌÖн¨Á¢Ò»¸öºÍÈκδ°ÌåÎ޹صÄпⵥԪ£¬¿ÉÒÔÏÖÑ¡ÓÃFile|New Unit¡£Õâʱһ¸öеĿⵥԪ¼ÓÈëÁ˹¤³Ì£¬Ð¿ⵥԪµÄ´úÂëÈçÏ£º¡¡
unit Unit2;
interface
implementation
end.¡¡
µ±±àÒëÄúµÄ¹¤³Ìʱ£¬Õâ¸öмÓÈëµÄ¿âµ¥Ôª»á±»±àÒëΪһ¸ö¾ßÓÐ.DCUºó׺µÄÎļþ¡£Õâ¸öÐÂÉú³ÉµÄÎļþÊÇÁ´½Óµ½¹¤³ÌµÄ¿ÉÖ´ÐÐÎļþÉϵĻúÆ÷´úÂë¡£


Ïà¹ØÎĵµ£º

Delphi Öд®¿ÚͨѶµÄʵÏÖ

  Delphi ÊÇÐÂÒ»´ú¿ÉÊÓ»¯¿ª·¢¹¤¾ß£¬Ëü¾ßÓй¦ÄÜÇ¿´ó¡¢¼ò±ãÒ×ÓúʹúÂëÖ´ÐÐËÙ¶È¿ìµÈÌØµã£¬ÊÇÈ«Çò¹«ÈϵĿìËÙÓ¦Óÿª·¢¹¤¾ß¼¼ÊõµÄÏÈÇýÕߣ¬ËüÔ½À´Ô½ÔÚ¹¹¼ÜÆóÒµÐÅϢϵͳ·½Ãæ·¢»Ó×ÅÖØÒª×÷Óá£ÓÉÓÚDelphi ÕâЩÏÔÖøÌØµã£¬Ðí¶à³ÌÐòԱѡÔñDelphi×÷Ϊ¿ª·¢¹¤¾ß±àÖÆ¸÷ÖÖÓ¦ÓóÌÐò¡£µ«ÊÇ£¬ÁîÈËÍïϧµÄÊÇDelphiûÓÐ×Ô´ø´®¿Ú ......

DELPHI ÎļþѹËõ¼ÓÃÜ

1¡¢  ÏµÍ³¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ· ......

Delphi×Ö·û´®¼ÓÃܽâÃܺ¯Êý


Delphi×Ö·û´®¼ÓÃܽâÃܺ¯Êý
¹¦ÄÜ£º×Ö·û´®¼ÓÃܺͽâÃÜ
Ê×Ïȶ¨ÒåÒ»¸ö³£Á¿Êý×é
const
      XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //×Ö·û´®¼ÓÃÜÓÃ
ÔÚ³ÌÐòÀï¼ÓÈëÒÔÏÂÁ½¸öº¯Êý£¬
function Enc(Str:String):String;//×Ö·û¼ÓÃܺ¯數 這ÊÇÓõÄÒ»個&# ......

Delphi ʹÓÃ×Ô¶¨ÒåÏûÏ¢

1¡¢ÏÈÓÃConst ¶¨ÒåÒ»¸ö³£Á¿£¬ÀýÈç const WM_MyMessage=WM_USER+$200;
2¡¢ÔÚҪʵÏÖµÄunitÖж¨ÒåÒ»¸ö˽Óз½·¨
   procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3¡¢ÊµÏÖÕâ¸ö˽Óз½·¨
    procedure TForm1.doMyMessage(var msg:TMessage);
begin
  //
  if msg. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ