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)

附件列表