如何在DELPHI中查找输入数字的千位、百位、十位、个位？例如：155 有 5 个一、5 个十等

var 
  iNum, iNumHun, iNumTens, iNumOnes : Integer;

begin

iNum := StrToInt(edtInput.Text);

iNumHun := iNum DIV 100;

iNumTens := iNum DIV 10;

iNumOnes = iNum DIV 1;

您已经非常接近解决方案了。事实上，您需要迭代并在每次迭代时将数字除以 10。唯一缺少的是您需要提取最低有效数字。为此，您可以使用mod操作员：

program Digits;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  x, p: Integer;

begin
  while True do
  begin
    Writeln('Enter a non-negative integer:');
    Readln(x);
    p := 1;
    while x <> 0 do
    begin
      Writeln('position ', p, ': ', x mod 10);
      x := x div 10;
      Inc(p);
    end;
    Writeln('---');
  end;
end.

Enter a non-negative integer:
155
position 1: 5
position 2: 5
position 3: 1
---
Enter a non-negative integer:
653281205
position 1: 5
position 2: 0
position 3: 2
position 4: 1
position 5: 8
position 6: 2
position 7: 3
position 8: 5
position 9: 6
---