社区
Delphi
帖子详情
怎样获取directorylistbox中最底层的路径!
candy_wang
2004-08-11 07:19:11
如题,应该用directorylistbox的什么方法或者哪个属性获得directorylistbox中最底层的路径
...全文
80
2
打赏
收藏
怎样获取directorylistbox中最底层的路径!
如题,应该用directorylistbox的什么方法或者哪个属性获得directorylistbox中最底层的路径
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
seasunsky
2004-08-12
打赏
举报
回复
DirectoryListBox1.GetItemPath(Index);
candy_wang
2004-08-12
打赏
举报
回复
各位大虾帮帮忙!
delphi_
Directory
ListBox
的用法
delphi_
Directory
ListBox
的用法
delphi7系统文件备份系统
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) DriveComboBox1: TDriveComboBox; File
ListBox
1: TFile
ListBox
;
Directory
ListBox
1: T
Directory
ListBox
; Button1: TButton; Button2: TButton;
ListBox
1: T
ListBox
; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit2: TEdit; Label10: TLabel; Label11: TLabel; Edit3: TEdit; Label12: TLabel; procedure Start(Sender: TObject); procedure changedrive(Sender: TObject); procedure SelectFolder(Sender: TObject); procedure
Directory
ListBox
1Change(Sender: TObject); procedure Addit(Sender: TObject); procedure Del(Sender: TObject); procedure Savelist(Sender: TObject); procedure foldercheck(Sender: TObject); procedure Search(Sender: TObject); procedure findlist(sender: TObject); procedure main(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Bak:string; implementation {$R *.DFM} procedure TForm1.Start(Sender: TObject); {copies files when backup required only replaces ones with newer time date} var dir,newstr,oldstr,s,ss:string; d,f,n,nod,nof,age,bakage,len,lendir,newF:integer; {number of directories ,number of files} a,b:boolean; begin NewF:=0; a:=false; dir:=
Directory
ListBox
1.
Directory
; nod:=
ListBox
1.items.count; for d:=0 to (nod-1) do begin
Directory
ListBox
1.
Directory
:=
listbox
1.items[d]; File
ListBox
1.
Directory
:=
Directory
ListBox
1.
Directory
; dir:=
Directory
ListBox
1.
Directory
; nof:=File
ListBox
1.items.count; for f:=0 to (nof-1) do begin oldstr:=Bak; newstr:=dir+'\'+File
listBox
1.items[f]; lendir:=length(dir); {oldstr:=Bak+'\'+copy(dir,4,len-3);} n:=pos('\',dir); s:=copy(dir,n+1,lendir); n:=pos('\',s); repeat ss:=copy(s,1,n-1); oldstr:=oldstr+'\'+ss; b:=
Directory
Exists(oldstr); if b=false then mkdir(oldstr); len:=length(oldstr); s:=copy(dir,len-2,lendir); n:=pos('\',s); until n=0; len:=length(newstr); oldstr:=bak+'\'+copy(newstr,4,len-3); age:=fileage(newstr); bakage:=Fileage(oldstr); if (age
Directory
ListBox
1.Drive:=DriveComboBox1.Drive; File
ListBox
1.Drive:=DriveComboBox1.Drive; end; procedure TForm1.SelectFolder(Sender: TObject); begin File
ListBox
1.
Directory
:=
Directory
ListBox
1.
Directory
; end; procedure TForm1.
Directory
ListBox
1Change(Sender: TObject); begin File
ListBox
1.
Directory
:=
Directory
ListBox
1.
Directory
; end; procedure TForm1.Addit(Sender: TObject); {Adds a folder to the bakup list and saves list - click button when added} begin
ListBox
1.items.Add(
Directory
ListBox
1.
Directory
); Savelist(sender); end; procedure TForm1.Del(Sender: TObject); var n:integer; begin n:=
listbox
1.itemindex;
Listbox
1.items.Delete(n); end; procedure TForm1.Savelist(Sender: TObject); {saves as bakup disk\bakup folder\folderlist.txt to disk the list of folders requiring bakup on } var folderlist:textfile; n,m:integer; s:string; begin n:=
listbox
1.items.count; assignfile(folderlist,bak+'\folderlist.txt'); rewrite(folderlist); for m:=0 to (n-1) do begin s:=
listbox
1.items[m]; writeln(folderlist,s); end; closefile(folderlist); end; procedure TForm1.findlist(sender: TObject); {Finds the list as saved on Disk and loads it at startup} var folderlist:textfile; s,ss:string; begin Bak:=edit1.text; ss:=bak+'\folderlist.txt'; assignfile(folderlist,ss{bak+'\folderlist.txt'}); reset(folderlist); repeat readln(folderlist,s);
listbox
1.items.add(s); until (s='eof') or (s=''); closefile(folderlist); end; procedure TForm1.foldercheck(Sender: TObject); {check folders in
Listbox
and makes ones not already existing} var n,nod,d:integer; s,sFront,sTemp:string; b:boolean; begin nod:=
ListBox
1.items.count; {first see if all folders exist in Bakup folder starting from the top make any not existing - ie sets up the Bakup folder structure} for d:=0 to nod-1 do begin s:=
listbox
1.items[d]; s:=s+'\'; delete(s,1,3); sFront:=Bak; repeat n:=pos('\',s); if n<>0 then begin sTemp:=copy(s,1,n-1); sFront:=sFront+'\'+sTemp; b:=
Directory
Exists(sFront); if b=false then MkDir(sFront); Delete(s,1,n); end; until n=0; end; end; procedure TForm1.Search(Sender: TObject); {Takes folder list in
listbox
1 and looks to see if one next level down has new folders. If yes then it makes the new folder and adds it to the
listbox
this enables bakup of new web pages with a PageFiles folder then saves list Does not seem to add to list box new directories found so that it digs deeper next time appears to add
directory
tried this saw it in .txt file (notpad) but on closing it must save in it original form as it has them gone has this to do with the blank lie that gets added in??????????????????} var nod,numinbox,nn,d,NewDir,len:integer; s,ss,dir:string; b:boolean; begin NewDir:=0; nod:=
ListBox
1.items.count; for d:=0 to nod-1 do begin
Directory
ListBox
1.
Directory
:=
listbox
1.items[d]; File
ListBox
1.
Directory
:=
Directory
ListBox
1.
Directory
; dir:=
Directory
ListBox
1.
Directory
; numinbox:=
directory
ListBox
1.items.count; {top:=
directory
ListBox
1.items[0]; top2nd:=
directory
ListBox
1.items[1];} for nn:=3 to numinbox-1 do begin s:=
listbox
1.items[d]+'\'+
Directory
ListBox
1.items[nn]; b:=
Directory
Exists(s); if b=true then begin len:=length(s); ss:=copy(s,4,len); ss:=Bak+'\'+ss; b:=
Directory
Exists(ss); if b=false then begin mkdir(ss);
listbox
1.items.add(s); NewDir:=NewDir+1; end; end; end; end; Edit2.text:=inttostr(NewDir); savelist(sender); end; procedure TForm1.main(Sender: TObject); begin findlist(sender); {find list of directories from disk}; foldercheck(sender);{check directories from list exist and if not make them} search(sender); {search for folder one level down} start(sender); {save files if there is a more up to date one} end; end.
Delphi文件查找示例
Delphi操作文件的一个简单函数示例,主要是用到Win31
中
的DriveComboBox和
Directory
ListBox
两个组件及FindFirst,FindNext和FindClose三个文件操作函数。/////////////////////////////////////////////////若有疑问,欢迎交流QQ:187106433E-Mail:xixuan2001@163.comMSN:myleaves2008@hotmail.com////////////////////////////////////////////////
学生上课传输文件系统程序
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, IdBaseComponent, ShellApi,IdComponent, IdIPWatch, ExtCtrls, jpeg; type TForm1 = class(TForm) File
ListBox
1: TFile
ListBox
; Button1: TButton;
Directory
ListBox
1: T
Directory
ListBox
; DriveComboBox1: TDriveComboBox; FilterComboBox1: TFilterComboBox; Edit1: TEdit; Label1: TLabel; Button2: TButton; Label2: TLabel; Memo1: TMemo; Label3: TLabel; IdIPWatch1: TIdIPWatch; Label4: TLabel; Button3: TButton; Edit2: TEdit; Label5: TLabel; Label6: TLabel; Label7: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure File
ListBox
1DblClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Label3Click(Sender: TObject); procedure Label4Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a1:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var str5: string; begin begin str5 := InputBox('输入姓名', 'Name:', ''); // Application.Terminate; // 退出程序 if str5 ='' then showmessage('没有输入姓名,请重新输入') else begin ShowMessage(str5); //显示输入的内容 CopyFile(pchar(string(File
ListBox
1.FileName)), pchar('\\10.10.3.167\stu\' + str5+copy(IdIPWatch1.LocalIP,9,3)+Edit1.text), false); Application.MessageBox('已经复制到老师机子里了', '提示', MB_OK) // Application.Terminate; // 退出程序 end ; end; end; procedure TForm1.FormCreate(Sender: TObject); begin self.File
ListBox
1.FileEdit :=self.Edit1 ; self.FilterComboBox1.FileList :=self.File
ListBox
1 ; self.
Directory
ListBox
1.FileList :=self.File
ListBox
1 ; self.
Directory
ListBox
1.DirLabel :=self.Label1 ; self.DriveComboBox1.DirList :=self.
Directory
ListBox
1 ; self.Button1.Default :=true; self.Button3.Visible :=false; end; procedure TForm1.File
ListBox
1DblClick(Sender: TObject); begin // CopyFile(File
ListBox
1.FileName,File
ListBox
1.FileName,False); //CopyFile(pchar(string(File
ListBox
1.FileName)), pchar('\\10.10.3.167\stu\' +copy(IdIPWatch1.LocalIP,9,3)+ Edit1.text), false); //Application.MessageBox('已经复制到老师机子里了', '提示', MB_OK) ShellExecute(handle,'open', pchar(string(File
ListBox
1.FileName)), nil, nil, SW_SHOWNORMAL); end; procedure TForm1.Button2Click(Sender: TObject); begin Application.Terminate; // 退出程序 end; procedure TForm1.Label3Click(Sender: TObject); begin memo1.Lines.LoadFromFile(getcurrentdir+'\a.txt'); end; procedure TForm1.Label4Click(Sender: TObject); begin memo1.Lines.LoadFromFile(getcurrentdir+'\a1.txt'); end; procedure TForm1.Button3Click(Sender: TObject); var str6: string; begin begin str6 := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessage(str6); //显示输入的内容 memo1.Lines.SaveToFile('\\10.10.3.167\stu\' + copy(IdIPWatch1.LocalIP,9,3)+str6+'.txt'); Application.MessageBox('你的作业已经复制到老师机子里了', '提示', MB_OK) end; end; end.
不用三方控件读excel源码
本资源无任何三方控件,无须安装excel,所使用控件自己下载去看 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, shlobj,ShellAPI, Menus, StdCtrls, DB, ADODB, FileCtrl, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; File
ListBox
1: TFile
ListBox
;
Directory
ListBox
1: T
Directory
ListBox
; DriveComboBox1: TDriveComboBox; con1: TADOConnection; ADOQuery1: TADOQuery; DasFind: TADODataSet; DataSource5: TDataSource; ComboBox1: TComboBox; PopupMenu1: TPopupMenu; N1: TMenuItem; Button1: TButton; Edit1: TEdit; ComboBox2: TComboBox; DataSource1: TDataSource; PopupMenu2: TPopupMenu; N2: TMenuItem; N3: TMenuItem; Button2: TButton; ADOConnection1: TADOConnection; procedure File
ListBox
1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure setdbgridwidth; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ComboBox1Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章