Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1138
от 02.06.2008, 06:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 462, Экспертов: 52
В номере:Вопросов: 3, Ответов: 3

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 137964: Функция TSqlQuery.ExecSql возвращает число отработанных записей (при Update, Delete...). В хелпе написано, что свойство RowsAffected, хранящее тоже самое, обычно идет после Exception, если запрос не удалось выполнить и возвращается -1. У меня во...
Вопрос № 138035: Здравствуйте. У меня возникла проблема с написанием клиента автоматизации, который работает с Word'ом с помощью интерфейсов. Вот мои действия: 1) Импортирую библиотеку типов Word'а 2) Указываю в разделе uses полученный модуль Word_TLB ...
Вопрос № 138090: Подскажите пожалуйста, почему не работает программка: procedure TForm2.Button1Click(Sender: TObject); begin If OpenDialog1.Execute() then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end; procedure TForm2.Button2Clic...

Вопрос № 137.964
Функция TSqlQuery.ExecSql возвращает число отработанных записей (при Update, Delete...). В хелпе написано, что свойство RowsAffected, хранящее тоже самое, обычно идет после Exception, если запрос не удалось выполнить и возвращается -1.
У меня возникла ситуация, что возвращается -1 (запрос не отработал), но эксепшина нет. Как мне посмотреть текст того, почему запрос не отработал?
Отправлен: 27.05.2008, 07:52
Вопрос задал: GuV2002 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович
Здравствуйте, GuV2002!

Для этих целей я придумал систему отладки, которая описана здесь:
http://www.az-design.ru/Support/SoftWare/Delphi/SysDebug.shtml
---------
Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 27.05.2008, 08:26


Вопрос № 138.035
Здравствуйте.
У меня возникла проблема с написанием клиента автоматизации, который работает с Word'ом с помощью интерфейсов. Вот мои действия:
1) Импортирую библиотеку типов Word'а
2) Указываю в разделе uses полученный модуль Word_TLB
3) Пишу код (см. приложение)
Проблема возникает при вызове метода Add. Какие бы параметры я ему не указывал выдаёт ошибку 'Несоответствие типов'.
Подскажите, пожалуйста, правильные параметры и можно ли как-н. использовать значения по-умолчанию.
Заранее спасибо.

Приложение:

Отправлен: 27.05.2008, 10:56
Вопрос задал: Dicot (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Dicot!

Вам нужно использовать переменные в качестве параметров. Для данного метода можно использовать переменную EmptyParam (модуль Variants):

var
WA: WordApplication;
WD: WordDocument;
begin
WA := CoWordApplication.Create();
WD := WA.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WA.Visible := True;
end;

P.S. Количество параметров у Вас может отличаться, если версии Word у нас не совпадают (у меня 2003)
Ответ отправил: Лукьяненко Алексей Валериевич (статус: Студент)
Ответ отправлен: 27.05.2008, 12:59
Оценка за ответ: 5
Комментарий оценки:
Отличный ответ!


Вопрос № 138.090
Подскажите пожалуйста, почему не работает программка:
procedure TForm2.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute() then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm2.Button2Click(Sender: TObject);
Var
I,J: Integer;
L1,L2: Integer;
Str: String;
begin
Memo2.Lines.Clear;
L1:= Memo1.Lines.Count;
I:=0;
While I<=L1 do
begin
L2:=Length(Memo1.Lines.Strings[I]);
J:=0;
While J<L2 do
begin
Str:=#0;
While (Memo1.Lines.Strings[I][J] <> '.'){or(J<=L2)} do
begin
Str:=Str+Memo1.Lines.Strings[I][J];
Inc(J);
end;
Inc(J);
Memo2.Lines.Add(Str);
end;
Inc(I);
end;
end;

end.

Должна открывать текстовый файл в memo1, затем обрабатывать в memo2, чтобы каждое предложение было с новой строчки и пронумеровано, и сохранять в другой текстовый файл.
Отправлен: 27.05.2008, 15:06
Вопрос задал: Истомин Иван Михайлович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: BlackRaider
Здравствуйте, Истомин Иван Михайлович!

L1:= Memo1.Lines.Count;
Строка ошибочна. т.к. Count вернет общее кол-во строк
а индексы нумеруются с 0 т.е.
при использовании цикла у вас выходит за пределы допустимого значения.
измените строку на L1:= Memo1.Lines.Count-1;
Ответ отправил: BlackRaider (статус: 3-ий класс)
Ответ отправлен: 27.05.2008, 15:14
Оценка за ответ: 5


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 4.92 pre 5.0 RC2 от 09.05.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное