Показать сообщение отдельно
  #3  
Старый 25.01.2007, 19:00
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию

Делаю так:
Function TForm1.SetRange(sheet:variant;range:string;value_: variant ):boolean;
begin
SetRange:=true;
try
E.Sheets[sheet].Cells[x, y].Value := value_;
except
SetRange:=false;
end;
End;
Ответить с цитированием