Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, bedoval, Вы писали:

B>>Здравствуйте, Аноним, Вы писали:

А>>>Подскажите пожалуйста! Как средствами Builder максимально оптимально поменять расширение у файла.
А>>>Например:

А>>>было: data.com
А>>>а должно стать: data.sys

B>>ЭЭЭ, а так: ExtractFileName(inFile), а в конец прилепить нужное расширение?

А>Эта функция только возвращает название файла. А сами данные файла?
А>По сути дела нужно ПЕРЕИМЕНОВАТЬ файл (поменяв расширение а данные внутри файла должны остаться преждними).

Пример из хелпыча на "ChangeFileExt":

void __fastcall TForm1::Button1Click(TObject *Sender)

{
OpenDialog1->DefaultExt = ".ICO";
OpenDialog1->Filter = "icons (*.ico)|*.ICO";
OpenDialog1->Options << ofOverwritePrompt << ofFileMustExist << ofHideReadOnly;
if (OpenDialog1->Execute())
{
TIcon *pi = new TIcon();
try
{
AnsiString as;
pi->LoadFromFile(OpenDialog1->FileName);
as = ChangeFileExt(OpenDialog1->FileName,".BMP");
Image1->Width = pi->Width;
Image1->Height = pi->Height;
Image1->Canvas->Draw(0,0,pi);

Image1->Picture->SaveToFile(as);
ShowMessage(OpenDialog1->FileName + " Saved to " + as);
}
__finally
{
delete pi;
}
}
}