Textausschnitt vom Ende bis zum letzten Leerzeichen?

[TitanNano]

hi,
Ich programmiere gerade einen Downloadmanager, die Indi Komponente "IdFTP" liefert mir aber immer wen ich den Ordnerinhalt ermittle einen zulangen String zurück. Das heißt das Veränderungsdatum eine ID den Namen und andere Dinge sie sind alle durch ein Lehrzeichen getrennt. Doch der Name steht immer an letzter stelle und deswegen möchte ich nur die die letzten Zeichen bis zum letzten Lehrzeichen herausnehmen. Leider habe ich es mit,

Delphi-Quellcode:

split:=pos(' ', activ);
activ:=copy(activ, length(activ), split);

nicht hin bekommen, aber vielleicht gibt es ja noch eine andere Möglichkeit.

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]

[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;

[TitanNano]

wie greif ich denn auf die Funktion zu??

[DeddyH]

Delphi-Quellcode:

activ := StringAfterLastSpace(activ);

[Christian Seehase]

Moin Detlef,

so find' ich's einfacher:

Delphi-Quellcode:

function StringAfterLastSpace(const s: string): string; 
begin
  Result := Copy(s,LastDelimiter(' ',s)+1,MaxInt);
end;

@TitanNano:
Es heisst Leerzeichen.

[DeddyH]

Moin Christian,

zu meiner Schande muss ich gestehen, dass ich LastDelimiter irgendwie aus meinem Wortschatz gestrichen hatte :oops:. Hast natürlich Recht, so ist es einfacher und vermutlich auch schneller :zwinker:

[TitanNano]

also kann ich auch das auch so verwenden?

Delphi-Quellcode:

active := Copy(active,LastDelimiter(' ',active)+1,MaxInt);

[DeddyH]

Versuch macht klug :mrgreen:

[TitanNano]

es geht!!