Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Функция получения адреса ячейки в Excel

Автор: Burka 13.12.2007, 15:04

Работаю с сервером Excel и очень и очень не удобно использовать принятую там адресацию ячеек, помогите написать функцию, у самого не получается.

Функция должна примерно так выглядеть:
ExCell(Col,Row :integer):string;

Ну и к примеру
ExCell(1,1) вернет строку 'A1';

PS ну сама сложность заключается в генерации имени столбца, так как они могут быть от A..AA..AG..VV..ZZ.ZZZ.. и т.д.

Автор: kali 14.12.2007, 12:26

Код


Function ExCell(x,y:integer):String;
var s:string;
begin
  s:='';
  x:=x-1;
  While x>=26 do
  begin
    s:=chr(65+(x mod 26))+s;
    x:=(x div 26)-1;
  end;
  Result:=chr(65+x)+s+IntToStr(y);
end;

Автор: Burka 14.12.2007, 15:57

пасиба, все просто как то плучилось, я думал рекурсию придется делать