| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Memo и Word [D7, XP]
Ref © (2007-02-02 03:01:00)Доброго времени суток.
Такая проблема:
На форме есть поле Memo, пользователь забивает туда адрес компании.
При отправке данных в MS Word
вместе с адресом в Word'e отображаются и знаки переносов Memo поля, как от них избавиться? ЗАранее благодарен за ответы.
pvi (2007-02-02 14:47:00) [1]
> Тогда вместо Adress в документе будет только первая сточка.
Это я про то, что ечли в цикле.
pvi (2007-02-02 14:46:00) [2]
> в DBMemo1.lines.text включаются так же и переносы. вызывай
> fai('Adress', DBMemo1.lines.text); например в цикле или
> через Memo1.Lines.CommaText
Тогда вместо Adress в документе будет только первая сточка. Что мешает перед отправкой в Ворд заменить в тексте сиволы табуляции и перевода каретки (я правильно понял?) например на пробелы? И лучше в документе сделать метки (поля) и работать через них.
Elen (2007-02-02 10:06:00) [3]
> Ref
Да еще если важен разделитель между строками в мемо то можно получить всю его вот так :
// между строками будет пробел, но можно и другой символ поставить
Memo1.Lines.Delimiter:=' ';
и дальше получить все строки :Memo1.Lines.DelimitedText;
Elen (2007-02-02 10:04:00) [4]
> Ref
в DBMemo1.lines.text включаются так же и переносы. вызывай fai('Adress', DBMemo1.lines.text); например в цикле или через Memo1.Lines.CommaText
Ref (2007-02-02 09:53:00) [5]function FAI(F,I:string):boolean;
const wdReplaceAll=2;
begin
w.Selection.Find.Text:=F;
w.Selection.Find.Replacement.Text:=I;
FAI:=w.Selection.find.execute(Replace:=wdReplaceAll);
end;
в процедуре по нажатию кнопки
w:=CreateOleObject('Word.Application');
w.documents.add('u:\sh\n_fiz.doc');
fai('Adress', DBMemo1.lines.text);
----
w.ActiveDocument.PrintOut(Copies:=2);
w.quit;
w:=UnAssigned;
Elen (2007-02-02 08:11:00) [6]
> При отправке данных в MS Word
> вместе с адресом в Word'e отображаются и знаки переносов
> Memo поля
Как отправляеш?
| |
