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

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

Войти

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

Другие темы раздела
Delphi Объединить две программы в одну. Всем привет у меня есть две программы которые нужно объединить в одну. первая программа вводит данные и сохраняет их в Word вторая программа создает Qr код надо их соединить в одну программу надо сделать так что бы мы в первой программе вели данные и на этих данных создался Qr и что бы Qr код отображался в Worde https://www.cyberforum.ru/ delphi-beginners/ thread2442326.html	Ограниченный тип Delphi имеется структура: Tday = 1..31; Tmonth = 1..12; Tyear = 2018..2025; data = record day: Tday; month: Tmonth; year: Tyear; end;
Delphi Адаптировать код функции под Делфи https://www.cyberforum.ru/ delphi-beginners/ thread2442271.html int fibonacci(int n) { if (n == 0) return 0; else if (n == 1) return 1; int memo = new int; memo = 0; memo = 1; for (int i = 2; i < n; i++) { memo = memo + memo;	Delphi Реализацией в делфи 7 Создать форму, используя все методы (окружность, эллипс, прямоугольник, прямоугольник со скругленными углами, дуга, сектор, линия) Canvas. Выводить результаты в свойство Canvas Image. Пример https://www.cyberforum.ru/ delphi-beginners/ thread2442102.html
Delphi вот задача на рекурсию, с рекурсией я сделал её , а как без неё .что-то написал, но не всегда работает. спасибо заранее program Projectrec; {$APPTYPE CONSOLE} uses SysUtils; var x,i,m,a,c,sum,n,mm,gg:integer; function g(m:integer):integer; begin g:= a*(m + c) mod 10;	Delphi Проблема с раскраской картинки Хочу раскрасить картинку в image, но столкнулся с такой проблемой. https://www.cyberforum.ru/ delphi-beginners/ thread2442094.html
Delphi Delphi и кирилица Задача: Есть текстовый файл в кодировке utf-8 (в нем кириллица и латиница), надо открыть его в delphi, найти в нем определенный текст и заменить его другим текстом из edit, после чего сохранить результат в другом файле с той же кодировкой. Делаю это так: procedure TForm1.btn1Click(Sender: TObject); var s:TStringList; begin s:=TStringList.Create;... https://www.cyberforum.ru/ delphi-beginners/ thread2442004.html	Delphi Задан одномерный массив. Поменять местами третий и последний элементы и записать новый массив в файл. Используя потоки Задан одномерный массив. Поменять местами третий и последний элементы и записать новый массив в файл. Используя потоки. Нужна помощь
Delphi Выход из цикла по нажатию заданной клавиши https://www.cyberforum.ru/ delphi-beginners/ thread2441939.html Здравствуйте! Подскажите пожалуйста, как реализовать выход из цикла (repeat until) путем нажатия соотвествующей клавиши, которую мы сами задаем. В инете не могу найти	Delphi Порядок создания компонентов в RunTime и из положение https://www.cyberforum.ru/ delphi-beginners/ thread2441885.html Доброго времени суток! Нужен совет: Пишу небольшой визуальный компонент, родитель Панелька, на ней сначала должен быть Label, затем разделитель (использую Bevel), затем остальные контролы. В конструкторе порядок создания такой: _myGroup := TPanel.Create(AOwner); //создали основу //-------- Label := TLabel.Create(_myGroup); //--------
Delphi Can only modify an image if it contains an bitmap Хочу раскрасить картинку в формате JPG. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, JPEG; type	Delphi Рекурсивный алгоритм https://www.cyberforum.ru/ delphi-beginners/ thread2441809.html Реализовать рекурсивный алгоритм возведения числа в натуральную степень: алг вещ Степень(алг вещ а, цел н); начало если н=0 значит :=1; иначе :=a*Степень(а,н-1) все конец

Puporev

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

64304 / 47599 / 32743

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

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

24.04.2019, 12:35

Форма с двумя кнопками - Delphi - Ответ 13519757

24.04.2019, 12:35. Показов 2288. Ответов 3

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

Сообщение было отмечено 6APOH_Cy66OTA как решение

Решение

Delphi

var
  Form1: TForm1;
  y:array of double;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var  x:double;
begin
n:=0;
x:=0;
while x<=2*pi do
 begin
  inc(n);
  setlength(y,n);
  y[n-1]:=sin(x)+x;
  x:=x+0.1;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var f:textfile;
    i:integer;
begin
assignfile(f,'SIN.DAT');
rewrite(f);
for i:=0 to n-1 do
 begin
  write(f,y[i]:6:2);
  if (i+1) mod 10=0 then writeln(f);
 end;
closefile(f);
ShowMessage('Значения вычислены и запиманы в файл SIN.DAT')
end;

Вернуться к обсуждению:
Форма с двумя кнопками Delphi

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.04.2019, 12:35

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

Часы в текстовом поле с двумя кнопками
Задание в текстовой форме Часы. Форма с двумя кнопками. Каждая из кнопок связана с текстовыми...

Двигающаяся форма с четырьмя кнопками
Начал работать на Delphi 7. Школа 11 класс и т.д. Работаем по программе ТУСУР. Так вот в чем...

Форма на полный экран с кнопками, просто запуск приложений по ярлыку
Добрый день. Сразу говорю, что я новичок, которому нужно простое решение для простой программы)...

Простая форма для вывода текста с двумя кнопками
Здравствуйте. Пытаюсь сделать простую форму для вывода в нее текста и две кнопки ниже формы. В...

	24.04.2019, 12:35

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.04.2019, 12:35

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

Код с двумя кнопками
Напишите код в котором открывается окно сообщения с двумя кнопками: "да" и "нет". при нажатии на...

Мышь с двумя боковыми кнопками
Посоветуйте недорогую проводную мышь с двумя боковыми кнопками по вертикали как на фото

Передать данные между двумя кнопками
Есть две кнопки на одной форме: private slots: void on_pushButton_clicked(); ...

Отправка данных между двумя кнопками
Здравствуйте, только недавно начал учить VC С#, сейчас появилась проблема - надо передать массивы...

Наверх