請問各位~ 是否有個函數可以作為前面補零的動作~ 例如~ 序號[1~250] 固定為3位 序號[001. 002. 003 ~ 250] 轉換成文字~ 我記得Foxpro好像有個類似~ right("000000000" alltrim(str(B)),9)~ Delphi有類似的可用函數嗎~ 謝謝~

您好﹗    可使用Format函數﹐例﹕

begin
  Edit1.Text := Format('%3.3d', [1]);
end;

========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟

函數的話用這個. formatfloat('000',序號)

 
Function AddZero2(SS: String; II: Integer):String; //字串前補零    Function AddZero2(SS: String; II: Integer):String; //字串前補零
begin
If Length(TRIM(SS)) < II Then
while Length(TRIM(SS)) < II do SS := '0' SS;
Result := SS;
//DEMO:AddZero2('870501',7):='0870501'
end;

你參考一下,我都用這function 在處理...