Changeset 146 for Common/UCommon.pas

Timestamp:

Jan 26, 2011, 7:28:29 AM (13 years ago)

Author:

george

Message:

• Fixed: Freeing micro threads on finish.

File:

• Common/UCommon.pas (modified) (1 diff)

Common/UCommon.pas

@@ -42 +42 @@
 function AddLeadingZeroes(const aNumber, Length : integer) : string;
 function LastPos(const SubStr: String; const S: String): Integer;
+function GenerateNewName(OldName: string): string;
 
 implementation
+
+function GenerateNewName(OldName: string): string;
+var
+  I: Integer;
+  Number: Integer;
+begin
+  Number := 1;
+  // Find number on end
+  if Length(OldName) > 0 then begin
+    I := Length(OldName);
+    while (I > 1) and ((OldName[I] >= '0') and (OldName[I] <= '9')) do Dec(I);
+    TryStrToInt(Copy(OldName, I + 1, Length(OldName) - I), Number);
+    Inc(Number)
+  end;
+  Result := Copy(OldName, 1, I) + IntToStr(Number);
+end;
 
 (*function DelTree(DirName : string): Boolean;