Главная страница
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.029 c
15-1177554156
Slider007
2007-04-26 06:22
2007.05.27
С днем рождения ! 26 апреля


15-1177450374
SerJaNT
2007-04-25 01:32
2007.05.27
Вывести имена папок в таблице (PHP)


15-1177516378
Pazitron_Brain
2007-04-25 19:52
2007.05.27
Подскажите читалку книг


1-1175324163
Hro
2007-03-31 10:56
2007.05.27
Unicode


15-1177746092
iXT
2007-04-28 11:41
2007.05.27