求位数.txt

来自「支票打印」· 文本 代码 · 共 16 行

var
  num,ws:Integer;
 begin
    label1.caption:='';
    num:=StrToInt(edit1.text);
    ws:=1;
    
    while num>10 do
     begin
     ws:=ws+1;
     num:=num div 10;
     end ;
   label1.Caption:=IntToStr(ws);
   edit1.Text:='';
end;