想請教一下 我現在要作資料比對 那因為我原本的資料為三個數字 如果是1到99 則是001到099 請教一下 因為若我在text內輸入001 因為要作數值計算的關係 他也會變成1 那如此一來 我就無法做到變更檔名的工作 想請教一下 我該如何作判斷 如果我要的數字為001 改為020 那我該如何作呢 可否請大大們提供些提示給我 另外 想請教一下 我要如何判斷 若text1.text不是數字 則跑出訊息呢 謝謝 附上原始檔案 procedure TForm1.Button6Click(Sender: TObject); var strs:tstringlist; f:string; i, j, k,l,m: integer; ff:file; begin j:= strtoint(edit1.Text); //欲改名的檔案起始數字 k:= strtoint(edit2.Text); //欲改名的檔案結束數字 l:= strtoint(edit3.Text); //新檔名的檔案起始數字 m:= strtoint(edit4.Text); //檔案數量 for i:=1 to m do begin f:= DirectoryListBox1.Directory '\' edit5.Text '.' IntToStr(j) '.tif' ; if FileExists(f) then begin if j <=k then begin RenameFile(edit5.Text '.' IntToStr(j) '.tif', edit5.Text '.' IntToStr(l) '.tif'); l := l 1; end; end; j := j 1; end; ShowMessage('完成更新'); end;

jiannrong 您好：    底下寫了個function，不知能否幫上忙？請參考。 < class="code">function IntToLeadingZero(value, len :integer): string; var k : integer; begin result := IntToStr(value); k := Length(result); while ( k RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####