delphi¼¼ÇɼǼ
#13»Ø³µ»»ÐÐ
½«form2ÄÚÈݼÓÈëµ½form1Áбí¿ò£ºÔÚform2Àform1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')½«chinese.txtÎļþÄÚÈÝÔØÈëÁбí¿òÖС£µ«Ç°ÌáÊÇÒªÕû¸ö´°Ìå´´½¨Ê±ºò¼ÓÔØµ¼È룬˫»÷Õû¸ö´°Ìåprocedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese.txt')½«Áбí¿òµÄÁбíÄÚÈݱ£´æµ½µ±Ç°Ä¿Â¼ÏµÄchinese.txtÎļþÖС£
listbox1.deleteselectedɾ³ýÁбí¿òËùÑ¡µÄÒ»Ïîcombobox1.deleteselectedɾ³ýÏÂÀÁбí¿òËùÑ¡µÄÒ»Ïî
form1.showÓëform1.showmodalµÄÇø±ð£º show£¬±íµ¥1´ò¿ª±íµ¥2µÄͬʱ£¬ÈÔÄÜÇл»µ½±íµ¥1²Ù×÷¡£¶øshowmodal£¬¿ªÁË±íµ¥2£¬¹Ø±ÕÁ˲ÅÄÜÇл»·µ»Ø±íµ¥1¡£
¹¦Äܺ¯Êý£ºshowmessage('ÄÚÈÝ'); ±íµ¥form.close; ±íµ¥form.show;
±àд²Ëµ¥Ê±£ºctrl+→(ÓÒ·½Ïò¼ü)£ºÇ¶Ì××Ӳ˵¥Ïî¡£
messagebox(handle,'ÎÄ×Ö','±êÌâ',MB_ok);
³ýÁËMB_ok£º¶Ô»°¿òµÄÈ·¶¨£¬»¹ÓÐMB_ICONINFORMATION£ºÀ¶É«¾ªÌ¾ºÅ¡£MB_ICONWARNING£º»ÆÉ«¾ªÌ¾ºÅ¡£MB_ICONQUESTION£ºÎÞÉùÒôÀ¶É«Îʺš£MB_ICONHAND£ººìÉ«¾¯¸æ½»²æºÅ¡£
------------------------------
Rgn£ºregionËõд[ri:dʒən]µØÇø,µØ´ø,ÇøÓò,ÁìÓò,·¶Î§¡¾½öΪӢÎÄ·Ò룬ÀýCreateEllipticRgn·ÒëΪ´´½¨ÁËÒ»¸öÍÖÔ²ÐÎÇøÓò¡¿
Ïà¹ØÎĵµ£º
type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;
const
FindSet = ['(',')'];
implementation
{$R *.dfm}
{ TCharStack }
......
1¡¢TStringListÖ§³ÖµÄ×î´óÐÐÊýÊǶàÉÙ£¿£¨http://topic.csdn.net/t/20060209/14/4547405.html£©
Â¥Ö÷½áÂÛ£º“TStringListµÄLoadfromFileº¯ÊýÓ¦¸ÃÖ»ÄܶÁÈ¡15ÍòÐÐÒÔÄÚµÄÊý¾Ý£¬µ«TStringListºÍTListµÄAddº¯Êý¿ÉÒÔ¼Óµ½¼¸°ÙÍòÐУ¨ÉõÖÁ¸ü¶à£©Ò²²»»á³ö´í¡£³ÌÐò³ö´íµÄÔÒòÓ¦¸ÃÊÇAdd·Ç·¨ÄÚ´æÖ¸Õëµ¼Öµģ¬ÕýÈçtanlim(ÇóѧÕß) &nb ......
Format
typeµÄ¿ÉÄÜÖµÓÐÏÂÁÐÕâЩ£º
(1) d ÓзûºÅÊ®½øÖÆÊý
Args±ØÐëÊÇÓзûºÅÕûÐÍÊý¡£Èç¹ûÔÚ¸ñʽ»¯×Ö·û´®Öл¹¼ÓÈëÁË["." prec]£¬ÔòÈç¹ûArgs
µÄ³¤¶ÈÈç¹ûСÓÚ¸ø³öµÄ¾«¶ÈÊýʱ£¬ÔÚǰ±ßÌî²¹0£»Èç¹û´óÓÚ¾«¶ÈÊý£¬°´Êµ¼Ê³¤¶ ......
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
Delphi 7Ö®ºóµÄ°æ±¾£¬Ôö¼ÓÁËÔËËã·ûµÄÖØÔØ¡£ËäÈ»²»¾¡ÈËÒ⣨ÐèÒªÐ´ÌØ¶¨Ó¢ÎÄ£©£¬µ«ÓÐ×ܱÈûÓÐÇ¿¡£
Àý£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T3DPoint = record
X, Y, Z: Doub ......