Вот код на VBA, под Delphi сам адаптируй
Код:
iAddress = Range("A1").SpecialCells(xlLastCell).Address
irow = Range("A1").SpecialCells(xlLastCell).Row
iclm = Range("A1").SpecialCells(xlLastCell).Column
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.
Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
|