Имя файла

[Eugene_Stoun]

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

Заранее всем огромное спасибо за помощь и советы!

[evg_m]

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')

[Eugene_Stoun]

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