Category Archives: Алгоритмы

Delphi. Алгоритмы. DFS. Поиск в глубину рекурсивно

Posted on 27.07.2017 by Stanislav_Panteleev

Своими словами. Берем первую вершину, смотрим, нет ли у нее инцидентных ребер (прямых потомков), если есть помечаем, повторяем процедуру для найденной вершины, и так до конца глубины. Возвращаемся, идем к соседней вершине, и так далее. interface

var
  IsVisitedGlobal:array [1..N] of boolean;

1 2	var IsVisitedGlobal:array [1..N] of boolean;

init visited array … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. Алгоритмы. BFS – обход графа в ширину

Posted on 27.07.2017 by Stanislav_Panteleev

Теория хорошо описана на Вики. Суть в этой гифке ниже. Моя скромная реализация для представления графа в виде матрицы смежности. Ноль в матрице смежности означает отсутствие ребра между вершинами. Единица – наличие. В основе обхода в ширину – такая … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi.DBTreeView. Алгоритм динамического обновления узлов

Posted on 23.02.2017 by Stanislav_Panteleev

Пусть есть TreeView, связанное с базой данных, например MySQL. Необходимо сделать так, чтобы данные загружались только при первоначальном заполнении (idParent=-1) либо при раскрытии узла (OnExpanding). Данный алгоритм хорош тем, что не грузит сразу все данные. И если, скажем, дерево большое, … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. DBTreeView. Самый эффективный алгоритм удаления узлов из дерева, связанного с базой данных

Posted on 23.02.2017 by Stanislav_Panteleev

-пусть есть TreeView, соединенный с базой, скажем MySQL -пусть мы хотим удалить выделенный узел TreeView из базы данных и из дерева Алгоритм (пока что №1 в моем рейтинге) -собрать ID всех детей (рекурсивно), хранящиеся по указателю каждого узла дерева SomeNode.Data … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. Алгоритмы. Галерея своими руками или как выложить плитками фрэйм

Posted on 26.01.2017 by Stanislav_Panteleev

Давно хотел записать это, так как часто пригождается, думаю транслировать на другие языки не составит труда. Итак, вот что у нас получится… Я пока не стал выкладывать никакие картинки, просто хочу здесь описать саму логику алгоритма. Сам алгоритм я взял … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. Алгоритмы. Создание уникального имени через добавление номера в конце в скобках. Например SomeFile(1), SomeFile(2) и др.

Posted on 15.01.2017 by Stanislav_Panteleev

Итак, пусть у нас в некоторой директории находится файл SomeFile, сделаем так, чтобы при добавлении следующего файла с именем SomeFile, в директории оказался файл SomeFile(1), SomeFile(2), SomeFile(3). При отсутствии этого файла в директорию копируется просто файл. Данная задача возникла в … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. Как отсортировать TStringList и сохранить соответствие с несколькими другими TStringList?

Posted on 24.09.2016 by Stanislav_Panteleev

Данный пост является развитием предыдущего. Будем сортировать один TStringList -другие же приводить в соответствие с переставленными элементами.

SLToSort         SLToSort    
BeforeSort       AfterSort    
 
0 1              0 3
1 3              1 2
2 2              2 1
______________________________
SomeSL           SomeSL
BeforeSort       AfterSort    
 
0 1              0 3
1 3              1 0
2 0              2 1

SLToSort SLToSort

BeforeSort AfterSort

0 1 0 3

1 3 1 2

2 2 2 1

______________________________

SomeSL SomeSL

BeforeSort AfterSort

0 1 0 3

1 3 1 0

2 0 2 1

Исходные данные у меня точно такие же. Не буду переписывать часть поста сюда.Изменился только алгоритм сортировки, так как теперь в соответствие нужно … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. Сортировка TStringList с приведением в соответствие другого TStringList

Posted on 23.09.2016 by Stanislav_Panteleev

Что делаем? Есть у нас некоторый TStringList, скажем SLToSort:TStringlist. Нужно его отсортировать – задача элементарная, пишем компараторы для наших данных, включаем CustomSort и всё готово. А что делать, если кроме SLToSort есть просто SomeSL:TStringlist и после сортировки SLToSort – нужно привести его … Continue reading →

Posted in Delphi, Алгоритмы | 2 Comments

Delphi. Алгоритмы. Как заменить имя файла на уникальное ?

Posted on 09.09.2016 by Stanislav_Panteleev

Скажем, у нас есть имя файла в формате Filename.jpg в переменной FileName. Далее код на уровне идеи… Вариант 1 через GUID

var newguid:tguid;
...
 //Генерируем уникальный guid
  Createguid(newguid);
  newUniqueName:=newguid.ToString;
...

var newguid:tguid;

...

//Генерируем уникальный guid

Createguid(newguid);

newUniqueName:=newguid.ToString;

...

Вот пример такого изменения. Сохраняем часть старого имени для читабельности и добавляем GUID

{Creating New Unique Name with a rest of old name, using GUID}
function CreateUniqueNameAddingGUID(FileName: string; MaxOriginNameLength: Integer): string;
 
var
    Extension:string;
    SplittedString: TArray<String>;
    SomeStringToChange: string;
    newguid:tguid;
    i: Integer;
 
    FileNameTemp:string;
 
begin
 
//Checks
if FileName='' then Exit;
//if MaxOriginNameLength=0 then exit;  // if MaxOriginNameLength=0 will be only GUID as a result
 
 
//1--------- First of all we need to extract extension if it is
SplittedString:=FileName.Split(['.']);
 
    //we suppose that extensions are symbols after last '.', so...
 
    // if FileName has extension like 'SomeFileName.exe'
 
    if Length(SplittedString)>0 //1 and more, for example somename.ext [somename,ext]
    then
 
begin
    Extension:=SplittedString[ High(SplittedString)  ];
 
 
    //Lets join everything except extension
      for i := Low(SplittedString) to High(SplittedString)-1 do
         begin
 
         if i=0 then
         SomeStringToChange:=SomeStringToChange+SplittedString[i] else
         SomeStringToChange:=SomeStringToChange+'.'+SplittedString[i];
         end;
 
         //Cutting name up to the MaxOriginNameLength
      if Length( SomeStringToChange )> MaxOriginNameLength then
      SomeStringToChange:=SomeStringToChange.Substring(0,MaxOriginNameLength);
 
      //Adding GUID
      Createguid(newguid);
      SomeStringToChange:=SomeStringToChange+newguid.ToString;
 
      // Joining Extension
      SomeStringToChange:=SomeStringToChange+'.'+Extension;
 
      Result:=SomeStringToChange;
 
end else
 
     // if FileName without Extension like 'SomeFileName'
     if Length(SplittedString)=0 then
 
     begin
 
     FileNameTemp:=FileName;
 
 
      //Cutting name up to the MaxOriginNameLength
      if Length( FileNameTemp )> MaxOriginNameLength then
      FileNameTemp:=FileNameTemp.Substring(0,MaxOriginNameLength);
 
      //Adding GUID
      Createguid(newguid);
      FileNameTemp:=FileNameTemp+newguid.ToString;
 
 
      Result:=FileNameTemp;
     end;
 
//ShowMessage(Result);
end;

{Creating New Unique Name with a rest of old name, using GUID}

function CreateUniqueNameAddingGUID(FileName: string; MaxOriginNameLength: Integer): string;

var

Extension:string;

SplittedString: TArray<String>;

SomeStringToChange: string;

newguid:tguid;

i: Integer;

FileNameTemp:string;

begin

//Checks

if FileName='' then Exit;

//if MaxOriginNameLength=0 then exit; // if MaxOriginNameLength=0 will be only GUID as a result

//1--------- First of all we need to extract extension if it is

SplittedString:=FileName.Split(['.']);

//we suppose that extensions are symbols after last '.', so...

// if FileName has extension like 'SomeFileName.exe'

if Length(SplittedString)>0 //1 and more, for example somename.ext [somename,ext]

then

begin

Extension:=SplittedString[ High(SplittedString) ];

//Lets join everything except extension

for i := Low(SplittedString) to High(SplittedString)-1 do

begin

if i=0 then

SomeStringToChange:=SomeStringToChange+SplittedString[i] else

SomeStringToChange:=SomeStringToChange+'.'+SplittedString[i];

end;

//Cutting name up to the MaxOriginNameLength

if Length( SomeStringToChange )> MaxOriginNameLength then

SomeStringToChange:=SomeStringToChange.Substring(0,MaxOriginNameLength);

//Adding GUID

Createguid(newguid);

SomeStringToChange:=SomeStringToChange+newguid.ToString;

// Joining Extension

SomeStringToChange:=SomeStringToChange+'.'+Extension;

Result:=SomeStringToChange;

end else

// if FileName without Extension like 'SomeFileName'

if Length(SplittedString)=0 then

begin

FileNameTemp:=FileName;

//Cutting name up to the MaxOriginNameLength

if Length( FileNameTemp )> MaxOriginNameLength then

FileNameTemp:=FileNameTemp.Substring(0,MaxOriginNameLength);

//Adding GUID

Createguid(newguid);

FileNameTemp:=FileNameTemp+newguid.ToString;

Result:=FileNameTemp;

end;

//ShowMessage(Result);

end;

Вариант 2 через Random … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Алгоритмы. Вход в личный кабинет. Поправки

Posted on 29.03.2016 by Stanislav_Panteleev

Век живи, век учись! И самое главное, когда чувствуешь, что что-то не так, не нужно себя обманывать, чем быстрее осознаешь проблему, тем быстрее её решишь. В одном из предыдущих постов, я написал простой алгоритм входа в личный кабинет, но всегда … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Category Archives: Алгоритмы

Delphi. Алгоритмы. DFS. Поиск в глубину рекурсивно

Delphi. Алгоритмы. BFS – обход графа в ширину

Delphi.DBTreeView. Алгоритм динамического обновления узлов

Delphi. DBTreeView. Самый эффективный алгоритм удаления узлов из дерева, связанного с базой данных

Delphi. Алгоритмы. Галерея своими руками или как выложить плитками фрэйм

Delphi. Алгоритмы. Создание уникального имени через добавление номера в конце в скобках. Например SomeFile(1), SomeFile(2) и др.

Delphi. Как отсортировать TStringList и сохранить соответствие с несколькими другими TStringList?

Delphi. Сортировка TStringList с приведением в соответствие другого TStringList

Delphi. Алгоритмы. Как заменить имя файла на уникальное ?

Алгоритмы. Вход в личный кабинет. Поправки

MY PROJECTS

Recent Posts

Categories