Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ¿ØÖÆ·Ö²¼Ê½Êý¾Ý¿âͨÐÅ·½Ê½

Ò»¡¢     ÍøÂç²¼¾Ö
   һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢     ͨÐÅÒªÇó
   ÿ̨±¾µØ·þÎñÆ ......

DelphiÎļþÖеĺó׺Ãû½éÉÜ

ÓÃDelphi×÷µÄ³ÌÐòµÄÔ´´úÂëÖг£¼ûµÄÎļþÀ©Õ¹Ãû£¬²¢¸ø³öÁËÕâЩÎļþÀ©Õ¹ÃûµÄÒâÒ壬ÒÔ±ãÔ´´úÂë¹ÜÀíʱ×÷Ϊ²ÎÕÕ£¬À©Õ¹ÃûÒÔ×ÖĸΪÐò£¨²»ÐèÒª½øÔ´´úÂë¿â²»±íʾ²»ÐèÒª½ø¿â£©¡£
¡¡¡¡~*
¡¡¡¡DelphiÉú³ÉµÄ±¸·ÝÎļþ£¬ÔÚ°æ±¾¿ØÖƿ⼰·¢²¼´úÂëÖв»Ó¦¸Ã³öÏÖÕâЩÎļþ£¬Èç¹ûÐÞ¸ÄÁËij¸öÎļþÈ´ÒòijЩԭÒòûÓб£´æµÄ»°£¬¿ÉÒÔ³¢ÊÔʹÓÃÕâЩÎļþ» ......

delphi TStringListµÄÓ÷¨

TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const
......

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


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

DelphiÀïʵÏÖMD5¼ÓÃÜ ¿Ø¼þ·¨


ÔÚDelphiÀïʵÏÖMD5¼ÓÃÜÆäʵºÜÈÝÒ×£¡·½·¨ÈçÏ£º
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë
¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë

procedure
TForm
1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin

MyMD5 := T ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ