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