Levelrotation.xml auslesbar?

[marabu]

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?