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ºó׺µÄÎļþ¡£Õâ¸öÐÂÉú³ÉµÄÎļþÊÇÁ´½Óµ½¹¤³ÌµÄ¿ÉÖ´ÐÐÎļþÉϵĻúÆ÷´úÂë¡£
Ïà¹ØÎĵµ£º
Ò»¡¢ ÍøÂç²¼¾Ö
һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢ ͨÐÅÒªÇó
ÿ̨±¾µØ·þÎñÆ ......
ÓÃDelphi×÷µÄ³ÌÐòµÄÔ´´úÂëÖг£¼ûµÄÎļþÀ©Õ¹Ãû£¬²¢¸ø³öÁËÕâЩÎļþÀ©Õ¹ÃûµÄÒâÒ壬ÒÔ±ãÔ´´úÂë¹ÜÀíʱ×÷Ϊ²ÎÕÕ£¬À©Õ¹ÃûÒÔ×ÖĸΪÐò£¨²»ÐèÒª½øÔ´´úÂë¿â²»±íʾ²»ÐèÒª½ø¿â£©¡£
¡¡¡¡~*
¡¡¡¡DelphiÉú³ÉµÄ±¸·ÝÎļþ£¬ÔÚ°æ±¾¿ØÖÆ¿â¼°·¢²¼´úÂëÖв»Ó¦¸Ã³öÏÖÕâЩÎļþ£¬Èç¹ûÐÞ¸ÄÁËij¸öÎļþÈ´ÒòijЩÔÒòûÓб£´æµÄ»°£¬¿ÉÒÔ³¢ÊÔʹÓÃÕâЩÎļþ» ......
1¡¢ ϵͳ¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ· ......
ÆÁÄ»µÄ·Ö±æÂÊÓÃÕâ¸ö
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
ͬÉÏ¡£
.¶øÇÒ»ñµÃÆÁÄ»ÉϵÄÏñËغÃÏñÓ¦¸ÃʹÓÃ
screen.pixelsperinchº¯Êý
int GetDeviceCaps(
  ......
ÔÚDelphiÀïʵÏÖMD5¼ÓÃÜÆäʵºÜÈÝÒ×£¡·½·¨ÈçÏ£º
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë
¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure
TForm
1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := T ......