Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Выделить цветом колонку под определенным номером в DbGrid после выбора в ComboBox https://www.cyberforum.ru/ delphi-beginners/ thread1506887.html например у меня в комбобоксе будут номера недель с числами, а в dbgrid есть колонки с номерами недель. Нажимаю на 2 неделю и должна высветится колонка с цифрой 2	Эмуляция клавиш для заполнения формы Delphi Пишу маленькую программку-помощник для себя. В гугл хроме она ставит мышку в нужное место и пытается написать слово и нажать enter. Но почему то не хочет вводить больше одной буквы - SetCursorPos(p.X, p.Y); mouse_event(MOUSEEVENTF_LEFTDOWN, p.X, p.Y, 0, 0); keybd_event(ord('D'), 0, 0, 0); //первая буква keybd_event(ord('D'), 0, KEYEVENTF_KEYUP, 0); keybd_event(ord('G'), 0, 0, 0);...
Delphi Случайные числа Хотел спросить про генератор случайных чисел в Delphi 7 . У меня на форме есть кнопка и Мемо при нажатии на кнопку в Мемо пишется случайное число от 11 до 21. Randomize; A:=Randomrange(11,21); sMemo1.Lines.add('Число '+IntToStr(A)); Проблема в том что эти числа повторяются.Как исправить это? Randomize; https://www.cyberforum.ru/ delphi-beginners/ thread1506778.html	Delphi Внесение в регистр переменой. Delphi+Assembler https://www.cyberforum.ru/ delphi-beginners/ thread1506773.html Здравствуйте. Как внести дробную переменную real в регистр. Заранее благодарю.
Delphi Как заставить компоненты оставаться на местах при изменении размеров формы? у меня на форме DbGrid а под ней несколько кнопок. Как мне сделать так чтоб размеры формы можно было менять(на полный экран, оконный режим, пользовательский) и чтоб при этом все компоненті остались на местах	Delphi Не отрабатывает дробное число в сопроцессоре. Delphi+Assembler Здравствуйте. Косвенная адресация с целыми числами получается, не получается с дробными. Заранее благодарю. unit Assembler; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; https://www.cyberforum.ru/ delphi-beginners/ thread1506726.html
Delphi Выгрузка из ListView в CSV и TXT (нужен совет в визуальной реализации) https://www.cyberforum.ru/ delphi-beginners/ thread1506717.html Вобщем есть ListView в котором 6 колонок (планирую еще 2 добавить), нужна идея как это все красиво визуально реализовать чтобы это было максимально удобно пользователю, в данный момент у меня реализовано сохранение в TXT по клику на название колонки (обычно так сортировка реализуется), но теперь решил добавить еще и сохранение в CSV (все данные всех колонок) но по клике на название колонки уже не...	Как нажать на кнопку клавишей? Delphi У меня есть кнопка при нажатие на которую закрывается форма.Как сделать так чтоб на кнопку можно было нажать например пробелом?
Delphi Апостроф в строке https://www.cyberforum.ru/ delphi-beginners/ thread1506677.html сне нужно в строку добавить этот символ ' но делфи не хочет этого делать - синтаксическая ошибка вот кодs:=s+''';	Delphi Случайно нажал "View as text" на форме и открылся dfm файл https://www.cyberforum.ru/ delphi-beginners/ thread1506663.html Вопрос: как открыть pas файл? Добавлено через 2 минуты все, проблема решена
Delphi Считать байт по адресу в файле Например есть файл, в НЕХ выглядит так: e9 02 00 08 e9 02 Как прочитать данные с байта по адресу 4 ? Должно получиться 00.	Delphi Как сделать так: if pos * then * else * и еще одно действие? То есть например if pos * then ShowMessage('No') else ShowMessage('Yes') и если Yes то должно выполниться еще одно действие (к примеру показать еще одно сообщение). Я не понимаю как. https://www.cyberforum.ru/ delphi-beginners/ thread1506592.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

30.07.2015, 07:39

Приориторет операций - Delphi - Ответ 7924494

30.07.2015, 07:39. Показов 469. Ответов 6

Метки (Все метки)

Ответ

А если так?

Delphi

var
  Form1: TForm1;
  f:boolean=true;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Free;
f:=false;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(k);
if(k=10)and f then
 begin
  Panel1.Free;
  Timer1.Enabled:=false
 end;
end;

Вернуться к обсуждению:
Приориторет операций Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.07.2015, 07:39

Готовые ответы и решения:

Напечатать все знаки арифметических операций и операций отношения
Напечатать все знаки арифметических операций и операций отношения,которые входят в заданый массив и...

Сколько нужно провести операций, чтобы 13 операций подряд были успешными?
Вероятность успешной операции = 63% Сколько нужно провести операций, чтобы 13 операций подряд были...

Доказать равенства, используя свойства операций над множествами и определения операций
Доказать равенства, используя свойства операций над множествами и определения операций. б) ...

	30.07.2015, 07:39

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.07.2015, 07:39

Помогаю со студенческими работами здесь

Доказать равенства, используя свойства операций над множествами и определения операций
Доказать равенства, используя свойства операций над множествами и определения операций. Дальше...

Заменить в данной строке знаки арифметических операций названиями противоположных им операций
Заменить в данной строке знаки арифметических операций названиями противоположных им операций.

Вставить между цифрами 1, 2, 3, 4, 9 знак одной из операций +-*/, так, чтобы результат 8-операций равнялся 100
Вставить между цифрами 1,2,3,4...9 знак одной из операций +-*/, так, чтобы результат 8-опреаций...

Приоритет логических операций и операций над множествами.
солидняк Я просто устал переписывать)) поэтому решил уже расписать, разжевать так сказать)). Эту...

Наверх