Сохранение файлов.

[inkubus]

Здравствуйте. Сохраняю я файлы с помощью:

var
i: integer;
Nemo: TStringList;
begin
...
 For i:=1 To OpenDialog1.Files.Count Do
begin
Nemo.SaveToFile(IntToStr(i)+'.2009.txt');
...

т.е. открыл я 10 файлов и сохранил 1.2009.txt, ..., 10.2009.txt, а как сделать, чтобы теперь при сохранении добавлялся не порядковый номер открытого файла, а его имя? т.е. открыл 29.07 и 30.07 - сохранил 29.07.2009 и 30.07.2009.

[Stilet]

SaveToFile(ExtractFileName(OpenDialog1.Files[i])+'.2009.txt');

Только наверное стоит еще от расширения избавится...

[Daramant]

Подразумевается, что расширение есть:

var
  i: Integer;
  Path, Name: String;
begin
 if OpenDialog1.Execute then
  for i := 0 to OpenDialog1.Files.Count - 1 do begin
    Path := ExtractFilePath(OpenDialog1.Files[i]);
    Name := ExtractFileName(OpenDialog1.Files[i]);
    Name := Copy(Name, 1, Pos(ExtractFileExt(Name), Name) - 1);
    SaveToFile(Path + Name + '.2009.txt');
  end;
end;