您现在的位置：毕业论文 >> 论文 >> 正文

DELPHI办公管理系统第22页

更新时间：2010-1-17: 来源：毕业论文

DELPHI办公管理系统第22页
result:=copy(ffname,1,LastDelimiter('.',ffname)-1);
end;
function getint(instr:string;intx:integer):string;
var ii,cc0:integer;
    is0:boolean;
    str0:string;
begin
is0:=true;
cc0:=0;
if length(instr)>1 then        //当起始数字只为1位时没必要加前导0
for ii:=1 to length(instr) do begin    //得到前导0的个数
   if not is0 then break;
   if instr[ii]='0' then inc(cc0)
   else is0:=false;
end;
        //计算因进位而减少前导0的数量
cc0:=cc0-(length(inttostr(strtoint(instr)+intx-1))-length(inttostr(strtoint(instr))));
str0:='';
for ii:=1 to cc0 do str0:=str0+'0';   //转为字串
result:=str0+inttostr(strtoint(instr)+intx-1);//前导0+数值
end;
function getletter(sletter:string;addorsub:boolean;steps:integer):string;
var ii,strord:integer;
    tmpstr:string;
begin   //字母递增
strord:=0;
for ii:=1 to length(sletter) do
   strord:=strord+(ord(sletter[ii])-65)*round(power(26,length(sletter)-ii)) ; //power(x,y):float X的Y次方
if addorsub then
   strord:=strord+steps
else if strord>1 then
   strord:=strord-steps;
tmpstr:='';
while (strord>=26) do
begin
   tmpstr :=chr(strord mod 26 +65)+tmpstr;
   strord:=strord div 26;
end;
   tmpstr :=chr(strord mod 26 +65)+tmpstr;
result:=tmpstr;
end;
function getok(mbstr,instr,startx:string;norl:boolean;intx:integer;fore:boolean):string;
             //模板字串,输入字串,开始字符,数字/字母,列表中序号,文件名/扩展名
var tmpok:string;
begin
tmpok:='';
while length(mbstr)>0 do
begin
if mbstr[1]='*' then begin
   if fore then tmpok:=tmpok+getffname(instr) else tmpok:=tmpok+instr ;
   delete(mbstr,1,1);
end
else
   if mbstr[1]='<' then
    if pos('>',mbstr)>0 then begin
     tmpok:=tmpok+instr[strtoint(copy(mbstr,2,pos('>',mbstr)-2))];
     delete(mbstr,1,pos('>',mbstr));
    end
    else begin tmpok:=tmpok+mbstr[1]; delete(mbstr,1,1); end
   else
    if mbstr[1]='?' then begin
     if norl then tmpok:=tmpok+getint(startx,intx)
     else tmpok:=tmpok+getletter(startx,true,intx-1);
     delete(mbstr,1,1);
    end
    else begin tmpok:=tmpok+mbstr[1]; delete(mbstr,1,1); end;
end;
result:=tmpok;
end;
procedure TBM_CHANGEFILEF.SpeedButton1Click(Sender: TObject);

begin
if opendialog1.Execute then
begin
totanum:=totanum+opendialog1.Files.Count;
rnlist1.RowCount:=totanum;
// tmptstr:=tstrings.Create ;
tmptstr:=opendialog1.Files;
tmplen:=tmptstr.Count ;
for ii:=0 to tmplen-1 do begin
   rnlist1.Cols[0].Append(ExtractFileName(tmptstr.Strings[ii]));
   rnlist1.Cols[1].Append(ExtractFileName(tmptstr.Strings[ii]));
   rnlist1.Cols[2].Append(ExtractFilePath(tmptstr.Strings[ii]));
end;
// rnlist1.Cols[0].AddStrings(tmptstr);
end;
end;

procedure TBM_CHANGEFILEF.SpeedButton2Click(Sender: TObject);
var nn,cc:integer;
begin
cc:=rnlist1.Selection.Bottom-rnlist1.Selection.Top+1;
if rnlist1.RowCount<=2 then rnlist1.rows[1].clear
else begin
for nn:= rnlist1.Selection.Top to rnlist1.Selection.Bottom do
   rnlist1.Rows[nn].Clear ;
for nn:= rnlist1.Selection.Bottom+1 to rnlist1.RowCount-1 do begin
   rnlist1.Rows[nn-cc]:=rnlist1.Rows[nn];
   rnlist1.Rows[nn].Clear ;
end;
if rnlist1.RowCount-cc<2 then rnlist1.RowCount:=2
else rnlist1.RowCount:= rnlist1.RowCount-cc;
end;
totanum:=rnlist1.RowCount-1;

end;

procedure TBM_CHANGEFILEF.SpeedButton3Click(Sender: TObject);
var moban,okstr,nostr,tmpstr :string;
    nn,ii:integer;
    tmplist:tstrings;
begin   //预览
//先执行模板改名
nostr:='\/:"<>*?|';
if checkbox1.Checked then begin        //如果允许使用模板
moban:=combobox2.Text;
   for nn:=1 to rnlist1.RowCount-1 do begin
    okstr:='';
    okstr:=getok(moban,rnlist1.Cells[0,nn],ledit1.Text,radiob1.Checked,nn,true);
    if rnlist1.Cells[0,nn]<>'' then
     if checkbox2.Checked then   //如果允许改扩展名
      rnlist1.Cells[1,nn]:=okstr+getok(combobox3.Text,extractfileext(rnlist1.Cells[0,nn]),ledit1.Text,radiob1.Checked,nn,false)
     else
      rnlist1.Cells[1,nn]:=okstr+extractfileext(rnlist1.Cells[0,nn]);
    tmpstr:='';
    for ii:=1 to length(rnlist1.Cells[1,nn]) do
     if pos(rnlist1.Cells[1,nn][ii],nostr)<=0 then
      tmpstr:=tmpstr+rnlist1.Cells[1,nn][ii];
    rnlist1.Cells[1,nn]:=tmpstr;