Integer umwandeln (ähnlich IntToHex)

[Stephan]

Hi,

Ich möchte ein Integer umwandeln und dabei die Zahlen 0..9 und die Buchstaben A..Z verwenden.

Statt wie bei IntToHex wo nur 0..9 und A..F verwendet wird möchte ich alle Buchstaben verwenden (außer ÄÖÜß).

Mein Ziel ist, eine Zahl mit möglichst wenig Buchstaben darzustellen.

[bttb930]

Das ist eine tolle Idee!

[SirThornberry]

Tolle Idee, und wo ist jetzt dein Problem?

[moritz]

Dafür musst du wohl das 36'er Zahlensystem verwenden. Von beliebigem Zahlensystem in ein anderes

@bttb: Nicht dein Ernst, oder?

[bttb930]

Zitat:

@bttb: Nicht dein Ernst, oder?

Findest Du die Idee doof?

[moritz]

Zitat:

Zitat von bttb930

Zitat:

@bttb: Nicht dein Ernst, oder?

Findest Du die Idee doof?

Nein, es geht um deinen Post. Ich sage doch auch nicht zu jedem Thread, dass ich die Frage berechtigt finde. Und so neu ist die Idee jetzt auch wieder nicht.

[Stephan]

Hallo moritz,

Ich danke dir :)

[bttb930]

aber im post war keine frage.

deshalb dachte ich es geht um eine mitteilung und reaktionen darauf.

die idee ist nicht neu, aber wenn jemand Delphi lernt, dann ist das eine gute idee, um mal was zu machen und in der programmiersprache fuß zu fassen. Deshalb habe ich geschrieben, dass es eine tolle idee ist.

Solange keine frage hier auftaucht, muß man auch nicht so einen link geben, wie du das gemacht hast. davon lernt stephan jedenfalls nichts.

[Stephan]

Hi,

BaseToDec macht bei mir Probleme.

Delphi-Quellcode:

var
testvar: int64;

testvar := BaseToDec('A', 36);   -> Fehlermeldung A ist kein gültiger Integerwert.

Laut Funktion muss hier aber ein String übergeben werden.

[moritz]

@bttb: Okay, so hab ich die Sache ned gesehen ;)

@Stephan: Das liegt daran, dass die Funktion keine Buchstaben erwartet...die musst du wohl erweitern.

Gruß

[Stephan]

Hi,

Stimmt :) Kann ja vom Code garnicht sein. Allers klar, werde es erweitern. Dankeschön!

[moritz]

Du könntest ein eigene ChrToInt-Funktion schreiben, so in der Art:

Delphi-Quellcode:

function ChrToInt2(Value: Char): Integer;
begin
  Result := 0;
  try
    Result := IntToStr(Value);
  except
    Result := Ord(Value) - 55;
  end;
end;

So in die Richtung. Es handelt sich ja immer nur um ein Char, das umgewandelt wird.

[Stephan]

Hi,

noch einfacher gehts so:

Delphi-Quellcode:

function BaseToDec(Value:String; Base:Integer):Int64;
var i, j:Integer;
begin
  j:=0;
  Result:=0;
  for i:=Length(Value) downto 1 do
    begin
    Result:=Result + getint(Value[i]) * Potenz(Base,j);   <-- getint
    inc(j);
    end;
end;

klappt wunderbar :)