為什么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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |