Привет, у меня есть вопрос для delphi, он раздражает меня, потому что я продолжаю получать ошибки I/0, "файл не найден" его раздражает, и он не остановитсяprocedure TForm1.BtnSaveClick(Sender: TObject); var F, E, Level: TextFile; sName, sSur, sEmail, sTelKid, sMom, sDad, sTelMom, sTelDa...
Я код сделал этот код в Delphiprocedure TForm10.Button1Click(Sender: TObject); var Response: TStringStream; Params: TStringList; begin Params := TStringList.Create; try Params.Add('long=' + edit1.Text); Params.Add('lat=' + edit2.Text); Response := TStringStream.Create(''); try...
у меня есть одна страница, которая включена в флажок, и мне нужно получить значения флажка на другой странице. как я могу передать значение от одной страницы ко второй?Что я уже пробовал: ничего особенного Гугл ищет ...
Хорошо, у меня есть дилемма, у меня есть моя программа, функционирующая идеально прямо сейчас, все, что мне нужно сделать, это взять уже существующую информацию в моем богатом редактировании, например:NOMBRE: ######### APPELIDOS: ######### EMAIL: ######### TELEFONO DE ESTUDIANTE: #######...
Как я могу изменить приведенный ниже код, чтобы остановить мерцание кнопок? процедура TCustomEdit.WMPaint (сообщение var: TWMPaint); начать унаследованный; EditLayout.WMPaint(Сообщение); конец; Здесь TCustomEdit-это базовый класс для мерцающих кнопок. Проблема заключается в editlayout. ...
"Это проект delphi, с которым мне нужна помощь, как в истории программирования проекта" хорошо, так что все идет так, у меня есть свой код, конкретизированный в поисковой системе, где в основном, если вы ищете пустой Tedit, он даст вам ошибку, теперь я попал в дорожный блок, так как я хочу,...
мой код выглядит так.procedure TForm1.BtnSearchClick(Sender: TObject); var sStudent :String; begin sStudent:=EdtSearch.Text; RDisp.Lines.LoadFromFile('Students\ ' +sStudent+ '.txt'); if sStudent<>' ' then begin Application.MessageBox('No data has been inputed. Please Input a ...
Тего задача чисто математическая, потому что они являются доминирующими комбинаторикой и вероятностью. Можно решить проблему, не зная программирования, но гораздо легче решить ее с помощью программирования. В следующей 40 - байтовой группе есть 3 пары одинаковых байтов:248, 195, 38, 169, 20...
Уважаемые программисты, Я искал в интернете идею о том, как создать программное обеспечение или даже если есть какое-либо существующее в отношении моей проблемы, но она оказалась на этом форуме с просьбой об этом!! надеюсь, я в нужном месте. без лишних слов давайте перейдем к моей просьбе. ...
Сценарий таков: у меня есть родительская форма, которая создает дочернюю форму, чтобы общаться между ними, в родительской форме создается объект пользовательского типа события. Гендель родительской формы передается в качестве параметра процедуре создания события. В дочерней форме создается ...
У меня есть столикCREATE TABLE [main]( [ID] INTEGER PRIMARY KEY AUTOINCREMENT, [Name] TEXT, [Address] VARCHAR, [Phone] VARCHAR, [E-Mail] VARCHAR, [Vin] INTEGER, [Year] VARCHAR, [Make] VARCHAR, [Model] VARCHAR, [Job Hours] FLOAT, [Picture...
Я работаю на Delphi RAD Studio 10.2 Как вы получаете информацию из настроек в разделе Project > Options > Version Info? Я говорю о ключах. Такие вещи, как "LegalCopyright", "FileDescription" и "комментарии" от этого? Они хранятся в файле dbproj, но мне нужно знать, как получить эти кл...
HI everyone i would really appreciate it if you could help me with this problem so i have a huge problem . i need to use the data stored in a combo box from a form which it is stored in to be used in another form. basically im making a roadtrip app at a grade 10 level where on the first fo...
Привет у меня есть этот код он отлично работает когда я ищу число внутри столбца Мне нужен один и тот же код, когда я ищу имя в столбце и дату внутри другого столбца.<pre lang="Delphi"> procedure TForm1.sEdit1Change(Sender: TObject); var a :integer; begin IF sEdit1.Text <> '' t...
У меня возникают трудности с пониманием разницы между следующими (аналогичными) определениями процедур. Кроме того, мне интересно, как определить, когда и почему использовать 2-е определение. #1 - стандартное определение рутиныtype TFigure = class public function Supports(Operatio...
Привет это мой код и я не знаю где проблема так что помогите мне пожалуйста исправить это спасибоЧто я уже пробовал: процедура TForm1.Button1Click(отправитель: TObject); начать ADODataSet1.Close; ADODataSet1.Свойства commandtext :='[дата] и GT;='+quotedStr(DateToStr(Дата1.дата))+'а'+'[дата]...
Здесь я пытаюсь переписать метод VCL FindControl()(Borland C++ Builder),потому что исходная функция FindControl не поддерживает кросс-процессный доступ. По чьей - то ссылке я написал следующий кодTWinControl* FindControlEh(HWND hwnd); extern "C" __declspec(dllexport) HWND __stdcall FindCont...
Я создал довольно простую библиотеку dll в vb.net-да. Я успешно зарегистрировал его (от имени администратора) и можете вызвать его из кнопку в простой vb.net приложения WinForms приложение, которое я создал. Это работает. Он делает то, что я ожидаю. Однако я попытался использовать его в про...
Мне нужно временно запретить другим программам отслеживать изменения, внесенные в буфер обмена, прерывая цепочку сообщений буфера обмена. Как это можно сделать в Дельфах? Я нашел этот код, который должен был сделать трюк, но он этого не делает (в Win 10 Ent x64). Есть ли в этом коде какая-т...
В Delphi 2010 при выполнении приведенного ниже запроса отображается ошибка "несоответствие типов в выражении". Но когда я запускаю тот же запрос в Interbase, запрос выполняется и отображает записи. Почему он не выполняется из программного обеспечения??Что я уже пробовал: Запрос:select disti...