|
|
| Другие темы раздела | |
| Delphi Симплекс Метод x2 := 1; y2 := 1; for j:=1 to 3 do begin for i:= 1 to 5 do begin if (y2 <> y) and (x2 <> x) then begin StringGrid2.Cells:=FloatToStr(StrToFloat(StringGrid1.Cells) - (StrToFloat(StringGrid1.Cells) * StrToFloat(StringGrid1.Cells)) / o); inc(x2); end else begin inc(x2); end; https://www.cyberforum.ru/ delphi-beginners/ thread1059060.html |
Части изображений Delphi Разделил вручную картинку 200 на 200 на 4 части этим вручную высчитал- кодом: image1.Canvas.CopyRect(Rect(0, 0, 100, 100), image5.Canvas, Rect(0, 0, 100, 100)); image2.Canvas.CopyRect(Rect(0, 0, 100, 100), image5.Canvas, Rect(100, 0, 200, 100)); image3.Canvas.CopyRect(Rect(0, 0, 100, 100), image5.Canvas, Rect(0, 100, 100, 200)); image4.Canvas.CopyRect(Rect(0, 0, 100, 100),... |
|
Delphi Вычисление в Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1058983.html Подскажите как решить проблему с вычислением, 0.3+(-0.3) не дает нуля. Эти значения программа берет из полей Edit В прикрепленном файле кусочек программы, в котором проблема. Там и пояснение, что к чему. |
Delphi Создать блок-схему var f,g:file of integer; i,k,n:integer; a:array of integer; begin if (LabeledEdit1.Text<>'')and (LabeledEdit2.Text<>'') and (LabeledEdit2.Text<>'') then begin AssignFile(f,LabeledEdit2.Text); Rewrite(f); randomize; for i:=1 to StrToInt(LabeledEdit1.Text) do begin n:=RandomRange(0,20); https://www.cyberforum.ru/ delphi-beginners/ thread1058948.html |
|
Delphi Задача из задачника А.Г. Юркин на Delphi Не могу понять как эту задачу решить на делфи В массиве Х(m,n) каждый элемент (кроме граничных ) заменить суммой непосредственно примыкающих к нему элементов по вертикали горизонтали и диагонали поделитесь если у кого есть исходники задач этого задачника (на делфи) так как мне не только эту задачу надо решить БЛАГОДАРЮ ВСЕХ КТО ПОМОГ |
Delphi Type
https://www.cyberforum.ru/ delphi-beginners/ thread1058925.html StringGrid2.Cells :=FloatToStr(StrToFloat(StringGrid1.Cells) div o); о: real x2,y2: integer Help |
| Delphi Программа для построения бинарного дерева Добрый день уважаемые форумчане. Прошу Вашей помощи в создании следующей программы: По введенному числу нужно построить все бинарные деревья, так, чтобы сумма чисел в двух следующих узлах была равна числу в родительском узле. На рисунке я попытался создать примерный вариант результата для введенного числа 4. Заранее благодарю за помощь. https://www.cyberforum.ru/ delphi-beginners/ thread1058916.html |
Delphi Statement expected, but expression of type 'integer' found TLoadThread = class(TThread) protected procedure Execute; override; procedure SetMProgressJ; procedure ProgressInc; procedure ThreadSetStatus; end; procedure TLoadThread.ThreadSetStatus; begin |
|
Delphi Создать динамическую матрицу и посчитать количество отрицательных чисел, лежащих в правой части матрицы
https://www.cyberforum.ru/ delphi-beginners/ thread1058849.html Ввести с клавиатуры одно или два(в зависимости от варианта)целых чисел N и M.Создать динамический двумерный массив размера N*M.Заполнить получившийся массив случайными числами и подсчитать: Количество отрицательных чисел,лежащих в правой части матрицы. |
Delphi Delphi как написать программу делфи для открытия текстового файла? https://www.cyberforum.ru/ delphi-beginners/ thread1058846.html |
|
что в этой программе не так? Delphi procedure TForm1.Button1Click(Sender: TObject); var a:array of integer;i,p,m1:integer;m:string; begin val(edit1.Text,m1,p); if (p>0) or (m1<0) then showmessage('ошибка')else begin stringgrid1.colCount:=m1; stringgrid1.rowCount:=m1; randomize; for i:=1 to m1 do begin |
Delphi Как создать ссылку на сайт в этом же браузере Я создал свой браузер в программе ,как сделать так что бы при нажатии определенной кнопки открывался сайт(который укажешь в коде delphi)в этом браузере https://www.cyberforum.ru/ delphi-beginners/ thread1058828.html |
|
0 / 0 / 0
Регистрация: 22.12.2013
Сообщений: 21
|
|
| 0 | |
Действие пока нажата кнопка - Delphi - Ответ 556971627.12.2013, 23:21. Показов 2704. Ответов 3
Метки (Все метки)
Как сделать проверку на нажатую кнопку на клавиатуре? Действие будет выполнятся до тех пор, пока не отпустят кнопку. Вернуться к обсуждению: Действие пока нажата кнопка Delphi
0
|
|
| 27.12.2013, 23:21 | |
|
Готовые ответы и решения:
3
пока нажата кнопка. ! Пока кнопка не нажата выполнять действия
Движение пока нажата клавиша Delphi 7 |
| 27.12.2013, 23:21 | |
| 27.12.2013, 23:21 | |
|
Помогаю со студенческими работами здесь
0
Узнать нажата ли кнопка
как узнать нажата ли кнопка
Как узнать какая кнопка нажата?
|