Помогите начинающему программеру плс..

[Degmax]

Заранее благодарю за внимание.
Среда разработки-Delphi 7
Суть вопроса:
есть архивный файл следующего формата:
#73611DD.arj,где 73611-константа,DD-текущая дата,#-буква латинского алфавита,означающая очередность создания файла.
Т.е. первый файл,созданный к примеру в течении 26-го марта
должен иметь такой вид:
a7361126.arj,
следующий созданный в течении 26-го марта должен иметь
такой вид:
b7361126.arj,
следующий созданный в течении 26-го марта должен иметь
такой вид:
c7361126.arj
и т.д....
Далее первый файл,созданный к примеру в течении 27-го марта
должен иметь такой вид:
a7361127.arj,

следующий созданный в течении 27-го марта должен иметь
такой вид:
b7361127.arj,
следующий созданный в течении 27-го марта должен иметь
такой вид:
c7361127.arj
и т.д....

Изначально файл уже есть в таком вот виде:
a73611DD.arj-как мне менять дату создания и особенно первый символ по алфавиту?помогите плс,очень надо.

[Air]

a73611DD.arj-как мне менять дату создания и особенно первый символ по алфавиту?помогите плс,очень надо.

Я так понимаю, Вам нужно переименовать файл?

renamefile('a73611DD.arj','b73612DD.arj');

Если файл не рядом надо указать полный путь.

[mihali4]

Далее первый файл,созданный к примеру в течении 27-го марта
должен иметь такой вид:
a7361127.arj,

По условиям получится, что первый файл,созданный в течение 27-го апреля тоже будет иметь такой же вид:
a7361127.arj
Это нормально?

[Degmax]

По условиям получится, что первый файл,созданный в течение 27-го апреля тоже будет иметь такой же вид:
a7361127.arj
Это нормально?

Да,нормально.Я не знаю,как организовать отслеживание заменяемого символа в течении одних суток.Процедуру renamefile,а так же функции Movefile и MovefileEx я опробовал,проблема не в самом переименовании,а в корректной замене первого символа,как отследить,что в данный момент нужна замена именно на 'b'(т.е. это второй созданный в течении суток файл получается) или на 'с'(третий файл)

[alexBlack]

Сообщение от Degmax

Я не знаю,как организовать отслеживание заменяемого символа в течении одних суток .... проблема не в самом переименовании,а в корректной замене первого символа,как отследить,что в данный момент нужна замена именно на 'b'(т.е. это второй созданный в течении суток файл получается) или на 'с'(третий файл)

- можно просканировать содержание каталога и найти последний использованный символ (findFirst / findNext)

- можно в цикле проверять наличие файлов (fileExists) пока не будет найден свободный символ.

- можно хранить переменную с последним использованным символом в ini-файле (реестре и т.д.), eсли есть уверенность что никто больше в этом каталоге файлы не меняет.

[FaTaL]

Я вот например так только что накидал.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; // Просто счетчик чаров
N,S:String; // Имя файла без пути, Полный путь к файлу для проверки
begin
i:=97;
{Здесь указываем первоначальное проверяемое имя файла}
while FileExists(S) do // Где S - Полный путь к файлу
  begin
     i:=i+1; // где i - ASCII
     {Изменяем имя, Например:}
     N:=Char(i)+Copy(N,2, Length(N));
  end;
end;

Вам остаётся только найти имя файла и изменять его до тех пор пока не будет совпадений, что и делает цикл While .. do
P.S. От 'а' до 'z' чары 97-122

[Degmax]

Спасибо огромное)