Как получить часть строки?

[Женя32]

Здравствуйте!
Подскажите, пожалуйста, есть строка - названия файла с расширением, как получить расширение?
"1. MyImage.png".

[Pavia]

Ext:=ExtractFileExt('1. MyImage.png');

[Женя32]

Спасибо большое!

[noveek]

Можно похитрее ):

var
filename:string;
begin
filename:='31523.jpg';
memo1.lines.add(copy(filename,pos('.',filename)+1,length(filename)));
end;

[Arigato]

Сообщение от noveek

Можно похитрее

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

[noveek]

Сообщение от Arigato

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

Ну можно в обратном искать вполне:

USES
StrUtils
var
filename:string;
begin
filename:='31523.file.jpg';
memo1.lines.add(SearchBuf(pChar(filename), Length(filename), Length(filename)-1, 0, '.',[]));
end;