Kundennummer aus Buchstaben und Zahlen erstellen

[marabu]

Hallo Voltzi,

mit einem so vorbildlich formulierten Titel für einen thread lohnt sich später auch die Suchfunktion.

Die Schlüssel AA001 .. ZZ999 ergeben einen Schlüsselvorrat von 26 * 26 * 1000 - 1 Schlüsseln. Hier eine Abbildungsfunktion:

Delphi-Quellcode:

function CompoundKey(iKey: cardinal; iDigits: integer): string;
var
  i, iRange: cardinal;
begin
  iRange := 10;
  for i := 2 to iDigits do
    iRange := iRange * 10;
  Result := IntToStr(iKey mod iRange);
  while Length(Result) < iDigits do
    Result := '0' + Result;
  iKey := iKey div iRange;
  Result := Chr(iKey mod 26 + Ord('A')) + Result;
  iKey := iKey div 26;
  Result := Chr(iKey mod 26 + Ord('A')) + Result;
end;

Grüße vom marabu