Procedure Format(MyEdit1,MyEdit2:TEdit); Var I : Integer; S : String; begin I := StrToInt(MyEdit1.Text); FmtStr(S, '%.3d', [I]); MyEdit2.Text := S; // I.E. If Edit1.Text := '1' den Edit2.Text := '001'; end;
TD Software
Son yorumlar