ListView 文件重命名

最新推荐文章于 2022-12-01 07:48:55 发布

weixin_30826095

最新推荐文章于 2022-12-01 07:48:55 发布

阅读量261

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/p/3876248.html

本文介绍了一个使用Delphi实现的简单应用程序，该程序通过操作两个ListView控件来展示和修改文件数据。

unit Unit1 ;

interface

uses
   Windows , Messages , SysUtils , Variants , Classes , Graphics , Controls , Forms ,
   Dialogs , ComCtrls , StdCtrls ;

type
   TForm1 = class ( TForm )
     ListView1 : TListView ;
     ListView2 : TListView ;
     Button1 : TButton ;
     Edit1 : TEdit ;
     Edit2 : TEdit ;
     Button2 : TButton ;
     Button3 : TButton ;
     Edit3 : TEdit ;
     Button4 : TButton ;
     procedure Button1Click ( Sender : TObject );
     procedure ListView2Click ( Sender : TObject );
     procedure FormShow ( Sender : TObject );
     procedure Button2Click ( Sender : TObject );
     procedure Button3Click ( Sender : TObject );
   private
     { Private declarations }
   public
     { Public declarations }
   end ;

var
   Form1 : TForm1 ;

implementation

{$R *.dfm}
uses StrUtils ;

function AddSelItems ( listview1 : TListView ; ListView2 : TListView ): Boolean ;
var
   s : string ;
   I , j : Integer ;
begin
   Result := False ;
   if listview1 . Selected = nil then   exit ;

   for i := 0 to listview1 . items . count - 1 do
   begin
      j := ListView2 . Items . Count ;
     if listview1 . items [ i ]. selected then

       with ListView2 . Items . Add do
       begin
         Caption := IntToStr ( j );
         SubItems . add ( listView1 . Items [ i ]. Caption );
         SubItems . add ( 'FileName2' );
       end ;
   end ;
   Result := True ;
end ;

procedure TForm1 . Button1Click ( Sender : TObject );
begin
    ListView1 . SelectAll ;
    AddSelItems ( ListView1 , ListVIew2 );
end ;

var
     ID , FileName , NewName : string ;
procedure TForm1 . Button2Click ( Sender : TObject );
var
     i : Integer ;
begin
     for i := 0 to ListView2 . Items . Count - 1 do
     with ListView2 do
     begin
       ID := Items [ i ]. Caption ;
       FileName := Items [ i ]. SubItems . Strings [ 0 ] ;
       Items [ i ]. SubItems . Strings [ 1 ] := StringReplace ( FileName , Edit1 . Text , Edit2 . Text ,[ rfReplaceAll ]);
     end ;
end ;

procedure TForm1 . ListView2Click ( Sender : TObject );
begin
     if listview2 . Selected = nil then   exit ;

     with ListView2 do
     begin
       ID := Items [ ItemIndex ]. Caption ;
       FileName := Items [ ItemIndex ]. SubItems . Strings [ 0 ] ;
       NewName := Items [ ItemIndex ]. SubItems . Strings [ 1 ] ;
     end ;
     Form1 . Caption := Format ( 'Id = %s FileName = %s Newname = %s' ,[ ID , FileName , NewName ]);
end ;

procedure TForm1 . FormShow ( Sender : TObject );
begin
    ListView1 . SelectAll ;
    AddSelItems ( ListView1 , ListVIew2 );
    Button2 . Click ;
end ;

procedure TForm1 . Button3Click ( Sender : TObject );
var
     i : Integer ;
     LStr , RStr : string ;
begin
     LStr := LeftStr ( Edit3 . Text , Pos ( '*' , Edit3 . Text ) - 1 ) ;
     RStr := RightStr ( Edit3 . Text , Length ( Edit3 . text ) - Pos ( '*' , Edit3 . Text )   );
     for i := 0 to ListView2 . Items . Count - 1 do
     with ListView2 do
     begin
       ID := Items [ i ]. Caption ;
       FileName := Items [ i ]. SubItems . Strings [ 0 ] ;
       Items [ i ]. SubItems . Strings [ 1 ] := Format ( '%s%s%s' ,[ LStr , FileName , RStr ]);
     end ;
end ;

end .

来源： <">http://www.cnpack.org/>

来自为知笔记(Wiz)