1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
VAr basis, zahl, temp : INTEGER;
    ergebnis : String;
begin
  zahl:=StrToInt(edit_zahl.text);
  basis:=StrToInt(edit_basis.text);
  ergebnis:='';
  temp:=zahl;
  repeat
    ergebnis:=ergebnis+IntToStr(temp mod basis);
    temp:=temp div basis;
  until temp=0;
  edit_ergebnis.text:=ergebnis;
end;					

1:
2:
3:

Erg := 10/3; // Erg = 3,3333
Erg := 10 DIV 3; // Erg = 3 (ganzahlige Division)
Erg := 10 MOD 3; // Erg = 1 (Rest)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure Zerlege(aListe:TStringList; Zahl, Basis:Integer);
begin
  if (zahl div Basis>0) then
  begin
    aListe.Add(IntToStr(zahl mod Basis));
    Zerlege(aListe, zahl div Basis, basis);
  end else aListe.Add(IntToStr(zahl mod Basis));
end; // Zerlege


procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
    i :Integer;
    s :String;
begin
  sl:=TStringList.Create;
  try
    Zerlege(sl, StrToInt(edZahl.Text), StrToInt(edBasis.Text));
    if (sl.Count>0) then
    begin
      s:='';
      for i:=sl.Count-1 downto 0 do s:=s+sl.Strings[i];
      edErgebnis.Text:=s;
    end; // if
  finally
    sl.Free;
  end; // try
end;