RegEx - оптимизировать функцию.

[XerSon]

Всем привет,

С регулярками на Вы и решил запарсить дату и время в строке

v1

uses
  System.RegularExpressions;
...
function GetDataTimeParse(const s, linesep: string): string;
var
  RegExD, RegExT: TRegEx;
begin
  // <date>2006-05-01T23:24:47Z</date>
  Result := '';
  RegExD := TRegEx.Create('(?<=<date>).+(?=\T)');
  RegExT := TRegEx.Create('(?<=T).+(?=Z\</date>)');
  Result := RegExD.Match(s).Value + linesep + RegExT.Match(s).Value;
end;
...
procedure TForm7.Button1Click(Sender: TObject);
begin
  Memo2.Lines.Add(GetDataTimeParse(Memo1.Text, ' : ')); // 2006-05-01 : 23:24:47
end;

v2

function GetDataTimeParse(const s, linesep: string): string;
var
  RegEx: TRegEx;
begin
  // <date>2006-05-01T23:24:47Z</date>
  Result := '';
  RegEx := TRegEx.Create('(?<=>).+(?=Z\<)');
  Result := StringReplace(RegEx.Match(s).Value, 'T', linesep,
    [rfReplaceAll, rfIgnoreCase]);
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
  Memo2.Lines.Add(GetDataTimeParse(Memo1.Text, ' ')); // 2006-05-01 23:24:47
end;

Стоит ли оптимизировать функцию GetDataTimeParse?