delphi savediglog¶à´Î±£´æÎÊÌâ
ÎÒÔÚÓÃmainmenu²Ëµ¥¿Ø¼þºÍsavediglog¿Ø¼þÉèÖñ£´æÎļþ¶Ô»°¿òʱ£¬ËäÈ»Äܹ»Ë³Àû±£´æÎļþ£¬µ«ÊÇÎÒ¶ÔÒѾ±£´æ¹ýµÄÎļþ½øÐÐÔٴα£´æµÄʱºò£¬²¢²»ÄܺͺܶàÈí¼þÒ»ÑùÖ±½Ó±£´æ£¬¶øÊÇÈÔÈ»µ¯³ö±£´æ¶Ô»°¿ò£¬¶øÎÒ²»ÏëËü´ò¿ª£¬¶øÊÇÖ±½Ó±£´æ¡£Òª²»È»ÕâÑùµÄ»°±£´æÓëÁí´æÎªÃ»Çø±ðÁË¡£
×îºÃ»¹ÄÜʵÏÖ±£´æ¹ýÎļþ£¬±£´æ°´Å¥Îª»ÒÉ«£¬Óи͝ÔÙ±äÁÁÕâ¸ö¹¦ÄÜ£¬Ë»áдÕâ¶Î´úÂ룬»òÕßÓÐʲô·½·¨£¬½Ì½ÌÎÒ¡¡¡¡¼±
Ç°ÃæÄã˵µÄ£¬ÄǵÃÄã×Ô¼ºÅжϣ¬µ±±£´æ¹ýÎļþºó£¨¾ÍÊÇ»ñµÃÁËÓû§Ñ¡ÔñµÄ±£´æÂ·¾¶ºÍÎļþÃû£©¾Í²»ÒªÔÚµ¯³ö±£´æ¶Ô»°¿ò£¬¶øÊÇÖ±½Ó±£´æÎļþÁË¡£
¾ßÌå´úÂëÊÇʲô°¡£¬»¹Óеڶþ¸ö¹¦ÄÜÔõôʵÏÖ°¡
sFile := SaveDialog1.filename;
if not fileexists(sFile) then
begin
if SaveDialog1.Execute then
begin
... ...
end;
end else begin
//Ö±½Ó±£´æ
end;
3Â¥µÄлÁË£¬²»¹ýÌáʾ³ö´íÎÒÔÀ´µÄ´úÂëÊÇ£º
procedure TForm1.Save1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
wb1.Lines .SaveToFile(SaveDialog1 .FileName);
end;
ÒªÊÇÓÃÄãÕâ¸öÔõôÓÃ
Äã±£´æµÄÎļþÕýÔÚʹÓá£
End_rbody_60447841//-->
¸Ã»Ø¸´ÓÚ2009-10-19 10:44:48±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
newfang
(MIC)
µÈ¡¡¼¶£º
#7Â¥ µÃ·Ö£º3»Ø¸´ÓÚ£º2009-10-16 09:35:43
Â¥Ö÷Òâ˼²»¾ÍÊDz»Ïëÿ´Î¶¼µ¯³ö±£´æ¶Ô»°¿òÂð£¿
ÄǾÍÅжÏÒª±£´æµÄÎļþÊÇ
Ïà¹ØÎÊ´ð£º
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º
5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......