Wenn du AnsiRightStr() in der Indexsuche deiner Delphi-Hilfe eingibst, dann nennt dir das entsprechende Hilfekapitel auch den
Unit-Namen, den du unter uses angeben musst: StrUtils.
Die Funktion LastWord() kann man zum besseren Verständnis wieder entflechten:
Delphi-Quellcode:
function LastWord(const s, delimiters: string): string;
var
iPos, iLength: Integer;
begin
iPos := LastDelimiter(delimiters, s);
iLength := Length(s) - iPos;
Result := AnsiRightStr(s, iLength);
end;
Zuerst wird die (1-basierende) Position des letzten Delimiters "/" gesucht. Dann wird die Länge des letzten Wortes "Beach" berechnet und zuletzt werden genau soviele Zeichen am rechten Ende des übergebenen Strings als Ergebnis des Funktionsaufrufs zurückgegeben.
Auf die Zeilen eines Memofeldes kannst du so zugreifen:
Delphi-Quellcode:
var
i: Integer;
begin
for i := 0 to Pred(Memo.Lines.Count) do
Memo.Lines[]i := LastWord(Memo.Lines[i], '/');
end;
Für jeden Befehl, den du nicht genau kennst, liefert dir die Kontexthilfe (F1) in der Delphi-
IDE die nötigen Erklärungen.
Alles klar?