找出相同名稱的資料庫 |
|
缺席
|
|
ann0509
一般會員   發表：19 回覆：42 積分：12 註冊：2010-08-09 發送簡訊給我 |
|
|
老大仔
尊榮會員  發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
|
|
ann0509
一般會員 發表：19 回覆：42 積分：12 註冊：2010-08-09 發送簡訊給我 |
rocedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; sr1: TSearchRec; begin if FindFirst('C:\1\' '*.mdb',0, sr) = 0 then begin repeat ListBox1.items.Add(sr.name); until FindNext(sr) <> 0; //FindClose(sr); end; if FindFirst('C:\2\' '*.mdb',0, sr1) = 0 then begin repeat ListBox2.items.Add(sr1.Name); until FindNext(sr1) <> 0; //FindClose(sr1); end; end; end. 我先把1和2資料夾裡所有的mdb黨 都分別放到listbox1和listbox2上面 我想找出 這兩個資料夾 有相同檔名的檔案 應該怎嚜繼續寫下去呢 ===================引 用 老大仔 文 章=================== 請先爬文 搜尋檔案文章在本站已經很多了 請多多善用本站的資料~ |
|
ann0509
一般會員 發表：19 回覆：42 積分：12 註冊：2010-08-09 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var sr: TSearchRec; sr1: TSearchRec; begin if (FindFirst('C:\Documents and Settings\qc01\桌面\Data\' '*.mdb',0, sr)=0)and ( FindFirst('C:\u-can.sys\S_Table\' '*.mdb',0, sr1)=0) then repeat if sr.name=sr1.name then ListBox1.items.Add(sr.Name); until FindNext(sr1) <> 0; //FindClose(sr1); end; end. 只能收尋到一筆一樣的 就停止收尋了 可是我這兩個資料夾 有兩筆以上一樣的 |
|
ann0509
一般會員 發表：19 回覆：42 積分：12 註冊：2010-08-09 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; sr1: TSearchRec; begin if FindFirst('C:\Documents and Settings\qc01\桌面\Data\' '*.mdb',0, sr)=0 then repeat if FindFirst('C:\u-can.sys\S_Table\' '*.mdb',0, sr1)=0 then repeat if sr.name=sr1.name then ListBox1.items.Add(sr.Name); until FindNext(sr1) <> 0; until FindNext(sr) <> 0; end; end. 已經ok了 |
發表時間：2010-08-24 09:22:30
IP:60.248.xxx.xxx 訂閱
系統時間：2024-04-19 19:37:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |