[Stasonix]

В общем есть много таких слов, которые начинаются не символами, а допустим как я уже приводил пример 33.-test, так вот как разгруппировать (33.-)(test), вот так, т.е. то что идет до слова test нужно как-бы не считать, а это ЛЮБЫЕ СИМВОЛЫ, которые не являются буквой, они мне не нужны вообще, мне главное само слово занести в переменную, в принципе каждое слово это начало новой строки, т.е. вот так примерно может быть:
23.-Word1 Tozhe Nado
-Drugoe Slowo
_tretje slowo
$%6FOUR
1Пять
"шесть
.. и т.п. (то что нужно выбрать я обозначил зеленым)

Всю возню с делфийскими RegExpr я беру на себя, т.е. мне нужна только регулярка, спасибо.

[lmikle]

Код:

function ClearStringAll(AStr : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(AStr) Do
    If AStr[i] In ['A'..'Z','a'..'z',' '] Then Result := Result + AStr[i];
end;

function ClearStringHead(AStr : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(AStr) Do
    If AStr[i] In ['A'..'Z','a'..'z',' '] Then 
      Begin
         Result := Copy(AStr,I,Length(AStr));
         Break;
      End;
end;

ClearStringAll - очищает всю строку
ClearStringHead - очищает только начало строки, все с первой буквы остается.

[Stasonix]

а с кириллическими символами данная функция справится?
Я так понял тогда так:
+еще я тут подумал что не плохо было бы и зна тире на всякий случай оставить -

Код:

['A'..'Z','a'..'z','а'..'я','А'..'Я','-',' ']

так?

[AlexSku]

В кодировке Win1251 буквы ё, Ё не попадают в диапазон, так что их надо добавить отдельно: [..., 'Ё', 'ё']