為什么filelistbox不能顯示我要顯示的目錄文件？ |
|
尚未結案
|
|
WWW999
一般會員   發表：18 回覆：19 積分：7 註冊：2005-09-26 發送簡訊給我 |
我剛學delphi,我想讓lifelistbox1,來顯示edit1所指向的目錄，但為什么不顯示？它總是顯示它本地的目錄文件，這是什么？如何才能讓它顯示 edit1的目錄？ 代碼： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; FileListBox1: TFileListBox; FileListBox2: TFileListBox; procedure BitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); var strcaption,strdirectory: string; Wstrboot:WideString; begin strcaption:='請選擇一個文件夾'; Wstrboot:=''; Selectdirectory(strcaption,Wstrboot,strdirectory); edit1.Text:= strdirectory+'\'; end; procedure TForm1.FormCreate(Sender: TObject); begin form1.filelistbox1.FileEdit :=form1.Edit1 ; end; procedure TForm1.BitBtn2Click(Sender: TObject); var strcaption,strdirectory: string; Wstrboot:WideString; begin strcaption:='請選擇一個文件夾'; Wstrboot:=''; Selectdirectory(strcaption,Wstrboot,strdirectory); edit2.Text:= strdirectory+'\'; end; procedure TForm1.BitBtn3Click(Sender: TObject); var strcaption,strdirectory: string; Wstrboot:WideString; begin strcaption:='請選擇一個文件夾'; Wstrboot:=''; Selectdirectory(strcaption,Wstrboot,strdirectory); edit3.Text:= strdirectory+'\'; end; procedure TForm1.BitBtn4Click(Sender: TObject); var strcaption,strdirectory: string; Wstrboot:WideString; begin strcaption:='請選擇一個文件夾'; Wstrboot:=''; Selectdirectory(strcaption,Wstrboot,strdirectory); edit4.Text:= strdirectory+'\'; end; end. 如何才能將edit1的源文件复制到其它的目錄？
分別為：目標1、目標2、目標3。
是否能給与詳細的解答，或代碼
請多多指教 ，多謝，多謝
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi WWW999,
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists(Edit1.Text) then
FileListBox1.Directory := Edit1.Text;
end;
------
Fishman |
|
WWW999
一般會員 發表：18 回覆：19 積分：7 註冊：2005-09-26 發送簡訊給我 |
|
|
WWW999
一般會員 發表：18 回覆：19 積分：7 註冊：2005-09-26 發送簡訊給我 |
發表時間：2005-09-27 11:47:18
IP:222.160.xxx.xxx 未訂閱
系統時間：2024-06-29 16:57:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |