码迷,mamicode.com
首页 > 其他好文 > 详细

ListView 文件重命名

时间:2014-07-29 21:27:32      阅读:320      评论:0      收藏:0      [点我收藏+]

标签:style   blog   http   color   os   strong   文件   io   

 
bubuko.com,布布扣
 
 
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.
 
 




附件列表

     

    ListView 文件重命名,布布扣,bubuko.com

    ListView 文件重命名

    标签:style   blog   http   color   os   strong   文件   io   

    原文地址:http://www.cnblogs.com/xe2011/p/3876248.html

    (0)
    (0)
       
    举报
    评论 一句话评论(0
    登录后才能评论!
    © 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
    迷上了代码!