Daily Archives: 09.09.2016

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

Delphi. Scrollbox. MousewheelUp and MousewheelDown. Делаем прокрутку разными способами

Posted on 09.09.2016 by Stanislav_Panteleev

TScrollBox, Если мы говорим о классе TScrollBox, то наиболее простой и эффективный код – обработать MousewheelUp и MouseWheelDown у компонента ScrollBox, но этого недостаточно, нужно ещё присвоить SetFocus, компоненту ScrollBox, тогда это удовольствие будет работать. Вот простой пример обработки данных … Continue reading →

Posted in Delphi, WinAPI | Comments Off

Daily Archives: 09.09.2016

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

Delphi. Scrollbox. MousewheelUp and MousewheelDown. Делаем прокрутку разными способами

MY PROJECTS

Recent Posts

Categories