Textausschnitt vom Ende bis zum letzten Leerzeichen?

[DeddyH]

Vielleicht nicht die schnellste Möglichkeit, aber so müsste es gehen:

Delphi-Quellcode:

function StringAfterLastSpace(const s: string): string;
var Position: integer;
begin
  Result := '';
  Position := Length(s);
  while (Position > 0) and (s[Position] <> ' ') do
    begin
      Result := s[Position] + Result;
      dec(Position);
    end;
end;