Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Wöter auf Buchstaben testen

  Alt 8. Feb 2004, 16:34
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
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat