Wöter auf Buchstaben testen

[SirThornberry]

ich hab das versucht mal hin zu bekommen bin aber gescheitert. vielleicht hilft ja folgende funktion weiter um das ganze zu verwirklichen

Delphi-Quellcode:

function GetZahl(DezZahl: Integer; texts: String): String;
var LBasis, LStellen, NeueZahl, Lwdh1, Ltmpbasis, Ltmp1: Integer;
begin
  DezZahl := DezZahl;
  LBasis := length(texts);
  NeueZahl := LBasis;
  LStellen := 1;

  while NeueZahl <= DezZahl do
  begin
    NeueZahl := NeueZahl * LBasis;
    LStellen := LStellen + 1;
  end;
  result := '';
  for LWdh1 := LStellen downto 1 do
  begin
    Ltmpbasis := trunc(math.Power(LBasis, Lwdh1 - 1));
    Ltmp1 := DezZahl div LtmpBasis;

    result := result + texts[Ltmp1+1];
    DezZahl := DezZahl - Ltmp1 * Ltmpbasis;
  end;
end;

Beispielaufruf:
  Getzahl(255, '0123456789ABCDEF'); //ergebniss sollte dann "FF" sein