Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by implementation,
16. Mai 2010
Gute Idee, hab ich jetzt auch umgesetzt. Danke!
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by implementation,
15. Mai 2010
@himitsu:
Ich dachte auch, dass es in der Code-Library schon was dafür gab.
Umso schockierter war ich, als ich nix gefunden hab.
Da hab ich dann einfach mal die Codeauschnitte aus nem älteren Projekt rausgesucht und reingestellt.
@rollstuhlfahrer:
Ach ja, hatte ich vergessen zu erwähnen... Geht nur bis zum 36er-System, GROß- und klein-Schreibung wird ignoriert.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by implementation,
15. Mai 2010
Ihr wollt Zahlen in unterschiedlichen Stellenwertsystemen ausgeben? Dezimal, Oktal, Binär, Hexadezimal und am besten noch im 5er-, 13er- und 31er-System? Hier kommt die Universallösung:
function ToString(Val: UInt64; Alphabet:string): AnsiString;
var sub: uint64;
base: byte;
function GetChar(dgt:byte):char;
begin
Result := Alphabet;
end;
begin