|
|
Другие темы раздела | |
Delphi Дано число X найти количество элементов массива Дан массив положительных вещественных чисел. Дано число X, найти количество элементов массива находящихся между двумя элементами ближайшими к этому Х. Помогите, пожалуйста, составить формулу для нахождения ближайшего числа к X. Так как массив положительных чисел, я думаю надо делать через модуль, чтобы не было отрицательных чисел. var A:array of real; //массив I:integer; //индекс... https://www.cyberforum.ru/ delphi-beginners/ thread1101340.html |
Delphi Подскажите как переделать код Здравствуйте. Мог бы кто-нибудь помочь с переводом кода Basic для Delphi. Буду очень признательна:-Процедуры обработки прерываний Private Sub cmdExit_Click() End End Sub Private Sub cmdGrafic_Click() Line (600, 3500)-(6600, 3500) Line (600, 3500)-(600, 1500) My = 1000 X1 = 600: Y1 = 3500 - P(1) * My |
Delphi Кодировка заглавных букв
https://www.cyberforum.ru/ delphi-beginners/ thread1101235.html Всем добра :) У меня возникла необходимость детектировать в каком-либо тексте заглавную букву. Проблема в том, что я не знаю кодировку этих букв, а точнее знаю, что кодировки бывают разные. В google покопал, нашел несколько всяких кодировок, но теряюсь какую использовать. В общем хотелось бы по подробнее изучить эти самые кодировки и выбрать какую лучше использовать в моей программе. Может быть... |
Delphi Шифр Цезаря (с ограничением символов)
https://www.cyberforum.ru/ delphi-beginners/ thread1101213.html В теме https://www.cyberforum.ru/delphi-beginners/thread739569.html есть исходник, но он шифрует\дешифрует со спец символами. А как изменить программу, что бы исключить их оставив только русский алфавит. А все спец символы (!,:,; и т.д. оставались не измененными) P.S. под сполером исходный код программы unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,... |
Try. except Delphi Есть небольшое выражение - var a,b,c:real; c:=a/b; Как правильно расставить try except чтобы программа не писала Error, division by zero, а написала ShowMessage('Деление на 0, b=0');? |
Delphi Подскажите как сделать чтоб Polyline(k) рисовал из первои точки,а не из(0,0) В программе должна рисоватся линия по точкам х(задается таимером) y(в зависимости от нажатои кнопки) делаю так procedure TForm1.Timer1Timer(Sender: TObject); begin x:= round(x+Image1.Width div 60) ; TrackBar1.Position:=TrackBar1.Position+1; if x>Image1.Width-2 then begin Timer1.Enabled:=False; BitBtn1.Enabled:=False; https://www.cyberforum.ru/ delphi-beginners/ thread1101140.html |
Delphi Определить функцию
https://www.cyberforum.ru/ delphi-beginners/ thread1101139.html Определить функцию, позволяющую распознавать степени тройки. Используя созданную функцию, найти количество чисел, являющимися степенями тройки, в заданной последовательности a1,a2,a3,…an. Массив не использовать. Заранее спасибо. |
Delphi Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию вправо 1.Вывести на экран монитора цифру к-того разряда дробной части действительного числа. Разряды дробной части пронумерованы слева направо, начиная с единицы 2.Вычислить и вывести на экран произведение трёх разрядов дробной части действительного числа. В дроби должно быть не менее 4 разрядов 3. Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию... |
Delphi ShellExecute что не так делаю?
https://www.cyberforum.ru/ delphi-beginners/ thread1101089.html Fail:=ShellExecute(Handle,'open',PAnsiChar(Launcher),PAnsiChar(VFile),nil, SW_SHOWNORMAL); Пытаюсь запустить файл VFile с помощью программы которая может его показать, однако сама программа запускается, чего то делает (Что не знаю) и закрывается не показывая то что в VFile. Замучался с поиском почему не работает? |
Delphi Решите ребус: сорок*5=двести
https://www.cyberforum.ru/ delphi-beginners/ thread1101041.html Решите ребус : СОРОК*5=ДВЕСТИ |
Архив Delphi можете написать код на кнопку чтобы при нажатии этой кнопки программа разблокироввывала архив с спаролем типо этого : ссылка удалена |
Delphi нужен код Делфи (не через консоль) Вот условие: Дан массив размера N и целое число K (1 меньше или равен K < N). Осуществить сдвиг элементов массива вправо на K позиций (при этом A1 перейдет в AK+1, A2 — в AK+2, …, AN–K — в AN, а исходное значение K последних элементов будет потеряно). Первые K элементов полученного массива положить равными 0. вот я что-то делал..... сдвиг происходит, но я не знаю как заполнить нулями позиции... https://www.cyberforum.ru/ delphi-beginners/ thread1100878.html |
25 / 25 / 0
Регистрация: 11.10.2013
Сообщений: 86
|
|
20.02.2014, 20:35 [ТС] | 0 |
Выравнивание Panel! - Delphi - Ответ 580861520.02.2014, 20:35. Показов 2033. Ответов 15
Метки (Все метки)
Ответ
0
|
20.02.2014, 20:35 | |
Готовые ответы и решения:
15
Panel Panel Panel Panel на Panel |
20.02.2014, 20:35 | |
20.02.2014, 20:35 | |
Помогаю со студенческими работами здесь
0
Fullscreen panel panel в delphi 7 Перемещение Image в Panel XP manifest и Panel.color |