Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Снова про With   Найти похожие ветки 

 
Kostafey ©   (2007-05-10 11:03) [0]

Была про это ветка, но как-то я ее несерьезно воспринял.
Видимо зря:


type
 TExportToWord = class(TObject)
 private
   ...
   TemplateFileName: string;
 public
   procedure AddTemplate(TemplateFileName: string);
   ...
 end;

implementation

procedure TExportToWord.AddTemplate(TemplateFileName: string);
begin
 Self.TemplateFileName := TemplateFileName;
 W.Documents.add(Self.TemplateFileName);
end;

...
 var ExportToWord: TExportToWord;
...

 ExportToWord := TExportToWord.Create;
 ExportToWord.AddTemplate(TemplateFileName); //Документ создается на основе шаблона
 showmessage(ExportToWord.TemplateFileName); //Все OK, видим строку - путь к файлу шаблона
                         
//Но стоит воспользоваться with:
 ExportToWord := TExportToWord.Create;
 with ExportToWord do
 begin
   AddTemplate(TemplateFileName); //Создается пустой документ
   showmessage(TemplateFileName); //Видим пустую строку
 end;

Почему так?


 
Johnmen ©   (2007-05-10 11:18) [1]

Потому, что это =
ExportToWord.AddTemplate(ExportToWord.TemplateFileName)
showmessage(ExportToWord.TemplateFileName);


 
Kostafey ©   (2007-05-10 11:27) [2]

> ExportToWord.AddTemplate(ExportToWord.TemplateFileName)

Ых !? Да. Верно!
 
with ExportToWord do
 begin
   AddTemplate(TemplateFN);
   showmessage(TemplateFileName);
 end;

И все заработало.
Спасибо !


 
Desdechado ©   (2007-05-10 12:50) [3]

Это к тому, что не стоит называть параметры, свойства и локальные переменные одинаково.



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.062 c
3-1173690519
Виталий Панасенко
2007-03-12 12:08
2007.05.27
Передача значения BLOB поля в Word


2-1178504800
Konus
2007-05-07 06:26
2007.05.27
работа со string ом


15-1177401564
Knight
2007-04-24 11:59
2007.05.27
Кто какие свитчи в районе 3-4 тр. на 16 портов пользует?


9-1151909678
bulavkin
2006-07-03 10:54
2007.05.27
DelphiX --- И СНОВА КАРТА


15-1177726461
Slider007
2007-04-28 06:14
2007.05.27
С днем рождения ! 28 апреля