Strings

[Wormid]

Also, wenn die Klammer mit den Zahlen immer am Ende stehen, dann hätte ich folgenden Lösungsvorschlag anzubieten, bei dem egal ist, wieviele Klammern vor der letzten stehen:

Delphi-Quellcode:

var 
  S: String;
  i: Integer;
  Tokens: TStringList;
begin
  S := '(1) Teufelsschlucht (11:222:33)';

  // Die Coords (oder was das auch immer ist) rauskopieren...
  i := Length(S) - Pos('(', ReverseString(S)) + 2;  // ReverseString ist in der Unit StrUtils!
  S := Copy(S, i, Length(S) - i);

  Tokens := TStringList.Create;

  // Den String in die einzelnen Werte aufteilen... In jeder Zeile der Stringlist steht nun ein Wert.
  for i := 0 to ExtractStrings([':'], [], PChar(S), Tokens) - 1 do
    Memo1.Lines.Add(Tokens[i]);

  Tokens.Free
end;

Gruß

Wormid