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

Опять же описываем функцию:

function GetFileFormat(St: string): string;
var
  z: integer;
  n: byte;
begin
  for z := length(St) -1 downto 0 do
    if (St[z] = '.') then
    begin
      n := z;
      break;
    end;
  Delete(St, 1, n);
  Result := St;
end;

Т.е. здесь всё работает точно так же как и в первой нашей функции, только ограничения немножко другие.
Теперь выводим результат в Label:

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

Ну вот и всё. Тут даже и пояснений никаких не надо, всё предельно ясно! ;)

- - - - - - - - - -

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

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