Игра "Сапер" всем известна. Некоторые студенты делают реализацию алгоритма этой игры в качестве курсовой работы. Для таких студентов, я думаю, пригодится эта функция, которая открывает ячейки. Функция рекурсивная.
procedure matrix.OpenCells(i,j:integer);
var t:integer;
begin
t := 0;
if (i < 1) or (j < 1) then t := 1;
if (i = n+1) or (j = n+1) then t := 1;
if t [...]
Сегодня стояла такая задача. Было необходимо создать на Дельфи динамическую панель инструментов. То есть нужно, чтобы кнопки появлялись и исчезали в зависимости от ситуации. Решение не сложно, но, может быть, кому-то пригодится. Компоненты использовал стандартные дельфийные. Панель инструментов TToolBar и кнопки на ней TToolButton. Получаем, например, какой-нибудь массив строк StrArray и создаем кнопки на панели [...]
Наивный алгоритм используется для поиска самой длинной повторяющийся подстроки в двух строках. Привожу реализацию данного алгоритма на Delphi. Думаю, что пригодится студентам для выполнения курсовых работ.
function TForm1.GetSequence(str1, str2: string): string;
var i,j,max, max_i,max_j:integer;
Matrix: array of array of integer;
begin
//устанавливаем размерность массива
SetLength(Matrix, Length(str1));
for I:=0 to length(Matrix)-1 do
SetLength(Matrix[i],length(str2));
//строим матрицу
max:=0;
for i:=0 to length(Matrix)-1 do
for j:=0 to length(Matrix[i])-1 do
begin
if (i=0)or(j=0) then
Matrix[i,j]:=0
else
if [...]
Встретилась проблема, необходимо округлять числа типа Double до определенной точности. До десятых, сотых, тысячных и так далее. В интернете можно найти иакое решение.
function RoundStr(Zn: Real; kol_zn: Integer): Real;
var
snl, s, s0, s1, s2: string;
n, n1: Real;
nn, i: Integer;
begin
s := FloatToStr(Zn);
if (Pos(',', s) > 0) and (Zn [...]
Новички в программировании, которые первый раз сталкиваются с задачей программного запуска текстового редактора Word и работы с документами, часто задаются вопросом, как же это можно сделать на Delphi. А на самом деле ничего сложного тут нет. Сначала необходимо включить в блок Uses модуль ComObj. Затем разместить на форме компонент TButton и в обработчике событий OnClick [...]
