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, тоже огромнейшее спасибо!!!

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

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