Пропарсить стоку регулярными выражениями

[Altera]

Всем привет!
Не знал куда написать, пушу сюда.
Короче в Delphi есть стока которую надо пропарсить
Ну допустим

getDateTime (dd.mm.yyyy (hh:nn:ss:zzz)) (true)

Первое слово - команда, а в скобках параметры, т.е. к getDateTime прилагаются 2 параметра.

надо получить как строки команду и параметры
Т.е. результат должен быть такой (красным цветом)

getDateTime (dd.mm.yyyy (hh:nn:ss:zzz)) (true)

Всё остальное не нужно. Какое выражение должно быть?

//Вот Delphi

procedure Tmain_form.Button1Click(Sender: TObject);
var
e: tRegExpr;
c, sc: integer;
begin
   listBox1.Clear;
   e := tRegExpr.Create;
   e.Expression := edit1.Text; // Вырожение

   if e.Exec(memo1.Text) then 
   repeat
      listBox1.Items.Add(e.Match[0]);
   until not e.ExecNext;
   e.Free;
end;

[raxp]

у тя ж все-ж красное

[Altera]

Сообщение от raxp

у тя ж все-ж красное

Скобки у меня не красные, и пробелы...

[raxp]

вот строка

'getDateTime (dd.mm.yyyy (hh:nn:ss:zzz)) (true)'

- что из нее надо выделить?

[Alex Cones]

1 способ: ищем первый пробел в строке, выделяем все до него, затем пропускаем скобку и выделяем все до второй скобки.
2 способ: заводим базу (тхт, БД не важно) и ищем в строке слово-команду. Дальше действуем по алгоритму 1.

[raxp]

оператор POS вам в помощь

[Lime]

Какоето несоответствие репутации и вопроса ...

Может пригодится - алгоритм со скобками думаю будет понятен

http://programmersforum.ru/showthread.php?t=57287

[Altera]

Сообщение от Lime

Какоето несоответствие репутации и вопроса ...

Ага. Очень ты внимательный....

Сообщение от Lime

Может пригодится - алгоритм со скобками думаю будет понятен

http://programmersforum.ru/showthread.php?t=57287

Думаете я не додумался pos юзать. Так ведь регулярные выражения на то и существуют. Щас по другому вообще сделаю...и
----------
//А выражение то что, никто не знает?

[russian-stalker]

В голову ничего лучше не пришло(писал прямо здесь, так что скорее всего много ошибок)

var
s:string;
begin
listbox1.Clear;
s:=StringReplace(edit1.Text, ' ', '',[rfReplaceAll, rfIgnoreCase]);
if pos('(',s)<>0 then
begin
listbox1.Items.Add(copy(s,1,pos('(',s)-1));
delete(s,1,pos('(',s)-1);
while pos('(',s)<>0 do
begin
if pos(')(',s)<>0 then
begin
if StringReplace(copy(s,2,pos(')(',s)), ' ', '',[rfReplaceAll, rfIgnoreCase])<>'' then
begin
listbox1.Items.Add(copy(s,2,pos(')(',s)-2));
delete(s,1,pos(')',s));
end;
end else
begin
end;
if StringReplace(copy(s,2,pos(')',s)), ' ', '',[rfReplaceAll, rfIgnoreCase])<>'' then
begin
listbox1.Items.Add(copy(s,2,pos(')',s)-2));
delete(s,1,pos(')',s));
end;
end;
end;

[DeKot]

Какоето несоответствие репутации и вопроса ...

Фи, некультурно как то. Напоминает фразу - " А еще очки одел ..."
Извините за OFFTOP. Не удержался.