Ò»ÃûDelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß
Óйؿª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆÈ¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ
½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
Ê×ÏÈ£¬µÚÒ»²½Òª×öµÄ£¬µ±È»ÊǸøÐÂÏîÄ¿½¨Ò»¸öµ¥¶ÀµÄĿ¼£¨±ðЦ£©¡£Ä¿Â¼Ãû³ÆÓëÏîÄ¿Ãû³ÆÍ¬Ãû£¬»òÕßÁíȡһ¸öÒ²¿É£¬Ö»ÒªÇå³þ¡¢¼òÁ·¡£È»ºó£¬ÔÚ´ËĿ¼Öд´½¨ÒÔϸ÷
¸öĿ¼£º
<Doc>£ºÓÃÀ´´æ·Å¸ÃÏîÄ¿Ïà¹ØµÄ¿ª·¢Îĵµ£¨ÐèÇó˵Ã÷£¬¸ÅÒªÉè¼Æ£¬ÏêϸÉè¼ÆµÈµÈµÈµÈ£©£»
<Source>£ºÓÃÀ´´æ·ÅDelphiÔ´³ÌÐòÖеĔ.Dpr”,”.Pas”,”.Dfm”µÈÎļþ£»
<Dcu>£º¸ÃĿ¼Öдæ·Å”.Dcu”Îļþ£¬½«’.Pas’Óë’.Dcu’Îļþ·Ö¿ª´æ·ÅÖ»ÊÇΪÁËÈÃSourceĿ¼µÄÄÚÈݸü¼ÓÇå³þһЩ£»
<Bin>£º´æ·Å¹¤³ÌµÄÊä³öÎļþ£¬±ÈÈç”.Exe”,”.Dll”»òÕß”.Ocx”µÈµÈ£»
<Log>£ºÓÃÀ´´æ·ÅÈÕÖ¾Îļþ£»Í¨³£ÔÚÕâ¸öĿ¼ÖÐÎÒ»á·ÅÒ»¸ö”<ÏîÄ¿Ãû³Æ>³ÌÐòÔ±ÈÕÖ¾.Txt”Îļþ¡£
<Images>£ºµ±È»ÊÇ´æ·Å¹¤³ÌÖÐÓõ½µÄͼƬµÄĿ¼ÁË¡£Ò»°ãÇé¿öÏ£¬Õâ¸öĿ¼ÊÇÉÙ²»Á˵ġ£¼ÙÈ绹Óõ½ÆäËû×ÊÔ´£¬ÄÇôҲһÑù½¨Á¢¸÷×ÔµÄĿ¼£¬
±ÈÈçWav£¬±ÈÈçAviµÈµÈ¡£
¶þ£®ÉèÖù¤³ÌÑ¡Ïî
ÔÚDelphiÖд´½¨Ò»¸öÐµĹ¤³Ì£¬½«´Ë¹¤³Ì±£´æµ½SourceĿ¼ÖУ¬Í¬Ê±£º
a.
ѡһ¸öÄÍ¿´µÄ£¬ÓëÏîÄ¿ÓÐЩÁªÏµµÄͼ±ê×÷ΪÕâ¸ö¹¤³ÌµÄͼ±ê¡£µ±È»£¬Õâ¸öͼ±ê¿ÉÄÜÖ»ÊÇÁÙʱÓÃÓõ쬵«ÊÇ×ÜÒª±ÈDelphiĬÈϵÄÄǸöÄÑ¿´µÄÒªºÃ²ÅÐУ¬Òª²»È»£¬
Ôõô¶ÔµÃÆð×Ô¼º£¿
b.½«Project Options -> Directories/ConditionalsÒ³ÃæÖеÄOutput
DirectoryÉèÖÃΪBinĿ¼£»
c.½«Unit output DirectoryÉèÖÃΪDcuĿ¼¡£
Èý£®Ìí¼Ó³£Á¿µ¥Ôª
Ìí¼ÓÒ»¸öеÄUnit£¬Áí´æÎª“unt<¹¤³ÌÃû> Consts.Pas”£¬ÓÃÀ´±£´æ¹¤³ÌÖÐÓõ½µÄ³£Á¿¡£
ËÄ£®Óйش°Ì壨Form£©¼°µ¥Ôª(Unit)
Ïà¹ØÎĵµ£º
procedure TfrmMain.FormCreate(Sender: TObject); //Ö÷´°ÌåFormCreateʼþ
var FWidth:integer;
begin
if (screen.Width <> 1024) then //¼ÙÉèÄãÉè¼Æ³ÌÐòʱµÄ·Ö±æÂÊΪ1024
begin
FWidth:=width;
scaled:=true;
& ......
ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......
×î½üÔÚµ÷ÊÔ´úÂë,·¢ÏÖÒ»¸öÎÊÌâ.Ó¦¸ÃËãÊÇbug°É. ºÇ,Èç¹û²»Ëãbug,ÄǾÍÊÇÎÒ¶ÔÆäʵÏÖÔÀíµÄÎó½â.
Èç¹û°Ñ·µ»Ø²ÎÊýResult×÷ΪÁíÒ»º¯ÊýµÄÊäÈë²ÎÊý,resultµÄ³õÖµÊDz»È·¶¨...
function fun(str:string):string;
begin
fun2(result);
end; ......
procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
&nb ......