Скачать: CL | DM;

Renamer картинок   Найти похожие ветки 

← →
[Ice]   (2007-05-06 13:22) [0]

Здравствуйте, уважаемые мастера Delphi! Я пишу программу для ресайза картинок. Суть ее в том, что она изменяет размер большой группы файлов и сжимает их. Так же я задумал, что их можно будет переименовать и пронумеровать в несколько разрядов, т.е. так:
image###.jpg, где ### - номер вида от 001 до 999. И тут начались загвоздки. Вот собственно и вопрос:
Как пронумеровать файлы в несколько разрядов? Очень надеюсь на вашу помощь, ув. мастера!

---

← →
Rial ©   (2007-05-06 13:40) [1]

function MyFunc(Const I, L : Integer) : String;
Var
   Tmp : Integer;  
   J : Integer;
begin
Str(I, Result);
Tmp:=Length(Result);
If(Tmp < L) then begin
 SetLength(Result, L);
 For J:=0 to Tmp - 1 do
  Result[L - J]:=Result[Tmp - J];
 For J:=1 to L - Tmp + 1 do
  Result[J]:="0";
end;
end;

Наверняка, не оптимально, но тебе хватит пока, думаю :)

---

← →
[Ice]   (2007-05-06 13:41) [2]

Rial, спасибо большое! Ты мне очень помог!

---

← →
Vovan # 2   (2007-05-06 17:30) [3]

Используй ф-ию Format.


for i := 1 to 999 do
 FileName := "image" +  Format("%.3d", [i]));  // 3 - кол-во цифр


---

← →
[Ice]   (2007-05-06 20:37) [4]

Vovan # 2, тоже огромнейшее спасибо!!!

---

← →
Belorus ©   (2007-05-06 22:03) [5]

Хехе. Во люди пошли ... Банально добавить нули в зависимости от разряда - сложнее чем изменить размер и пережать картинку ...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c