Парсинг строчки из Memo

[Alexunkow]

В Memo1 содержится исходный код страницы, в нём мне нужно выдернуть цифры, например до них стоит "asdsd-"тутцифры"_" и вот эти "тутцифры" нужно выдернуть из мемо и вывести в Edit1

[Lardes]

Alexunkow, уже несколько раз обсуждалось..

function ParsToString(T_, ForS, _T: string): string;
var
  A, B: Integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then Exit;
  A := Pos(T_, ForS);
  if A = 0 then Exit else A := A + Length(T_);
  ForS := Copy(ForS, A, Length(ForS) - A + 1);
  B := Pos(_T, ForS);
  if B > 0 then
  Result := Copy(ForS, 1, B - 1);
end;

Как найти:

  Edit1.Text := ParsToString('asdsd-', Memo1.Text, '_');

[Alexunkow]

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

Alexunkow, уже несколько раз обсуждалось..

function ParsToString(T_, ForS, _T: string): string;
var
  A, B: Integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then Exit;
  A := Pos(T_, ForS);
  if A = 0 then Exit else A := A + Length(T_);
  ForS := Copy(ForS, A, Length(ForS) - A + 1);
  B := Pos(_T, ForS);
  if B > 0 then
  Result := Copy(ForS, 1, B - 1);
end;

Как найти:

  Edit1.Text := ParsToString('asdsd-', Memo1.Text, '_');

Спасибо, а то уже думал как да как