Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

Модерирует : ShIvADeSt

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

   

SergeyReutov



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Через компонент ADOQuery можно посылать базе данных запросы.
А как можно проверить вернул ли результат запроса какие-нибудь записи?  
 

Всего записей: 171 | Зарегистр. 23-01-2003 | Отправлено: 12:02 23-05-2005
KDA

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IsEmpty или RecordCount по выбору

Всего записей: 265 | Зарегистр. 30-12-2001 | Отправлено: 13:41 23-05-2005
Solnake



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ, помогите, а то я уже задолбался.
Короче работаю с MS SQL Server2000 спользую ADOQuery, и пишу запрос, типа:

Код:
 
IBQuery4.SQL.Text:='select distinct HOUSE from PROPISKA where STREET="' + ComboBox1.Text + '"';

 
Когда писал под InterBase - все было чики-пики, теперь сел писать под MS SQL Server и выбрасывает постоянно ошибку что емы не нравятся "_" ковычки, он видетели хочет '_'.
Как его уболтать. Раньше обходился при помощи тейбла, но в этом варианте нужен именно квери.
Заранее спасиба.


----------
Я не страдаю манией величия, я ею наслаждаюсь(с)

Всего записей: 826 | Зарегистр. 16-09-2004 | Отправлено: 16:55 23-05-2005
YurikGL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
емы не нравятся "_" ковычки, он видетели хочет '_'.  

 
пользуй такие  '
 
STREET='+#39+ ComboBox1.Text + #39;
 

Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 18:09 23-05-2005
Solnake



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
YurikGL
СПАСИБА, большое  :-D (это я так рад).
Я долбусь с этим уже 2-ой день, всй выкручиваюся-выкручиваюся, а теперь никуда не дется.
Ещё раз спасиба.
 
Respect


----------
Я не страдаю манией величия, я ею наслаждаюсь(с)

Всего записей: 826 | Зарегистр. 16-09-2004 | Отправлено: 18:31 23-05-2005
zvyagaaa



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Господа, а кто-нибудь знает, как пожно написать в caption допустим label'a русскими и греческими буковками, или это невозможно? Допустим, следующий текст : угол гамма, рад.

Всего записей: 782 | Зарегистр. 02-02-2005 | Отправлено: 19:56 23-05-2005 | Исправлено: zvyagaaa, 20:39 23-05-2005
YurikGL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Господа, а кто-нибудь знает, как пожно написать в caption допустим label'a русскими и греческими буковками, или это невозможно? Допустим, следующий текст : угол гамма, рад.

Подобрать соответствущий шрифт

Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 20:46 23-05-2005
zvyagaaa



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Какой? Если использовать symbol, то нельзя писать русскими буквами.

Всего записей: 782 | Зарегистр. 02-02-2005 | Отправлено: 05:46 24-05-2005
evle



1 + int rand(100);
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
zvyagaaa
Чтобы одновременно пользоваться и греческими и русскими символами нужен Unicode, а его VCL как-то не очень поддеживает.
Попробуй выводить текст вручную через TextOutW.


----------
For every complex problem, there is a solution that is simple, neat, and wrong.

Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 07:26 24-05-2005
YurikGL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
>Какой? Если использовать symbol, то нельзя писать русскими буквами.
 
При большой необходимости, можно и свой сделать.

Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 07:57 24-05-2005
Fox0001ww



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые Господа.
Я только начал изучать Delphi 8, но внезапно столкнулся с проблемой. Ниже приведен код консольной программки:
 
var
    a,
    b,
    sign: Cardinal;
 
begin
   {***********************************}
while a<>0 do begin
   Write('Input a: ');
   Read(a);
   Write('Input b: ');
   Read(b);
   Write('Operation: ');
   Read(sign);
   if sign=1 then begin
         Write(' **Result: ');
         Writeln(a+b);
   end else begin
         Write(' **Result: ');
         Writeln(a-b);
   end
end;
end.
 
После компиляции, выдается такое вот сообщение:
 
Project Project1.exe encountered unhandled exception class System.NullReferenceException. Process stopped. Use Step or Run to continue.
 
подскажите пожалуйста, где и что я сделал не так, или может что-то нужно изменить?
Заранее благодарен
 

 

Всего записей: 2 | Зарегистр. 28-12-2004 | Отправлено: 11:41 24-05-2005
aquaman1977



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть задача автоматической рассылки писем с прикрепленными файлами.
В системе стоит MS Outlook + MS Exchange Server.
 
При выполнении указанного ниже кода система безопасности Outlook выдает несколько предупредительных окон (что для автоматизации неприемлемо).
Вопрос: можно ли этого избежать, если параметры безопасности мейлера поменять нельзя?
 
//----cut here-------------------
const
  // константы OlItemType
  olMailItem = 0;
  olAppointmentItem = 1;
  olContactItem = 2;
  olTaskItem  = 3;
  olJournalItem = 4;
  olNoteItem = 5;
  olPostItem = 6;
  // константы OlAttachmentType
  olByValue = 1;
  olByReference = 4;
  olEmbeddedItem = 5;
  olOLE = 6;
 
var
  myOlApp, myItem, myRecipient, myAttachments: OleVariant;
...
Procedure MyMail(s_addr,s_attach,s_subject:String);
begin
  // файл VBScript для создания почтового сообщения и прикрепления к нему файла
  myOlApp := CreateOLEObject('Outlook.Application');
  myItem := myOlApp.CreateItem(olMailItem);
  myItem.Subject := s_subject;
  myRecipient := myItem.Recipients.Add(s_addr);
  myItem.Body := 'blabla'+#13;
  myAttachments := myItem.Attachments;
  myAttachments.Add(s_attach, olByValue, 1, Sr.Name+' Attachment');
  myItem.Send;
  myOlApp := VarNull;
  myItem := VarNull;
  myRecipient := VarNull;
  myAttachments := VarNull;
end;
 
//------cut here-----------------

Всего записей: 94 | Зарегистр. 11-03-2005 | Отправлено: 13:05 24-05-2005
FAngel



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Fox0001ww
А разве 8 не для .NET ? Там вообще нельзя было скомпилить программу под Win32

Всего записей: 799 | Зарегистр. 04-12-2003 | Отправлено: 13:57 24-05-2005
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Fox0001ww

Цитата:
while a<>0 do begin

а кто чуть выше обнулит a. Надеяться на компилятор не стоит. Это независимо от версии.
и во вторых вдо 7 включительно в консольных прогах нужно писать {$APPTYPE CONSOLE}

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 14:51 24-05-2005
krast

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
а кто чуть выше обнулит a. Надеяться на компилятор не стоит. Это независимо от версии.  

глобальные переменные обнуляются....

Всего записей: 442 | Зарегистр. 15-09-2003 | Отправлено: 15:30 24-05-2005 | Исправлено: krast, 15:30 24-05-2005
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
krast

Цитата:
глобальные переменные обнуляются....

Но компилятор почемуто говорит

Цитата:
 
[Warning]  Variable 'a' might not have been initialized
Переменная 'a' не была инициализирована.
 

Я же говорю, не стоит надеяться...

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 15:51 24-05-2005
krast

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OdesitVadim
то что warning выдается - это говорит токо о том, что варнинг не отслеживает - глоб или нет переменная компилятор генерит код для обнуления глобов во всех версиях Delphi (начиная как минимум с пятой, раньше Delphi не использовал).

Всего записей: 442 | Зарегистр. 15-09-2003 | Отправлено: 16:13 24-05-2005
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
krast
Каждый варнинг - потенциальная ошибка. Поэтому нужно стараться убирать их. Каждый, кто программит начал лет 10 назад обязательно обнулит. Такой человек взглянув на код скажет "Э, а счем мы сравниваем?". ДОстаточно перенести в другое место, и переменная обнуляться не будет. В ней будет мусор. Долгий будет процес поиска ошибки. И как говорил один человек "Давайте сразу писать правильно, чтобы потом небыло мучительно больно".
И давай не флеймить

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 16:21 24-05-2005
krast

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OdesitVadim
начнем с того что глобы - это вообще плохо, как бы это ни было. второе - могу привести кучу примеров, где на варнинги совершенно плевать, ибо компилятор просто не разобрался что к чему, вот тогда вступает в бой {$warn}
 

Цитата:
Такой человек взглянув на код скажет "Э, а счем мы сравниваем?".  

ты наверно и лонгстринги обнуляешь перед использованием, и всегда интерфейсы нуллишь после использования... прикольно
 

Цитата:
И давай не флеймить

хде флейм, топик как называется? ммм... Вопросы по delphi, а мы что обсуждаем - вопросы по delphi

Всего записей: 442 | Зарегистр. 15-09-2003 | Отправлено: 16:42 24-05-2005
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
krast

Цитата:
кучу примеров, где на варнинги совершенно плевать

только не в этом случае.
Цитата:
лонгстринги

это о строках ? (давайте писать нормальные названия. на форуме по операционным системам за такое можно получить от модератора) если да, то скажу что строки не обнуляются, так как они не число. им обычно присаивается ''. Иногда мы присаиваем их строку - это тоже инициализация.

Цитата:
 всегда интерфейсы нуллишь после использования

до интерфейсов мои ручки не доходили, но удаление формы, которую я ещё собираюсь использовать (всмысле переменную, которой я снова буду использовать как указательна форму) выглядит так Formname.free;Formname:=nil; ПОка не напишеш какого нибудь большого проекта (который будет работать 24/7/365) не поймёш, что надежда на компилятор или утечка одного байта может серёзно всплыть потом.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 16:59 24-05-2005
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru