全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1441
推到 Plurk!
推到 Facebook!

更換檔名問題

答題得分者是:st33chen
鴻760121
一般會員


發表:8
回覆:10
積分:3
註冊:2008-06-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-10-01 16:06:57 IP:125.231.xxx.xxx 訂閱
請問如何更換一個已存文件的檔名
可以用Button1 和 Edit1 更改他的檔名嗎

syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-10-07 09:01:38 IP:118.231.xxx.xxx 訂閱
不行,請用 Rename 的 function

Button1 是用來「按」的
Edit1 使用來「輸入文字」的

改檔案名稱,要用 Delphi 函式或 Windows API

===================引 用 鴻760121 文 章===================
請問如何更換一個已存文件的檔名
可以用Button1 和 Edit1 更改他的檔名嗎
鴻760121
一般會員


發表:8
回覆:10
積分:3
註冊:2008-06-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-10-07 13:59:22 IP:140.126.xxx.xxx 訂閱
沒辦法用OpenDialog1 和 SaveDialog1 嗎?
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-10-07 14:39:53 IP:118.231.xxx.xxx 訂閱
可以,但不是 OpenDialog1 和 SaveDialog1 的原意

OpenDialog1 和 SaveDialog1 中可以在檔案上,重新命名 <-- 其實是透過 explore 系統介面在重新命名

OpenDialog1 和 SaveDialog1 真正的用途是「用來選取檔案」

===================引 用 鴻760121 文 章===================
沒辦法用OpenDialog1 和 SaveDialog1 嗎?
鴻760121
一般會員


發表:8
回覆:10
積分:3
註冊:2008-06-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-10-07 15:32:30 IP:140.126.xxx.xxx 訂閱
好深奧的東西 要怎麼寫呢?

我還一個想法 大概是這樣
FILE *fp;
AnsiString fileas;
fileas=Edit7->Text;
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-10-08 09:12:10 IP:122.116.xxx.xxx 未訂閱
您好,
用 SysUtils 的 renamefile 試試看

假設 edit1 舊檔名, edit2 新檔名
且 舊檔名一定存在, 新檔名一定不存在 (也就是請自行加程式碼去判斷)

button1 的 onclick : (我寫的是 o n c l i c k, 他會動變成 forbidden)

if trim(edit2.text)<>'' then begin
if RenameFile(edit1.text, edit2.text) then
ShowMessage(edit1.text ' 改名為 ' edit2.text ' 成功')
else begin
showMessage(edit1.text ' 改名為 ' edit2.text ' 失敗 : ' IntToStr(GetLastError));
end;
end;

沒試過如果 舊檔名 和 新檔名 不在同一 folder, 會不會有 move file 的效果.

啊. 對不起, 寫錯地方了, 我以為是 delphi 區...


===================引 用 鴻760121 文 章===================
請問如何更換一個已存文件的檔名
可以用Button1 和 Edit1 更改他的檔名嗎

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2008-10-08 09:15:55, 註解 無‧
st33chen 重新編輯於 2008-10-08 09:17:31, 註解 無‧
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2008-10-09 08:19:40 IP:118.231.xxx.xxx 訂閱
[好深奧的東西] <--- 可能是你連看書的基本功都沒做,才會這樣想吧

新手不代表,可以不看書就會進步

找本書好好看看

加油!

PS.站上也早就一堆程式碼可以查,用一下查詢功能吧,站長寫得很辛苦,你也用一下吧!



===================引 用 鴻760121 文 章===================
好深奧的東西 要怎麼寫呢?

我還一個想法 大概是這樣
FILE *fp;
AnsiString fileas;
fileas=Edit7->Text;
編輯記錄
syntax 重新編輯於 2008-10-09 08:21:16, 註解 無‧
系統時間:2024-05-04 22:01:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!