В предыдущем посте мы получили короткое имя файла, но с расширением. А что, если нам необходимо убрать расширение и получить только имя. Для этого напишем простенькую функцию, в которой будем использовать функцию из предыдущего поста:

function FileNameWithoutFormat(str: string): string;
var
  z: Integer;
  ind: Byte;
  st: String;
begin
  st := GetShortFileName(Str);
  for z := length(st) - 1 downto 0 do
    if (st[z] = '.') then
    begin
      ind := z;
      break;
    end;
  Delete(st, ind, length(st));
  Result := st;
end;

Как Вы видите, мы работаем по тому же принципу. Только сначала мы обрезаем путь до имени файла с расширением, а затем уже работаем с полученной строкой, т.е. обрезаем её. Принцип такой: как только мы встречаем знак "."(точка), то мы прекращаем дальнейший перебор и обрезаем строку.

Вывод результата осуществляем по прежнему в Label:

Label1.Caption:=FileNameWithoutFormat(OpenPictureDialog1.FileName);

В следующем посте поговорим о том, как получить расширение файла. Думаю, что многие уже сами смогут написать такую фугкцию. ;)

- - - - - - - - - -

Интересно почитать:

Как получить короткое имя файла
Как получить расширение файла