|
|
| Другие темы раздела | ||||||||||||||||||||||||||||
| Delphi Уменьшить размер кода (считывание с ini файла) Вот получился у меня такой говно-код, подскажите, каким образом его можно сократить: if FileExists(ExtractFilePath(Application.ExeName)+'Tests\Test1.ini') then begin TestFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Tests\Test1.ini'); LabelTest1.Caption:=(TestFile.ReadString('Title', 'Title', 'Ошибка')); end; if... https://www.cyberforum.ru/ delphi-beginners/ thread1317990.html |
Нужна программа по составлению расписания Delphi нужна программа для курсовой работы. составление расписания на кафедре на входе: имя препода, номер группы, название предмета, вид занятия(лекция\практика) так же могут быть заняты какие то пары(занятия у групп на другой кафедре) по идее преподавателей 6 человек, 12 групп, 6 аудиторий(2 из которых компьютерные) так же нужно учитывать недели над и под на выходе расписание для групп(номер... | |||||||||||||||||||||||||||
| Delphi Сохранение списка в файл и его загрузка Задание такое: Список сохранить в типизированный файл, а при загрузке считать данные списка и внести их в таблицу. Вроде все логично, да и компилятор не сработал, но при загрузке файла в таблице пусто, но количество строк как положено. Не могу найти куда исчезают данный списка. Помогите пожалуйста найти ошибки. Вот код программы: type TPlist=^TMag; TMag = record ... https://www.cyberforum.ru/ delphi-beginners/ thread1317894.html |
Delphi Задача на цифровой фильтр нижних частот
https://www.cyberforum.ru/ delphi-beginners/ thread1317871.html Здравствуйте, преподаватель дал программу фильтра верхних частот 4-го порядка сказал что я могу переделать ее для для фильтра нижних частот,но я не понимаю как ее переделать,она без комментариев((,помогите пожалуйста ее переделать для такого же порядка,только для нижних частот цифровой обработки информации,есть расчитанные мной коэфициенты,могу показать. Так же прикрепляю файлы проекта верхних... | |||||||||||||||||||||||||||
|
Delphi Занесение Даты/Времени в ComboBox Здравствуйте. Проблема заключается в том, что при выполнении запроса к SQL возвращается неверный результат, т.е. при выполнении этого же запроса в PHPMyAdmin все верно. Как результат в ComboBox заносится не время а дата и время одновременно. Надеюсь на вашу помощь. Вот код: procedure TForm1.DateTimePicker2Click(Sender: TObject); begin d:=FormatDateTime('yyyy.mm.dd',DateTimePicker2.Date);... |
Delphi Вычислить значения многочлена и его производной В векторе действительных чисел A(n) заданы коэффициенты многочлена {A}_{n}*{x}^{n}+{A}_{n-1}*{x}^{n-1}+...+{A}_{1}*x+{A}_{0}. Вычислить значения многочлена и его производной в точке Х. Надо написать программу для Delphi. Помогите пожалуйста, кому не сложно:cry: https://www.cyberforum.ru/ delphi-beginners/ thread1317834.html | |||||||||||||||||||||||||||
| Delphi TComponent OnPaint Всем привет! Допустим на форме есть десять компонентов TLabel. Для одной я хочу сделать "вдавленный" шрифт, пишу процедуру: procedure TLabel.OnPaint(var message: TMessage); begin Canvas.Brush.Style:= bsClear; Canvas.Font.Size:= 10; Canvas.Font.Color:= clGray; Canvas.TextOut(2,2, Caption); Canvas.Font.Color:= clBlack; https://www.cyberforum.ru/ delphi-beginners/ thread1317826.html |
Delphi Преобразовать типы данных при считывании с ini файла Считываю значение с ini файла и присваиваю переменной TestFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.ini'); NumberOfTest:=(TestFile.ReadString('NumberTest', 'Test', '1')) ; TestFile.Free Но выдает ошибку Incompatible types 'Integer' and 'String' Нужно считанный символ "1" преобразовать в число "1" Пробую преобразовать с помощью StrToInt, не помогает... А... | |||||||||||||||||||||||||||
|
Delphi BASS ошибка 0xc000007b
https://www.cyberforum.ru/ delphi-beginners/ thread1317747.html Пытаюсь запустить любой исходник из примеров bass24 выходит ошибка - "Ошибка при запуске приложения (0xc000007b). Для выхода из приложения нажмите кнопку "ок". bass.dll и bass.pas лежат рядом с exe'шником. Вот код с помощью которого я пытаюсь воспроизвести онлайн поток - procedure TForm1.Button1Click(Sender: TObject); begin BASS_Init(-1, 44100, 0, Handle, nil);... |
Delphi Написать программу, которая выводит на экран изображение произвольного символа в шахматном порядке Написать программу, которая выводит на экран изображение произвольного символа в шахматном порядке. В Delphi https://www.cyberforum.ru/ delphi-beginners/ thread1317710.html | |||||||||||||||||||||||||||
|
Delphi Переписать программу так, чтобы она выполнялась с динамическими массивами Переписать программы так, чтобы они выполнялась с динамическими массивами. 1) program odin; {$APPTYPE CONSOLE} uses SysUtils; var i,j,n,sum:integer; mas:array of integer; begin { TODO -oUser -cConsole Main : Insert code here } |
Delphi Построить изображение в делфи
https://www.cyberforum.ru/ delphi-beginners/ thread1317633.html Даны две точки М1 (х1 , у1 ), М2(х2 , у2 ) и прямая Ах+By+С=0. Необходимо найти на этой прямой такую
Наверх
| |||||||||||||||||||||||||||
Сообщение от Outwork
