先細說我的作用！
將DB資某些欄位的資料取出
存成一個字串，再將這個STR寫入 TXT檔
AND現在
如果DB裡的資料只有一個字串，那我要輸出兩位(EX: 5 -> 05)
那我應該怎麼修改程式呢??以下是原本程式
str := str Format('%-2S', [{.}FieldByName('ITEM').AsString]);
因為有些匯入的資料有的兩位，05、02、04...或 5、2、4 或 9E、8M...的等等都有可能
所以沒辦法將他寫死，不過廠商要的格式是兩位數。
或許問的有點瞎，但盼大大替小女子解惑！
感激不盡

編輯記錄

先言明，如果要輸出的都是數字，可以這樣做即可
str := str Format('%.2d', [StrtoIntDef(FieldByName('ITEM').AsString,0)]);

===================引 用 ladies 文 章===================
先如果DB裡的資料只有一個字串，那我要輸出兩位(EX: 5 -> 05)
那我應該怎麼修改程式呢??以下是原本程式
str := str Format('%-2S', [{.}FieldByName('ITEM').AsString]);
因為有些匯入的資料有的兩位，05、02、04...或 5、2、4...的等等都有可能

雖然說，剛剛測試一下是OK！
但是我又發現，我們DB裡有一些有帶字母的值(EX : 9E、8M 的>"<)，不過...
暫時解決我的問題，那邊單子不多，所以...
先謝過大大你了，^^希望其他大大賜教，讓程式的BUG越來越少。
YA....^^

編輯記錄

對不起插花一下,不知可否解決你的問題,
寫一個小小的Function

Function(Str: String; number : Integer) : String;
begin
Str:='00' Str
Result:=copy(Str,Length(Str)-number 1,number);
end;

------
結案=動力
高手等等我 .... 追隨高手永不懈怠!!