Убрать символы.

[GreenDan]

Есть строка String = 'TESTFILE.exe'.
Как средствами Delphi убрать из этой строки TestFile а оставить только то что идёт после точки? Условие что имя файла неизветсно.

[AlDelta]

function ExtractFileExt ( const FullFileName : string ) : string;

Функция ExtractFileExt извлекает из полного имени файла расширение файла.
В строку будет передано '.' + расширение.

Более подробно и примеры:
http://delphibasics.ru/ExtractFileExt.php

[Ozerich]

Если точка не надо то делаешь так

 
Function Func(const s:string):string;
begin
result:=ExtractfileExt(s);
delete(result,1,1);
end;

[mutabor]

А теперь посмотрим на саму функцию в SysUtils. Оказывается ничего сверхсложного в ней нет. Это так, для тех кто не знал.

function ExtractFileExt(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter('.' + PathDelim + DriveDelim, FileName);
  if (I > 0) and (FileName[I] = '.') then
    Result := Copy(FileName, I, MaxInt) else
    Result := '';
end;