Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

поиск [D7, WinXP]

ALex17 © (2004-10-15 19:40:00)
Привет всем !!! Ктонибуть помогите пожалуйста с поиском.
У меня есть энное количество вордовских файлов имне нодо чтобы прога находила в этих файлах слово которое я ввожу из Edit-а. И вывадила по поиску отчет.

GuAV (2004-10-18 02:52:00) [1]

> Ну и пускай будет.Дальше-то он выполняться не будет,а
> это самое главное.

В том и дело что при наличии try.. except там он будет выполнятся, а при отсутствии - как я написал.

> Мотивируйте,ПОЧЕМУ! Что может помешать ему ???

Чтобы в конце этой процедуры показать или закрыть word. иначе в случае исключения он виден не будет, но и не будет закрыт, своего рода утечка.

GanibalLector (2004-10-18 01:35:00) [2]
>Нафиг там try..except. если исключение, то дальнейший код не выполнится и будет сообщение об ошибке

Ну и пускай будет.Дальше-то он выполняться не будет,а это самое главное.

а вот последующий код связанный с XL следует весь положить в try.. блок
Мотивируйте,ПОЧЕМУ! Что может помешать ему ???

GuAV (2004-10-17 19:56:00) [3]
Нафиг там try..except. если исключение, то дальнейший код не выполнится и будет сообщение об ошибке - лучше ничего не придумаешь. а вот последующий код связанный с XL следует весь положить в try.. блок

GanibalLector (2004-10-17 16:39:00) [4]
2 All
>вкаком смысле
В прямом.Если бы у меня было больше времени и желания,то я бы поступил так:
вызвал CLSIDFromProgID для проверки существования Word.Application.Тогда бы try except можно было бы не использовать.Хотя...можно и использовать вписав заветное слово exit.

All (2004-10-16 18:40:00) [5]
{Ы. Это ж все для образца... ;)}.вкаком смысле

GabibalLector (2004-10-15 21:50:00) [6]
2 GuAV ©

А у Вас проблемы с исключениями
У меня???У меня их нет...Они достались Alex17 .

З.Ы. Это ж все для образца... ;)

GuAV (2004-10-15 21:26:00) [7]
[9] GanibalLector © (15.10.04 20:53)
А у Вас проблемы с исключениями

> try
> WordApp := CreateOleObject('Word.Application');
> except
> ShowMessage('Could not start MS Word!');
> end;
> WordApp.Documents.add;
>

Ну и что будет если ворд не будет создан ?

GanibalLector (2004-10-15 20:53:00) [8]
Удалено модератором

Alex17 (2004-10-15 20:44:00) [9]
Спосибо тебе

GanibalLector (2004-10-15 20:41:00) [10]
if WordApp.Selection.Find.Execute=0 то не нашли нифига

GanibalLector (2004-10-15 20:39:00) [11]
Вот,примерно так :
uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var WordApp:Variant;Doc1:OleVariant; i:integer; begin try WordApp := CreateOleObject('Word.Application'); except ShowMessage('Could not start MS Word!'); end; WordApp.Documents.add; wordapp.visible:=true; Doc1 := WordApp.ActiveDocument; // у тебя там будет загрузка из файла(но мне в лом писать) // написали что-нибудь WordApp.Selection. TypeText('qweert FU..'+#10#13); WordApp.Selection. TypeText('retdf FU!!'+#10#13); WordApp.Selection. TypeText('GrandMather FU//'); WordApp.Selection. TypeText('GrantFather FU..'); WordApp.Selection.HomeKey($00000006);//стали в начало WordApp.Selection.Find.Text:='FU'; if WordApp.Selection.Find.Execute=-1 then messagedlg('Во,нашли текст!!!',mterror,[mbok],0); ...// и т.д.

Alex17 (2004-10-15 19:57:00) [12]
Как понять (Selection.Find)напишите пожалуйста небольшой код

Alex17 (2004-10-15 19:54:00) [13]
Ну я имею ввиду так но как это зделать я так скажем неспец ещё по дельфи

GanibalLector (2004-10-15 19:50:00) [14]
Дык,прийдется запускать Word программно(через OLE например) и искать(Selection.Find)

Alex17 (2004-10-15 19:46:00) [15]
Да втомтои дела что я незнаю поиска в вордаских фалов не запуская ворд

GanibalLector (2004-10-15 19:42:00) [16]
2 ALex17
Ну а чем сложность???Задача решаема!!!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »