Suchen der Textteile

[marabu]

Hallo,

wenn nur der Dateiname existiert, dann sind mir die Delimiter eigentlich egal:

Delphi-Quellcode:

// image filename = NAMEnnn.jpg

function ExtractImageNumber(const url: string): string;
var
  iPos: Integer;
  fn: TFileName;
begin
  fn := Copy(url, Succ(LastDelimiter('/', url)), MAXINT);
  if SameText(ExtractFileExt(fn), '.jpg') then
  begin
    fn := ChangeFileExt(fn, '');
    Result := Copy(fn, FirstDelimiter('1234567890', fn), MAXINT);
  end else Result := '';
end;

Freundliche Grüße