再請教資料比對 |
尚未結案
|
jiannrong
一般會員 發表:58 回覆:36 積分:18 註冊:2002-05-09 發送簡訊給我 |
想請教一下 我現在要作資料比對 那因為我原本的資料為三個數字
如果是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;
|
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
jiannrong 您好: 底下寫了個function,不知能否幫上忙?請參考。 < class="code">function IntToLeadingZero(value, len :integer): string;
var
k : integer;
begin
result := IntToStr(value);
k := Length(result);
while ( k
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |