Buchstaben hochzählen

[Catbytes]

Hallo,

irgendwie hänge ich gerade.

Ich suche nach einer Funktion, die mir die Buchstaben "hochzählt"; also erst "A", dann "B" etc. Wenn "Z" ereicht ist, soll es mit "AA" weitergehen (so ungefähr wie in Excel).

"A"+1 geht ja nicht. Gibt es da andere Möglichkeiten?

[Christian Seehase]

Moin Catbytes,

was hältst Du von ord('A')+1 ?

[RavenIV]

da im ASCII-Code die Buchstaben sinnvollerweise alle hintereinander angeordnet sind, könntest Du damit was anfangen.
"A" liegt bei dezimal 65 und "Z" bei dezimal 90.

Du kannst Dir also eine Schleife bauen, die nacheinander die ASCII-Zeichen von 65 - 90 ausgibt.

Ein klein wenig Hirnschmalz und Delphi-Hilfe und DelphiPraxis-Suche könnte Dir weiterhelfen...

[faux]

Zitat:

Zitat von Christian Seehase

was hältst Du von ord('A')+1 ?

Einfacher gehts mit Succ('A'). ;)

Grüße
Faux

[marabu]

Hallo Catbytes,

ich erinnere mich noch an diesen thread: Kundennummer aus Buchstaben und Zahlen erstellen - da bist auch du abgebildet.

Grüße vom marabu

[Masterof]

ich hätte es auch über die ASCII Werte gemacht

[s03]

Wird vielleicht so was gesucht (?):

Delphi-Quellcode:

//NumberToLiteralNumber
function NumToLitNum(n:Int64):string;
//n=0-a,1-b,25-z,26-aa,27-ab,...
const
  cLiteralCount=26;
  function GetLiteral(z:Integer):string;
  begin
    result:=Chr(65+z);
  end;
var
  i:Integer;
begin
  result:='';
  While n>=cLiteralCount do begin
    i:=n div cLiteralCount;
    result:=GetLiteral(n-(i*cLiteralCount))+result;
    n:=i-1;
  end;
  result:=GetLiteral(n)+result;
end;

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, s03.

Dein Code funktioniert gut, allerdings würde ich ihn so implementieren:

Delphi-Quellcode:

// return Excel column name for zero based column index

function IndexToName(n: Word): String;
begin
  Result := '';
  repeat
    Result := Chr(Ord('A') + n mod 26 - Ord(Result <> '')) + Result;
    n := n div 26;
  until n = 0;
end;

Mehr als 64K Spalten erwarte ich nicht.

Freundliche Grüße vom marabu

[s03]

Hallo

Ja, sieht interessant aus :-). Zwar verstehe ich was da passiert, befürchte aber, dass ich selber zu solchen Kunststückchen nicht fähig bin (außer ich trimme darauf).
Was int64 betrieft, habe ich mich nicht ganz auf den Excel konzentriert. Vielleicht möchte jemand einfach eine 18 (oder 19) stellige IntZahl zu einem Buchstabensalat umwandeln. Für Excel würde in 98% der Fälle byte ausreichen. Na ja, wie dem auch sei :-).
Danke für den schlanken Code :-).