Название файла без РАСШИРЕНИЯ!

[Dionix]

Здравствуйте дорогие программисты!
у меня такая проблема...мне нужно взять имя файла без его РАСШИРЕНИЯ!
заранее благодарю!

[dr.Chas]

copy(ExtractFileName(Application.ExeName), 1,
  pos('.', ExtractFileName(Application.ExeName))-1));

заместо ExtractFileName(Application.ExeName ) используй имя файла.

[Dionix]

всмысле мне писать

var filename: string;
begin
 copy(filename1, 1,
   pos('.', filename1)-1));

???????

[Dionix]

всё я понял...мне надо писать так:

copy(ExtractFileName(filename), 1,
pos('.', ExtractFileName(filename))-1);

попробовал...помогло! спасибо!

[maxionans]

А можно еще так:

  FileName := ChangeFileExt( ExtractFileName( FileName ), '' );

[Alt]

Вот этот способ получше, потому что тот работать будет не всегда корректно - точек в названии файла может быть несколько.