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