Delphi Buchstaben hochzählen

Thema durchsuchen

Ansicht

Themen-Optionen

Buchstaben hochzählen

Ein Thema von Catbytes · begonnen am 25. Jul 2006 · letzter Beitrag vom 28. Jul 2006

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

Re: Buchstaben hochzählen

28. Jul 2006, 07:13

Herzlich willkommen in der Delphi-PRAXiS, s03.

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

markieren

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;