Имя файла

Всем доброго времени суток! Есть такая проблема: 1.Имеются имена файлов: 'БЛ1230966и1л12.tif' 2.Надо из имени файла получить, часть после маленькой буквы 'л' 3.Без расширения, чтобы только цифры.Заранее всем огромное спасибо за помощь и советы!
2 ответа

function Last_number(const fname: string): string;
var
 flagextend: boolean;
// flagL: boolean;
begin
 flagextend:=true;
// flagL:=false;
 result:='';
 for j:=length(fname) downto 1 do begin
 case fname[j] of
 '.': flagextend:=false;
 '0'..'9': if not flagextended then result:=fname[j]+result;
// 'л': flagL:=true;
 else if not flagextend then Break;
 end;
 end;
end;
2.Надо из имени файла получить, часть после маленькой буквы 'л' 3.Без расширения, чтобы только цифры.
так все-таки последние цифры (3) или после указанной буквы ('л') (2)БЛ1234и123.xxx (3 ='123' 2 ='') БЛ123лит123.xxxx (3 ='123' 2 ='ит123')


Спасибо огромное, очень выручили