Уважаемые эксперты, Delphi занимаюсь всего год. Сейчас пробую работать с базами данных. Работаю с набором данных Table и появились вопросы: 1. Как добавить программно физическое поле, если это вообще возможно. В общем имеется некоторая база данных и требуется добавить еще одно поле, чтобы оно реально существовало и можно было хранить в нем информацию. 2. Как можно осуществить контроль ввода уникальных значений в некоторое поле (или в несколько полей), то есть речь идет об ограничении избыточности данных. Заранее благодарен !!!
Ответ отправлен: 15.03.2003, 22:20 Отправитель: BuTEK
Вопрос № 496
Помогите пожалуйста как-нибудь определить сигнал "занято" модемом. Хотелось написать программу дозвона, все существующие у меня не пашут(короткие гудки из модема разносятся, а программа этого не понимает). Ни Etype Dialer, ни чего подобного мне не помогло... Зато VentaFax определяет "занято" только так... Наверное нужно как-то работать с регистрами модема, но я не знаю, как ,послав команду модему, получить на неё ответ. Другой выход - анализировать сигналы с телефонной линии, но это для меня уже слишком(сам точно не дойду)... Помогите, please !!!
Здравствуйте, dude! (Sender as TEdit).Readonly:=true; Edi Ответ отправлен: 17.03.2003, 08:52 Отправитель: Elshad Azizov Отвечает baldr
Здравствуйте, dude! Ну, видимо, надо завести массив и туда все эти контролы запихать... Если у тебя уже все эти editЫ на форме лежат, то сделай так: var massiv:array[1..15] of TEdit; ... massiv[1]:=edit1; .. massiv[15]:=edit15; А зато потом ты сможешь менять для всех свойства просто циклом. обрабатывая массив! Можно и по-другому...
Ответ отправлен: 16.03.2003, 23:38 Отправитель: baldr Отвечает BuTEK
п”пѕп±яЂпѕпµ пІяЂпµпјяЏ яЃяѓя‚пѕпє, dude! п”пµяЂп¶пё пѕя‚пІпµя‚ ;) : var i:byte; begin for i:=1 to 15 do with TEdit(FindComponent('Edit'+IntToStr(i))) do readonly:=true; end; пІпѕя‚ яЃпѕп±яЃя‚пІпµпЅпЅпѕ пё пІяЃпµ. п’пёя‚пµпє. butek@bratva.ru Ответ отправлен: 15.03.2003, 23:44 Отправитель: BuTEK
Вопрос № 498
Здравствуйте! Как правильно объявить следующее. У меня почему то возникает ошибка: TYPE NX = ('Зарубежный','Отечественный'); Ошибка: Identifier expected but string constant found. Спасибо !
Доброе время суток, dude! Type NX=Record str:('Зарубежный','Отечественный');
Ответ отправлен: 17.03.2003, 08:54 Отправитель: Elshad Azizov Отвечает baldr
Доброе время суток, dude! Правильно, ибо надо не константу писать сюда, а идентификатор! Если делать как ты, со строками, то либо массив (Array), либо множество (Set of)...
Ответ отправлен: 16.03.2003, 23:38 Отправитель: baldr Отвечает BuTEK
п—пґяЂп°пІяЃя‚пІяѓп№я‚пµ, dude! пўпѕпЁпґп° я‚яѓя‚ пЅяѓп¶пµпЅ яЃп»пµпґяѓяЋя‰пёп№ пїпѕпґя…пѕпґ: type TMyType = array [0..1] of string; const NX : TMyType = ('п—п°яЂяѓп±пµп¶пЅя‹п№','пћя‚пµя‡пµяЃя‚пІпµпЅпЅя‹п№'); п’пёя‚пµпє. Butek@bratva.ru Ответ отправлен: 16.03.2003, 13:20 Отправитель: BuTEK
Вопрос № 499
У меня исчез значок CD-ROM'a из "Моего компьютера" мне посоветовали купить шлейф (второй) я так и сделал и у меня все заработало. В чём дело?
п”пѕп±яЂя‹п№ пґпµпЅяЊ, komrad! п”п°яЋ пїяЂпёпјпµяЂ я„яѓпЅпєя†пёпё, пєпѕя‚пѕяЂп°яЏ яЃпєп°я‡пёпІп°пµя‚ я„п°п№п» пёп· пёпЅпµя‚п°: function GetInetFile(const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin Result:=False; sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); try hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
try AssignFile(f, FileName); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f); Result:=True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end end; procedure TForm1.Button1Click(Sender: TObject); var FileOnNet, LocalFileName: string; begin FileOnNet:='http://src.fitkursk.ru/articles/mp3player.zip'; LocalFileName:='MyFile.zip'; if GetInetFile(FileOnNet,LocalFileName)=True then ShowMessage('Download successful') else ShowMessage('Error in file download') end; п’пёя‚пµпє. butek@bratva.ru Ответ отправлен: 16.03.2003, 13:31 Отправитель: BuTEK
Форма отправки вопроса
Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook"
и "Microsoft Outlook Express". В программе The Bat!
подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте,
что в некоторых браузерах могут стоять запреты на открытие других
окон, а также "чрезмерное" кэширование данных,
при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet
Explorer 5.0+ или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.