Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
Delphi 6 Enterprise
|
AW: Spaltennummer nach Excel-Spaltenstring umwandeln.
16. Sep 2014, 09:52
Das dürfte doch auch bei n=26 (und vielfachen davon) schief gehen.
Schreibtischtest:
für aIndex=26:
Result := chr(65 + aIndex mod 26) => chr(65 + 26 mod 26) => chr(65 + 0) => chr(65) => A
aIndex := aIndex div 26 => 26 div 26 => 1
if aIndex > 0 then => if 1>0 then => Wahr
Result := chr(64 + aIndex) + Result => chr(64+1)+CHR(65) => AA
Ralph
Geändert von Jumpy (16. Sep 2014 um 09:57 Uhr)
|