Главная страница
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.032 c
3-1173282215
Sunders
2007-03-07 18:43
2007.05.27
Сообщение "Object not found" при работе с БД MS SQL


4-1166796037
AMS
2006-12-22 17:00
2007.05.27
про CreateProcess


1-1175164782
Пушистый зайчик
2007-03-29 14:39
2007.05.27
Печать канвы имеджа.


15-1177619556
iZEN
2007-04-27 00:32
2007.05.27
Sun OpenSolaris 10 (раздаётся бесплатно)


2-1178476020
Kostafey
2007-05-06 22:27
2007.05.27
Как правильно обновлять набор данных